Xbase++

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Xbase++

LOCAL oStrTab
LOCAL s
LOCAL i
LOCAL nNumStrings

oStrTab := CreateObject("Chilkat.StringTable")

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

oStrTab:SplitAndAppend(s, ",", 1, 1)

i := 0
nNumStrings := oStrTab:Count
DO WHILE i < nNumStrings
    ? Str(i) + ": " + oStrTab:StringAt(i)
    i := i + 1
ENDDO

//  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.

oStrTab:destroy()