(Tcl) StringBuilder GetBefore

Demonstrates the StringBuilder.GetBefore method.

The GetBefore method was added in Chilkat v9.5.0.77

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set sb [new_CkStringBuilder]

set success [CkStringBuilder_Append $sb "www.chilkatsoft.com"]

# The GetBefore method returns the contents of the string up to but not including
# the marker string.  If the remove flag is 1, then both the returned string AND
# the marker are removed.
set removeFlag 0
set marker "."
set substr [CkStringBuilder_getBefore $sb $marker $removeFlag]
puts "substr = $substr"
puts "sb contains: [CkStringBuilder_getAsString $sb]"

# Output:
# substr = www
# sb contains: www.chilkatsoft.com

set removeFlag 1
set substr [CkStringBuilder_getBefore $sb $marker $removeFlag]
puts "substr = $substr"
puts "sb contains: [CkStringBuilder_getAsString $sb]"

# Output:
# substr = www
# sb contains: chilkatsoft.com

# If the marker is not found, and the removeFlag is 1,
# then the entire string is returned and the sb is cleared.
# For example:
CkStringBuilder_Clear $sb
CkStringBuilder_Append $sb "111--222--333--444"
set marker "--"
set removeFlag 1
while {[CkStringBuilder_get_Length $sb] > 0} {
    set substr [CkStringBuilder_getBefore $sb $marker $removeFlag]
    puts "substr = $substr, sb contains: [CkStringBuilder_getAsString $sb]"
}

# Output is:
# substr = 111, sb contains: 222--333--444
# substr = 222, sb contains: 333--444
# substr = 333, sb contains: 444
# substr = 444, sb contains: 

delete_CkStringBuilder $sb