(Tcl) StringBuilder SetNth
Demonstrates the SetNth method.
load ./chilkat.dll
# The SetNth method is handy for setting a part of a delimited string.
# For example:
set sb [new_CkStringBuilder]
CkStringBuilder_Append $sb "red,blue,\"green,purple\",,yellow"
set delimiterChar ","
set exceptDoubleQuoted 1
set exceptEscaped 1
CkStringBuilder_SetNth $sb 2 "magenta" $delimiterChar $exceptDoubleQuoted $exceptEscaped
# Prints "red,blue,magenta,,yellow"
puts [CkStringBuilder_getAsString $sb]
CkStringBuilder_SetNth $sb 3 "orange" $delimiterChar $exceptDoubleQuoted $exceptEscaped
# Prints "red,blue,magenta,orange,yellow"
puts [CkStringBuilder_getAsString $sb]
# What happens if we start with an empty string?
CkStringBuilder_Clear $sb
CkStringBuilder_SetNth $sb 2 "apple" $delimiterChar $exceptDoubleQuoted $exceptEscaped
# Prints ",,apple"
puts [CkStringBuilder_getAsString $sb]
CkStringBuilder_SetNth $sb 0 "orange" $delimiterChar $exceptDoubleQuoted $exceptEscaped
# Prints "orange,,apple"
puts [CkStringBuilder_getAsString $sb]
CkStringBuilder_SetNth $sb 1 "banana" $delimiterChar $exceptDoubleQuoted $exceptEscaped
# Prints "orange,banana,apple"
puts [CkStringBuilder_getAsString $sb]
delete_CkStringBuilder $sb
|
