HyperWork 2024 -二次开发-正则表达式案例（13/13）
在本系列的前12篇文章中，已经覆盖了常用Tcl语言的基础内容，从变量声明到流程控制，再到函数和命名空间的使用。然而，发了notepad++和ue的正则表达式文章后，就有有小伙伴私信说，对想了解tcl的正则表达式。为了满足这位小伙伴的需求，决定额外增加一篇关于正则表达式的文章，作为本系列的第13篇，也是最后一篇。
1. 匹配邮箱地址
set email "example@example.com"if {[regexp {^[\w\.-]+@[\w\.-]+\.\w+$} $email]} {puts "有效的邮箱地址"} else {puts "无效的邮箱地址"}
2. 匹配电话号码
set phone "(123) 456-7890"if {[regexp {^\(\d{3}\) \d{3}-\d{4}$} $phone]} {puts "有效的电话号码"} else {puts "无效的电话号码"}
3. 匹配网址
set url "https://www.example.com"if {[regexp {^https?://[\w\.-]+\.\w+(/[\w\.-]*)*$} $url]} {puts "有效的网址"} else {puts "无效的网址"}
4. 匹配日期（格式：YYYY-MM-DD）
set date "2024-08-05"if {[regexp {^\d{4}-\d{2}-\d{2}$} $date]} {puts "有效的日期格式"} else {puts "无效的日期格式"}
5. 匹配特定单词（如“苹果”或“香蕉”）
set text "我喜欢苹果和香蕉"if {[regexp {苹果|香蕉} $text]} {puts "文本中含有苹果或香蕉"} else {puts "文本中不含苹果或香蕉"}
6. 行首和行尾添加字符
set line "Hello, World!"set modifiedLine [regsub {^(.*)$} $line {123\1 123}]puts $modifiedLine
7. 匹配空行
set lines {"" "This is a line." ""}foreach line [split $lines \n] {if {[regexp {^\s*$} $line]} {puts "找到空行"} else {puts "找到非空行: $line"}}
8. 匹配 IP 地址
set ip "192.168.1.1"if {[regexp {^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$} $ip]} {puts "有效的IP地址"} else {puts "无效的IP地址"}
9. 匹配只包含字母和数字的字符串
set str "Hello123"if {[regexp {^[a-zA-Z0-9]+$} $str]} {puts "有效的字母数字字符串"} else {puts "无效的字母数字字符串"}
10. 替换字符串中的所有空格为下划线
set text "Hello World This is TCL"set modifiedText [regsub { } $text _]puts $modifiedText ; # 输出: Hello_World_This_is_TCL
11. 匹配并提取文件扩展名
set filename "document.pdf"if {[regexp {^(.+)\.(\w+)$} $filename match name ext]} {puts "文件名: $name"puts "扩展名: $ext"} else {puts "无效的文件名"}
12. 匹配引号内的内容
set text "她说: \"你好，世界！\""if {[regexp {"(.*)"} $text match content]} {puts "引号内的内容: $content"} else {puts "没有找到引号内的内容"}
13.提取姓名、年龄和城市
set str "姓名: 张三, 年龄: 30, 城市: 北京"if {[regexp {姓名:\s*(.+?),\s*年龄:\s*(\d+),\s*城市:\s*(.+)} $str match name age city]} {puts "姓名: $name"puts "年龄: $age"puts "城市: $city"} else {puts "无法提取信息"}
登录后免费查看全文
著作权归作者所有，欢迎分享，未经许可，不得转载
首次发布时间：2024-09-11
最近编辑：1月前
本科
签名征集中
还没有评论
相关推荐
