Tcl

Load StringTable from a StringBuilder

Demonstrates how to load a StringTable from the text contained in a Chilkat StringBuilder object. Tcl

load ./chilkat.dll

set success 0

set strTab [new_CkStringTable]

set sb [new_CkStringBuilder]

CkStringBuilder_Append $sb "This is line 1\r\n"
CkStringBuilder_Append $sb "An empty line follows...\r\n"
CkStringBuilder_Append $sb "\r\n"
CkStringBuilder_Append $sb "This is line 4\r\n"

CkStringTable_AppendFromSb $strTab $sb

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

delete_CkStringTable $strTab
delete_CkStringBuilder $sb