51Testing软件测试论坛

标题: tcl regexp求助 [打印本页]

作者: xkwwm 时间: 2010-1-26 18:58
标题: tcl regexp求助
请问如何通过regexp将字符串"image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL" 用"::"分隔成：
image
main
src
123://127.0.0.1:8080/images/program3.jpg
click
NULL

小弟初学tcl 还请各位热心帮忙，谢谢！

[ 本帖最后由 xkwwm 于 2010-1-26 19:00 编辑 ]

作者: wolongsuxing 时间: 2010-12-8 15:24
用regexp我不会，但是我是这样解决你的问题的：
set str "image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL";
eval concat [split $str ::];

这样就得到了下面的结果：
image main src 123://127.0.0.1:8080/images/program3.jpg click NULL

作者: wn0112 时间: 2011-4-25 17:31
set str image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL
set result [ regsub -all {::} $str "\n" ]
puts $result

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)