字符串的相關(guān)知識(shí)

TCL 中的數(shù)據(jù)類型只有一種：字符串。這些字符串可以是字母、數(shù)字、布爾值、標(biāo)點(diǎn)符號(hào)等特殊字符的組合。在某些特殊命令的作用下，字符串可以向其他數(shù)據(jù)類型轉(zhuǎn)換。下面將系統(tǒng)的講解或回顧下字符串的相關(guān)知識(shí)。

基本定義

字符串不包含空格等特殊字符時(shí)，可以不使用雙引號(hào)。

字符串包含空格時(shí)，可以使用雙引號(hào)、大括號(hào)，也可以使用反斜杠進(jìn)行轉(zhuǎn)義。

字符串包含特殊字符時(shí)，可以使用引號(hào)加反斜杠轉(zhuǎn)義，也可以使用大括號(hào)。大括號(hào)內(nèi)所有的特殊字符都是普通字符，不做任何處理。

# 無特殊符號(hào)，不使用雙引號(hào)或大括號(hào)
set str_noquote Hello_world
# 有特殊符號(hào)使用雙引號(hào)
set str_space1 "Hello world !"
# 有空格，使用 \\ 反斜杠
set str_space2 Hello\\ world\\ !
# 有其他特殊符號(hào)，使用“雙引號(hào)+反斜杠”，或直接使用大括號(hào)
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

常用的反斜杠置換（轉(zhuǎn)義序列）陳列如下：

字符串拼接

使用 append 命令可以將多個(gè)字符串進(jìn)行拼接。

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


#% I have a good friend!

字符串格式

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

format 使用示例如下：

puts "28 in string: [format %s 28]"
# 還可以加入其他需要打印的字符
puts [format "0x32 in char: %c" 0x32]
# 一次性指定多個(gè)模式時(shí)，需要使用雙引號(hào)
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 命令可以解析一個(gè)字符串的格式并賦值給變量。返回值為成功轉(zhuǎn)換的個(gè)數(shù)。

整數(shù)賦值格式示例如下：

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

多個(gè)字符/字符串賦值格式示例如下：

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 逆操作，能從字符串中提取出相應(yīng)格式的數(shù)據(jù)。

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"
# 按字符解析并賦值，只賦值第一個(gè)字符“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