这样的文本怎么分割 (续集）

exit11 · 发表于 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]

孤独爱恋 · 发表于 2011-12-1 00:31:52

看看是不是你要的，但是没做判断哦，自己判断下

doudou4631 · 发表于 2011-12-1 00:32:50

这个样子？

新建 360压缩.zip (1.15 KB, 下载次数: 2)

特殊字符 · 发表于 2011-12-1 00:42:57

.版本 2
.支持库 spec

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量文本, 文本型, , "0"
.局部变量剪切板, 文本型
.局部变量省, 文本型
.局部变量省1, 文本型
.局部变量市, 文本型
.局部变量区, 文本型
.局部变量县, 文本型
.局部变量镇, 文本型
.局部变量区号, 文本型
.局部变量文本2, 文本型, , "0"
.局部变量文本3, 文本型, , "0"
.局部变量 N, 整数型
.局部变量省0, 文本型, , "0"
.局部变量 a区号, 文本型
.局部变量省3, 文本型

文本＝分割文本 (编辑框5.内容, #换行符, )
编辑框1.内容＝文本 [1]
编辑框4.内容＝文本 [4]
文本2 ＝分割文本 (文本 [3], “,”, )
调试输出 (文本2)
省＝文本2 [3]
省0 ＝分割文本 (删首尾空 (省), “ ”, )
省3 ＝省0 [1]
调试输出 (省3 ＋ “    省3 |”)
a区号＝省0 [2]
调试输出 (a区号＋ “    a区号 |”)
市＝文本2 [2]
调试输出 (市＋ “       市 |”)
区＝文本2 [1]
调试输出 (区＋ “       区 |”)
编辑框2.内容＝删全部空 (省3 ＋市＋区＋文本 [2])
编辑框3.内容＝ a区号

这样的文本怎么分割 (续集）.zip (1.57 KB, 下载次数: 0)

		自动登录	找回密码
密码			注册

[已解决] 这样的文本怎么分割 (续集）

浏览过的版块