(Tcl) StringBuilder SetNth

Demonstrates the SetNth method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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