求大神帮忙文本取中间内容

卡夫卡的熊

需要的内容  是第二列   那16个字符的卡号 ，    前后都有空格  ，求大佬帮忙取出，，到编辑框2去 ，
还有很多这样的数据  手动太费时间了 ，求大佬帮忙

云少i

  

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

变量名	类 型	静态	数组	备 注
局_内容	文本型		0
局_i

局_内容 ＝ 分割文本 (取空白文本 (1) ＋ 编辑框1.内容, #换行符, )
' 调试输出 (局_内容)
' 16 BEIYN0ZMFA5KXVMA  200 200 2025-02-21 17:00:24 0、  删除
计次循环首 (取数组成员数 (局_内容), 局_i)
编辑框2.加入文本 (文本_取出中间文本 (局_内容 [局_i], 字符 (9), 字符 (9), , ) ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_内容, 文本型, , "0"<br /> .局部变量 局_i<br /> <br /> 局_内容 ＝ 分割文本 (取空白文本 (1) ＋ 编辑框1.内容, #换行符, )<br /> ' 调试输出 (局_内容)<br /> ' 16 BEIYN0ZMFA5KXVMA  200 200 2025-02-21 17:00:24 0、  删除<br /> .计次循环首 (取数组成员数 (局_内容), 局_i)<br />     编辑框2.加入文本 (文本_取出中间文本 (局_内容 [局_i], 字符 (9), 字符 (9), , ) ＋ #换行符)<br /> .计次循环尾 ()

BruceJoysky1987

下个附件还要币

xizhihan

声明：我在手机上写代码，不一定准确，也不一定符合要求。
方法1:分割文本
[e=4]s=分割文本（编辑框1.内容，“ ”）编辑框2.内容=s［2］[/e]方法2:正则表达式取16位数字

洋滨

  

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

变量名	类 型	静态	数组	备 注
原始文本	文本型
正则	正则表达式类
卡密	文本型
i	整数型

原始文本 ＝ 编辑框1.内容
正则.创建 (“[0-9a-zA-Z]{16}”, 原始文本, , , , )
计次循环首 (正则.取匹配数量 (), i)
卡密 ＝ 卡密 ＋ 正则.取匹配文本 (i, ) ＋ #换行符
计次循环尾 ()
编辑框2.内容 ＝ 卡密

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原始文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 卡密, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 原始文本 ＝ 编辑框1.内容<br /> 正则.创建 (“[0-9a-zA-Z]{16}”, 原始文本, , , , )<br /> .计次循环首 (正则.取匹配数量 (), i)<br /> <br />     卡密 ＝ 卡密 ＋ 正则.取匹配文本 (i, ) ＋ #换行符<br /> <br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 卡密

江山少主

我欠精币，看上你的精币了~

看一下，是不是这样的。



问题源码.e (959.76 KB, 下载次数: 2)

2025-2-21 23:51 上传

点击文件名下载附件
下载积分: 精币 -1 枚

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
结果	文本型

数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (数组), i)
结果 ＝ 结果 ＋ 取文本右边 (文本_取左边 (数组 [i], 字符 (9) ＋ 字符 (9), ), 16) ＋ #换行符
计次循环尾 ()
编辑框2.内容 ＝ 结果

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (数组), i)<br />     结果 ＝ 结果 ＋ 取文本右边 (文本_取左边 (数组 <i>, 字符 (9) ＋ 字符 (9), ), 16) ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 结果

算法艺术家

  

另一种写法

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
结果	文本型

数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (数组), i)
结果 ＝ 结果 ＋ 取文本中间 (数组 [i], 寻找文本 (数组 [i], 字符 (9), , 假) ＋ 1, 16) ＋ #换行符
计次循环尾 ()
编辑框2.内容 ＝ 结果

另一种写法<br /> .版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (数组), i)<br />     结果 ＝ 结果 ＋ 取文本中间 (数组 <i>, 寻找文本 (数组 <i>, 字符 (9), , 假) ＋ 1, 16) ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 结果

算法艺术家

  

又想出来一种好玩的写法

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

变量名	类 型	静态	数组	备 注
i	整数型
结果	文本型
文本	文本型

文本 ＝ 编辑框1.内容
循环判断首 ()
i ＝ 寻找文本 (文本, 字符 (9), i, 假) ＋ 1
结果 ＝ 结果 ＋ 取文本中间 (文本, i, 16) ＋ #换行符
i ＝ 寻找文本 (文本, #换行符, i, 假) ＋ 1
循环判断尾 (i ≠ 0)
编辑框2.内容 ＝ 结果

又想出来一种好玩的写法<br /> .版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> .循环判断首 ()<br />     i ＝ 寻找文本 (文本, 字符 (9), i, 假) ＋ 1<br />     结果 ＝ 结果 ＋ 取文本中间 (文本, i, 16) ＋ #换行符<br />     i ＝ 寻找文本 (文本, #换行符, i, 假) ＋ 1<br /> .循环判断尾 (i ≠ 0)<br /> 编辑框2.内容 ＝ 结果

算法艺术家

算法艺术家 发表于 2025-2-22 00:33

  

又想出来一种好玩的写法
[/quote]
修复BUG
[e=3].版本 2

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

变量名	类 型	静态	数组	备 注
i	整数型
结果	文本型
文本	文本型

文本 ＝ 编辑框1.内容
循环判断首 ()
i ＝ 寻找文本 (文本, 字符 (9), i ＋ 1, 假)
结果 ＝ 结果 ＋ 取文本中间 (文本, i ＋ 1, 16) ＋ #换行符
i ＝ 寻找文本 (文本, #换行符, i, 假)
循环判断尾 (i ≠ -1)
编辑框2.内容 ＝ 结果

又想出来一种好玩的写法<br /> .版本 2</blockquote></div><br /> 修复BUG<br /> [e=3].版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> .循环判断首 ()<br />     i ＝ 寻找文本 (文本, 字符 (9), i ＋ 1, 假)<br />     结果 ＝ 结果 ＋ 取文本中间 (文本, i ＋ 1, 16) ＋ #换行符<br />     i ＝ 寻找文本 (文本, #换行符, i, 假)<br /> .循环判断尾 (i ≠ -1)<br /> 编辑框2.内容 ＝ 结果