分割文本 怎么改下代码

山东省菏泽市

谢先生1987111111111
张先生1999222222222


编辑框1的内容等于谢先生

编辑框2的内容等于1987111111111


怎么改下代码呢  还是比如有空格 会自动识别码


目前的代码是
谢先生
1987111111111
以上这个


要改成平铺的 谢先生1987111111111

有dome  文件 上传了微云 https://share.weiyun.com/HPibTvg4

zainex

删全部空:

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
正则	正则表达式

如果真 (剪辑板中可有文本 () ＝ 假)
信息框 (“剪辑板无文本！”, 0, , )
返回 ()
文本 ＝ 删全部空 (取剪辑板文本 ())
正则.创建 (“([^0-9]+)([0-9]+)”, )
数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )
如果 (取数组成员数 (数组) ≥ 2)
编辑框1.内容 ＝ 数组 [1]
编辑框2.内容 ＝ 数组 [2]
信息框 (“复制成功！”, 0, , )
信息框 (“复制失败！”, 0, , )

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> <br /> .如果真 (剪辑板中可有文本 () ＝ 假)<br />     信息框 (“剪辑板无文本！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 删全部空 (取剪辑板文本 ())<br /> 正则.创建 (“([^0-9]+)([0-9]+)”, )<br /> 数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )<br /> .如果 (取数组成员数 (数组) ≥ 2)<br />     编辑框1.内容 ＝ 数组 [1]<br />     编辑框2.内容 ＝ 数组 [2]<br />     信息框 (“复制成功！”, 0, , )<br /> .否则<br />     信息框 (“复制失败！”, 0, , )

山东省菏泽市

.版本 2  .子程序 _按钮1_被单击 .局部变量 文本, 文本型 .局部变量 数组, 文本型, , "0"  .如果真 (剪辑板中可有文本 () ＝ 假)     信息框 (“剪辑板无文本！”, 0, , )     返回 () .如果真结束 文本 ＝ 取剪辑板文本 () 数组 ＝ 分割文本 (文本, #换行符, ) .如果 (取数组成员数 (数组) ≥ 2)     编辑框1.内容 ＝ 数组 [1]     编辑框2.内容 ＝ 数组 [2]     信息框 (“复制成功！”, 0, , )     .否则     信息框 (“复制失败！”, 0, , )

Ruang

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
正则	正则表达式类			精易模块
计次	整数型
文本	文本型

文本 ＝ “谢先生1987111111111” ＋ #换行符 ＋ “张先生1999222222222”
正则.创建 (“([^\s0-9]+)([0-9]+)”, 文本, , , , )
计次循环首 (正则.取匹配数量 (), 计次)
调试输出 (正则.取子匹配文本 (计次, 1, ), 正则.取子匹配文本 (计次, 2, ))  ' 1是姓名2是号码
计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 正则, 正则表达式类, , , 精易模块<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ “谢先生1987111111111” ＋ #换行符 ＋ “张先生1999222222222”<br /> 正则.创建 (“([^\s0-9]+)([0-9]+)”, 文本, , , , )<br /> .计次循环首 (正则.取匹配数量 (), 计次)<br />     调试输出 (正则.取子匹配文本 (计次, 1, ), 正则.取子匹配文本 (计次, 2, ))  ' 1是姓名2是号码<br /> .计次循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

山东省菏泽市

Ruang 发表于 2025-12-26 15:39
[e=3].版本 2
.支持库 spec

能不能改下 用鼠标 右键粘贴

zainex

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
正则	正则表达式

如果真 (剪辑板中可有文本 () ＝ 假)
信息框 (“剪辑板无文本！”, 0, , )
返回 ()
文本 ＝ 取剪辑板文本 ()
正则.创建 (“([^0-9]+)([0-9]+)”, )
数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )
如果 (取数组成员数 (数组) ≥ 2)
编辑框1.内容 ＝ 数组 [1]
编辑框2.内容 ＝ 数组 [2]
信息框 (“复制成功！”, 0, , )
信息框 (“复制失败！”, 0, , )

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> <br /> .如果真 (剪辑板中可有文本 () ＝ 假)<br />     信息框 (“剪辑板无文本！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 取剪辑板文本 ()<br /> 正则.创建 (“([^0-9]+)([0-9]+)”, )<br /> 数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )<br /> .如果 (取数组成员数 (数组) ≥ 2)<br />     编辑框1.内容 ＝ 数组 [1]<br />     编辑框2.内容 ＝ 数组 [2]<br />     信息框 (“复制成功！”, 0, , )<br /> .否则<br />     信息框 (“复制失败！”, 0, , )

