Tcl

StringBuilder GetAfterFinal

Demonstrates the StringBuilder.GetAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

Tcl

load ./chilkat.dll

set success 0

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