易语言怎么取中间文本

比如有一个编辑框 内容是

pz1-144576114..865454023130233.txt
pz1-1529459086..864674012305881.txt
pz1-1543886748..862688027201184.txt
pz1-1549647484..860623029422340.txt
pz1-1624888721..865919016840600.txt
pz1-1686449700..863261021660547.txt
pz1-1743724335..865803020925930.txt
pz1-1758113519..864837022452213.txt

取完后想让它为
144576114
1529459086
1543886748
1549647484
1624888721
1686449700
1743724335
1758113519

应该怎么写代码啊,麻烦详细点,坐等大神

第1个回答  推荐于2016-09-07
.版本 2

这段代码里的编辑框1中原本的内容就是你说的那段文本,_按钮1_被单击被执行后编辑框1中文本会变成你需要变化到的文本

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 符合条件的文本, 文本型, , "0"
.局部变量 i

取中间文本 (编辑框1.内容, “-”, “.”, 符合条件的文本)
编辑框1.内容 = “”
.计次循环首 (取数组成员数 (符合条件的文本), i)
编辑框1.加入文本 (符合条件的文本 [i], #换行符)
.计次循环尾 ()

.子程序 取中间文本
.参数 文本, 文本型
.参数 左, 文本型
.参数 右, 文本型
.参数 符合条件的文本, 文本型, 参考 数组
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型
.局部变量 文本长度_左, 整数型
.局部变量 文本长度_右, 整数型

文本长度_左 = 取文本长度 (左)
文本长度_右 = 取文本长度 (右)
位置1 = 寻找文本 (文本, 左, , 假)
位置2 = 寻找文本 (文本, 右, 位置1 + 文本长度_左, 假)
清除数组 (符合条件的文本)
.判断循环首 (位置1 ≠ -1 且 位置2 ≠ -1)
加入成员 (符合条件的文本, 取文本中间 (文本, 位置1 + 文本长度_左, 位置2 - 位置1 - 文本长度_左))

位置1 = 寻找文本 (文本, 左, 位置2 + 文本长度_右, 假)
位置2 = 寻找文本 (文本, 右, 位置1 + 文本长度_左, 假)
.判断循环尾 ()本回答被提问者采纳
相似回答