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 do something like

   for each character in mystring
      debug.print character
   next

In C# i would do something like

 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.