效果:

山东省菏泽市

zainex 发表于 2025-12-26 15:44
[e=1].版本 2
.支持库 RegEx

如果 有空格  咋删除啊 空格啊

Ruang

山东省菏泽市 发表于 2025-12-26 15:49
如果 有空格  咋删除啊 空格啊

子文本替换 (, , , , , 真)

zainex

使用时钟组件, 复制后自带粘贴, 兼容空格与换行:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 500

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
正则	正则表达式

如果真 (剪辑板中可有文本 () ＝ 假)
信息框 (“剪辑板无文本！”, 0, , )
返回 ()
文本 ＝ 取剪辑板文本 ()
正则.创建 (“[ \r\n\t]+”, )
文本 ＝ 正则.替换 (文本, “”, 1, , 真, 真)
调试输出 (文本)
正则.创建 (“([^0-9]+)([0-9]+)”, )
数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )
如果 (取数组成员数 (数组) ≥ 2)
编辑框1.内容 ＝ 数组 [1]
编辑框2.内容 ＝ 数组 [2]
信息框 (“复制成功！”, 0, , )
信息框 (“复制失败！”, 0, , )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
临时	文本型
文本	文本型
数组	文本型		0
正则	正则表达式

如果真 (剪辑板中可有文本 () ＝ 假)
返回 ()
临时 ＝ 取剪辑板文本 ()
正则.创建 (“[ \r\n\t]+”, )
临时 ＝ 正则.替换 (临时, “”, 1, , 真, 真)
如果真 (临时 ＝ 文本)
返回 ()
文本 ＝ 临时
正则.创建 (“([^0-9]+)([0-9]+)”, )
数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )
如果真 (取数组成员数 (数组) ≥ 2)
编辑框1.内容 ＝ 数组 [1]
编辑框2.内容 ＝ 数组 [2]

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 500<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> <br /> .如果真 (剪辑板中可有文本 () ＝ 假)<br />     信息框 (“剪辑板无文本！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 取剪辑板文本 ()<br /> 正则.创建 (“[ \r\n\t]+”, )<br /> 文本 ＝ 正则.替换 (文本, “”, 1, , 真, 真)<br /> 调试输出 (文本)<br /> 正则.创建 (“([^0-9]+)([0-9]+)”, )<br /> 数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )<br /> .如果 (取数组成员数 (数组) ≥ 2)<br />     编辑框1.内容 ＝ 数组 [1]<br />     编辑框2.内容 ＝ 数组 [2]<br />     信息框 (“复制成功！”, 0, , )<br /> .否则<br />     信息框 (“复制失败！”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 临时, 文本型<br /> .局部变量 文本, 文本型, 静态<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> <br /> .如果真 (剪辑板中可有文本 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 临时 ＝ 取剪辑板文本 ()<br /> 正则.创建 (“[ \r\n\t]+”, )<br /> 临时 ＝ 正则.替换 (临时, “”, 1, , 真, 真)<br /> .如果真 (临时 ＝ 文本)<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 临时<br /> 正则.创建 (“([^0-9]+)([0-9]+)”, )<br /> 数组 ＝ 分割文本 (正则.替换 (文本, “$1\r\n$2”, 1, , 假, 假), #换行符, )<br /> .如果真 (取数组成员数 (数组) ≥ 2)<br />     编辑框1.内容 ＝ 数组 [1]<br />     编辑框2.内容 ＝ 数组 [2]<br /> .如果真结束

效果:

例子.zip (1.96 KB, 下载次数: 0)

2025-12-26 16:05 上传

点击文件名下载附件