(Tcl) StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set sb [new_CkStringBuilder]

CkStringBuilder_Append $sb "<company><industry>Software</industry><name>Chilkat Software</name><abc>Abc Software</abc><name>Xyz Software</name></company>"

# The ReplaceBetween method restricts the replacements to only
# the parts that occur between two delimiter strings.

# For example:
set numReplacements [CkStringBuilder_ReplaceBetween $sb "<name>" "</name>" "Software" "Technology"]

# The number of replacements should be 2.
puts "numReplacements = $numReplacements"

# The sb now contains:
# <company><industry>Software</industry><name>Chilkat Technology</name><abc>Abc Software</abc><name>Xyz Technology</name></company>
puts [CkStringBuilder_getAsString $sb]

delete_CkStringBuilder $sb