TCL 中的數據類型只有一種：字符串。這些字符串可以是字母、數字、布爾值、標點符號等特殊字符的組合。在某些特殊命令的作用下，字符串可以向其他數據類型轉換。下面將系統的講解或回顧下字符串的相關知識。

基本定義

字符串不包含空格等特殊字符時，可以不使用雙引號。

字符串包含空格時，可以使用雙引號、大括號，也可以使用反斜杠進行轉義。

字符串包含特殊字符時，可以使用引號加反斜杠轉義，也可以使用大括號。大括號內所有的特殊字符都是普通字符，不做任何處理。

# 無特殊符號，不使用雙引號或大括號
set str_noquote Hello_world
# 有特殊符號使用雙引號
set str_space1 "Hello world !"
# 有空格，使用 \\ 反斜杠
set str_space2 Hello\\ world\\ !
# 有其他特殊符號，使用“雙引號+反斜杠”，或直接使用大括號
set str_schar1 "\\$1 = 6.6 RMB"
set str_schar2 {$1 = 6.6 RMB}


puts $str_noquote
puts $str_space1
puts $str_space2
puts $str_schar1
puts $str_schar2
#% Hello_world
#% Hello world !
#% Hello world !
#% $1 = 6.6 RMB
#% $1 = 6.6 RMB

常用的反斜杠置換（轉義序列）陳列如下：

字符串拼接

使用 append 命令可以將多個字符串進行拼接。

set str "I have "
set str_append "a "
append str $str_append "good friend!"
puts $str


#% I have a good friend!

字符串格式

使用 format 命令可以設置字符串格式，常用格式說明如下。

format 使用示例如下：

puts "28 in string: [format %s 28]"
# 還可以加入其他需要打印的字符
puts [format "0x32 in char: %c" 0x32]
# 一次性指定多個模式時，需要使用雙引號
puts "28 in hex and bin: [format "0b%b 0x%x" 28 28]"
puts "0x1c in dec: [format %d 0x1c]"
puts "0.035 in float: [format %1f 0.035]"
puts "0.035 in exponent: [format %e 0.035]"


#% 28 in string: 28
#% 0x32 in char: 2
#% 28 in hex and bin: 0b11100 0x1c
#% 0x1c in dec: 28
#% 0.035 in float: 0.035000
#% 0.035 in exponent: 3.500000e-02

字符串解析

使用 scan 命令可以解析一個字符串的格式并賦值給變量。返回值為成功轉換的個數。

整數賦值格式示例如下：

# 輸入為整數，賦值成功
set flag [scan "1314" {%[0-9]} var1]
puts "var is: $var1, and success flag: $flag"
# 輸入為整數，格式要求為 a-z, 賦值失敗，var2 變量不存在
set flag [scan "1314" {%[a-z]} var2]
puts "success flag: $flag"
#% var is: 1314, and success flag: 1
#% success flag: 0

多個字符/字符串賦值格式示例如下：

set flag [scan "forever" {%[0-9]} var3]
puts "success flag: $flag"
set flag [scan "forever" {%[A-Z]} var4]
puts "success flag: $flag"
# 輸入小寫字母
set flag [scan "forever" {%[a-z]} var5]
puts "var is: $var5, and success flag: $flag"


#% success flag: 0
#% success flag: 0
#% var is: forever, and success flag: 1

scan 更像是 format 逆操作，能從字符串中提取出相應格式的數據。

set flag [scan "28 in hex and bin: 0b11100 0x1c"  \\
               "%d in hex and bin: 0b%b 0x%x"     \\
               var_dec var_bin var_hex]
puts "var is: $var_dec $var_bin $var_hex"
# 按字符解析并賦值，只賦值第一個字符“h”
set flag [scan "hde" "%c" var7]
puts "var is: $var7, and success flag: $flag"


#% var is: 28 28 28
#% var is: 104, and success flag: 1