Visual Basic 6.0

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Visual Basic 6.0

Dim strTab As New ChilkatStringTable

' SplitAndAppend make it easy to break apart comma delimited, semicolon delimited,
' or strings delimited by other characters.
Dim s As String
s = "abc,123,xyz,456,music,math,""World History"",""Chicago,Cubs"",Japan"

success = strTab.SplitAndAppend(s,",",1,1)

Dim i As Long
i = 0
Dim numStrings As Long
numStrings = strTab.Count
Do While i < numStrings
    Debug.Print i & ": " & strTab.StringAt(i)
    i = i + 1
Loop

' The output is: 
' 0: abc
' 1: 123
' 2: xyz
' 3: 456
' 4: music
' 5: math
' 6: "World History"
' 7: "Chicago,Cubs"
' 8: Japan

' Note: Keeping the quotes is intentional.