VBScript

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set strTab = 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"

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

i = 0
numStrings = strTab.Count
Do While i < numStrings
    outFile.WriteLine(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.

outFile.Close