字符串的相关知识

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