Tcl

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Tcl

load ./chilkat.dll

set strTab [new_CkStringTable]

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

CkStringTable_SplitAndAppend $strTab $s "," 1 1

set i 0
set numStrings [CkStringTable_get_Count $strTab]
while {$i < $numStrings} {
    puts "$i: [CkStringTable_stringAt $strTab $i]"
    set i [expr $i + 1]
}

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

delete_CkStringTable $strTab