(Tcl) StringBuilder GetAfterFinal
Demonstrates the StringBuilder.GetAfterFinal method.
The GetBefore method was added in Chilkat v9.5.0.77
load ./chilkat.dll
set sb [new_CkStringBuilder]
set success [CkStringBuilder_Append $sb "111--222--333--444"]
# The GetAfterFinal method returns the contents of the string after the final occurrence of
# the marker string. If the remove flag is 1, then both the returned string AND
# the marker are removed.
# If the marker is not found, then the entire string is returned and the sb is cleared.
set removeFlag 1
set marker "--"
while {[CkStringBuilder_get_Length $sb] > 0} {
set substr [CkStringBuilder_getAfterFinal $sb $marker $removeFlag]
puts "substr = $substr, sb contains: [CkStringBuilder_getAsString $sb]"
}
# Output:
# substr = 444, sb contains: 111--222--333
# substr = 333, sb contains: 111--222
# substr = 222, sb contains: 111
# substr = 111, sb contains:
#
delete_CkStringBuilder $sb
|
