how do you parse a string in vb6?

Question

Some of us unfortunately are still supporting legacy app like vb6 I have forgotten how to parse a string

given a string dim mystring as string ="1234567890"

how do you loop in vb6 through each character and so something like

   for each character in mystring
      debug.print character
   next

in c# i would do

char[] myChars = mystring.ToCharArray(); foreach (char c in theChars) { //do something with c }

Any ideas?

Thanks a lot

Answer 1

You can use the 'Mid' function to get at the individual characters:

Dim i As Integer
For i = 1 To Len(mystring)
    Print Mid$(mystring, i, 1)
Next

Note this is untested.

Answer 2

There is no possibility to use foreach on strings.

Use

Dim i As Integer

For i = 1 To Len(YourString)
    Result = Mid$(YourString, i, 1)
Next

note that the type of Result is a length-1 string, no char or byte type.

If performance is important, you'll have to convert the string to a bytearray fist (using StrConv) and then loop through it like this.

Dim i As Long
For i = 0 To UBound(Data)
    Result = Data(i) ' Type is Byte '
Next

This is much more efficient.

Answer 3

The easiest way is to convert the string into an array of bytes and iterate over the byte array (converting each byte to a character).

Dim str As String
Dim bytArray() As Byte
Dim count As Integer

str = "This is a string."
bytArray = str

For count = 0 To UBound(bytArray)
    Debug.Print Chr(bytArray(count))
Next

Answer 4

Don't loop; rather, set a reference to Microsoft VBScript Regular Expressions library and use regular expressions to achieve your 'do something' goal.