Tcl - 字符串(Strings)

Tcl的原始数据类型是字符串，这些字符串可以包含字母数字字符，仅数字，布尔值甚至二进制数据，Tcl使用16位Unicode字符，字母数字字符可以包含字母，包括非拉丁字符，数字或标点符号。

字符串表示

与其他语言不同，在Tcl中，当它只是一个单词时，不需要双引号。一个例子可以是-

#!/usr/bin/tclsh

set myVariable hello
puts $myVariable

执行以上代码后，将产生以下输出-

hello

当无涯教程要表示多个字符串时，可以使用双引号或花括号。它显示如下-

#!/usr/bin/tclsh

set myVariable "hello world"
puts $myVariable
set myVariable {hello world}
puts $myVariable

执行以上代码后，将产生以下输出-

hello world
hello world

字符串转义符号

字符文字可以是普通字符(例如'x')，转义序列(例如'\t')或通用字符(例如'\u02C0')。

以下是显示一些转义序列字符的示例-

#!/usr/bin/tclsh

puts "Hello\tWorld\n\nLearnfk";

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Hello   World

Learnfk

字符串函数

下表列出了字符串函数列表-

下面给出一些常用的Tcl字符串子命令的示例。

字符串比较

#!/usr/bin/tclsh

set s1 "Hello"
set s2 "World"
set s3 "World"
puts [string compare s1 s2]
if {[string compare s2 s3] == 0} {
   puts "String\'s1\' and\'s2\' are same."; 
} 

if {[string compare s1 s2] == -1} {
   puts "String\'s1\' comes before\'s2\'.";
}

if {[string compare s2 s1] == 1} {
   puts "String\'s2\' comes after\'s1\'.";
}

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

-1
String 's1' comes before 's2'.
String 's2' comes after 's1'.

字符串索引

#!/usr/bin/tclsh

set s1 "Hello World"
set s2 "o"
puts "First occurrence of $s2 in s1"
puts [string first $s2 $s1]
puts "Character at index 0 in s1"
puts [string index $s1 0]
puts "Last occurrence of $s2 in s1"
puts [string last $s2 $s1]
puts "Word end index in s1"
puts [string wordend $s1 20]
puts "Word start index in s1"
puts [string wordstart $s1 20]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

First occurrence of o in s1
4
Character at index 0 in s1
H
Last occurrence of o in s1
7
Word end index in s1
11
Word start index in s1
6

字符串长度

#!/usr/bin/tclsh

set s1 "Hello World"
puts "Length of string s1"
puts [string length $s1]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Length of string s1
11

字符串转换

#!/usr/bin/tclsh

set s1 "Hello World"
puts "Uppercase string of s1"
puts [string toupper $s1]
puts "Lowercase string of s1"
puts [string tolower $s1]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Uppercase string of s1
HELLO WORLD
Lowercase string of s1
hello world

字符串删除

#!/usr/bin/tclsh

set s1 "Hello World"
set s2 "World"
puts "Trim right $s2 in $s1"
puts [string trimright $s1 $s2]

set s2 "Hello"
puts "Trim left $s2 in $s1"
puts [string trimleft $s1 $s2]

set s1 " Hello World "
set s2 " "
puts "Trim characters s1 on both sides of s2"
puts [string trim $s1 $s2]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Trim right World in Hello World
Hello 
Trim left Hello in Hello World
 World
Trim characters s1 on both sides of s2
Hello World

字符串匹配

#!/usr/bin/tclsh

set s1 "test@test.com" 
set s2 "*@*.com"
puts "Matching pattern s2 in s1"
puts [string match "*@*.com" $s1 ]
puts "Matching pattern tcl in s1"
puts [string match {tcl} $s1]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Matching pattern s2 in s1
1
Matching pattern tcl in s1
0

字符串追加

#!/usr/bin/tclsh

set s1 "Hello" 
append s1 " World"
puts $s1

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

Hello World

字符串格式化

下表显示了Tcl中可用的格式说明符列表-

一些简单的例子如下-

#!/usr/bin/tclsh

puts [format "%f" 43.5]
puts [format "%e" 43.5]
puts [format "%d %s" 4 tuts]
puts [format "%s" "Tcl Language"]
puts [format "%x" 40]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

43.500000
4.350000e+01
4 tuts
Tcl Language
28

Scan 指令

#!/usr/bin/tclsh

puts [scan "90" {%[0-9]} m]
puts [scan "abc" {%[a-z]} m]
puts [scan "abc" {%[A-Z]} m]
puts [scan "ABC" {%[A-Z]} m]

编译并执行上述代码后，将产生以下输出-

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-strings.html

来源：LearnFk无涯教程网

1
1
0
1