(Tcl) StringBuilder ReplaceBetween
Demonstrates the ReplaceBetween method.
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
|
