|
发表于 2011-12-1 00:26:54
|
显示全部楼层
广东省东莞市
本帖最后由 exit11 于 2011-12-1 00:27 编辑
[e].版本 2
.支持库 RegEx
.子程序 _按钮1_被单击
.局部变量 文本, 文本型, , "0"
.局部变量 剪切板, 文本型
.局部变量 文本2, 文本型, , "0"
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"
剪切板 = 取剪辑板文本 ()
文本 = 分割文本 (剪切板, #换行符, )
.如果 (取数组成员数 (文本) = 4)
编辑框2.内容 = 文本 [1]
编辑框3.内容 = 文本 [2]
' 正则分割
正则.创建 (“(.*?), (.*?), (.*?) (\d+)”, )
结果 = 正则.搜索全部 (文本 [3])
.如果真 (取数组成员数 (结果) = 1)
编辑框4.内容 = 结果 [1].取子匹配文本 (文本 [3], 3, ) + 结果 [1].取子匹配文本 (文本 [3], 2, ) + 结果 [1].取子匹配文本 (文本 [3], 1, ) + 结果 [1].取子匹配文本 (文本 [3], 4, )
.如果真结束
' ' 文本分割 两种方法都可以实现
' 文本 [3] = 子文本替换 (文本 [3], “ ”, “,”, , , 真)
' 文本 [3] = 子文本替换 (文本 [3], “,,”, “,”, , , 真)
' 文本2 = 分割文本 (文本 [3], “,”, )
' 编辑框4.内容 = 文本2 [3] + 文本2 [2] + 文本2 [1] + 文本2 [4]
编辑框5.内容 = 文本 [4]
.否则
.如果 (取数组成员数 (文本) ≠ 4)
信息框 (“您复制的格式不正确”, 0, )
.否则
.如果结束
[/e] |
|