Repeat

[Mike H.]

In another language I am familiar with if I wanted to express the text
"-----" I could say repeat("-",5). Is there something similar in VBA?

 

[Trevor Williams]

Hi Mike

Try this:

Dim MyString
MyString = String(5, "*") ' Returns "*****".

 

[paul.robinson]

In another language I am familiar with if I wanted to express the text
"-----" I could say repeat("-",5). Is there something similar in VBA?

Hi
You could make your own

Public function repeat(inputstring as Variant, repetitions as Long) as
String
Dim temp as String, i as Long
Temp = Cstr(inputstring) 'incase number inputted
For i = 1 to repetitions
temp = temp & inputstring
Next i
repeat = temp
end function

you might need to test unusual inputs.

regards
Paul

 

[Rick Rothstein \(MVP - VB\)]

Just a quick follow up... the String function will only repeat single
characters (which, of course, is what the OP seems to have asked for), but
if one wanted to repeat, say, the string value "AB" some number of times,
trying this...

MyString = String(5, "AB")

would result in "AAAAA" being assigned to the variable. The following is one
method to repeat the string "AB", say, five times...

MyString = Replace(String(5, Chr$(1)), Chr$(1), "AB")

Of course, you could replace the "AB" text string with any string of
characters.

Rick