正则表达式是一种用于匹配、查找、替换文本中特定模式的工具。在Tcl脚本中,可以使用正则表达式对字符串进行匹配、查找和替换。
regexp
语法:
regexp ?选项? 正则表达式 字符串 ?变量1 变量2 …?
其中,?选项?为可选项,可以省略。正则表达式为要匹配的模式,字符串为要匹配的文本。?变量1 变量2 …?为可选的变量,用于存储匹配结果。
参数说明:
- 选项:用于控制regexp命令的行为,常用的选项有:
- -nocase:忽略大小写匹配。
- -inline:返回匹配结果,而不是返回值。
- 正则表达式:定义匹配模式的字符串,可以使用各种正则表达式元字符和特殊字符。
- 字符串:要匹配的字符串。
- 变量:用于存储匹配结果的变量,可以使用$符号在后续代码中引用。
示例:
1、匹配首尾空格
set str " Tcl Scripting "
regexp {^s*(.*)s*$} $str match result
puts $result
输出:
Tcl Scripting
解释:
- 正则表达式{^s*(.)s$}中,^表示匹配字符串开头,s表示匹配零个或多个空格,(.)表示匹配任意字符任意次,s*$表示匹配零个或多个空格,并匹配字符串结尾。
- regexp命令将$Str与正则表达式进行匹配,匹配结果存储在变量$result中。
- 最终输出变量$result的值。
2、查找字符串中的数字
set str "Tcl Scripting 2020"
regexp -inline {d+} $str match result
puts $result
输出:
2020
解释:
- 正则表达式{d+}中,d表示匹配数字字符,+表示匹配至少一个数字字符。
- 使用了选项-inline,将匹配结果直接返回。
- 最终输出变量$result的值。
3、替换字符串中的单词
set str "Tcl Scripting is fun"
set new_str [regsub -nocase {bisb} $str "is not"]
puts $new_str
输出:
Tcl Scripting is not fun
解释:
- 使用了命令regsub,将字符串$str中的bisb替换成is not。
- 选项-nocase表示忽略大小写匹配。
- 最终输出变量$new_str的值。
4、使用变量存储匹配结果
set str "Tcl Scripting 2020"
set pattern {d+}
regexp $pattern $str match result
puts "Matched: $result"
set start [lindex $result 0]
set end [lindex $result end]
puts "Start position: $start, end position: $end"
输出:
Matched: 2020
Start position: 13, end position: 16
解释:
- 将正则表达式存储在变量$pattern中,方便重复使用。
- 使用regexp命令进行匹配,将匹配结果存储在变量$result中。
- 输出匹配到的数字,使用lindex命令获取匹配结果的起始位置和结束位置。
- 输出匹配结果的起始位置和结束位置。
regsub
语法:
regsub ?-all? ?-nocase? exp string subSpec varName
参数说明:
- -all:可选参数,表示全局替换所有符合正则表达式的匹配项。
- -nocase:可选参数,表示忽略大小写。
- exp:正则表达式。
- string:目标字符串。
- subSpec:替换规则。
- varName:替换后的结果存储在此变量中。
示例:
1、将字符串中的所有数字替换为”#”:
set str "hello123world456"
regsub -all {d} $str "#" result
puts $result
输出:
hello###world###
解释:
d
匹配任何数字,-all
选项表示全局替换。
2、将字符串中的所有空格替换为”_”:
set str "hello world"
regsub {s} $str "_" result
puts $result
输出:
hello_world
解释:
s
匹配任何空白字符,包括空格、制表符、换行符等。由于没有使用-all
选项,只替换了第一个匹配项。
3、将字符串中的所有单词的首字母大写:
set str "hello world"
regsub -all -- {w+} $str {string toupper [string index "&" 0]} result
puts $result
输出:
Hello World
解释:
w+
匹配任何单词,string toupper [string index "&" 0]
表示将匹配到的字符串的首字母大写。由于使用了-all
选项,全局替换。
4、将字符串中的所有”_”后面的字母大写:
set str "hello_world"
regsub -all -- {_([a-z])} $str {string toupper "&"} result
puts $result
输出:
hello_World
解释:
_([a-z])
匹配包含”_”后面一个小写字母的子串,string toupper "&"
将匹配到的子串全部大写。由于使用了-all
选项,全局替换。
5、忽略大小写,将字符串中的所有”abc”替换为”xyz”:
set str "abcABCabC"
regsub -nocase -all {abc} $str "xyz" result
puts $result
输出:
xyzXYZxYz
解释:
-nocase
选项表示忽略大小写。
服务器托管,北京服务器托管,服务器租用 http://www.fwqtg.net
屏幕切换指的是在同一个Activity内屏幕见的切换,最长见的情况就是在一个FrameLayout内有多个页面,比如一个系统设置页面;一个个性化设置页面。 通过查看 OPhone API文档可以发现,有个android.widget.ViewAnimator类…