精易论坛
标题:
去出文本并删除已取出文本
[打印本页]
作者:
newxhk
时间:
2017-7-18 20:32
标题:
去出文本并删除已取出文本
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 源文本1, 文本型, , "0"
.局部变量 源文本2, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 子文本, 文本型
源文本1 ＝ 分割文本 (编辑框1.内容, #换行符, )
复制数组 (源文本2, 源文本1)
.计次循环首 (取数组成员数 (源文本1), i)
子文本 ＝ 源文本1
编辑框2.内容 ＝ 编辑框2.内容 ＋ 取文本左边 (子文本, 4)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 取文本右边 (子文本, 4)
编辑框1.内容 ＝ “”
a ＝ 取数组成员数 (源文本2)
.变量循环首 (2, a, 1, b)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 源文本2
＋ #换行符
.变量循环尾 ()
延迟 (2000)
源文本2 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环尾 ()
在论坛的问答区看到了这样的问题，然后就自己尝试写了一下。希望能帮助到别人然后能指出我的不足。
问答区原贴：分割文本遇到难处，求解答
http://125.confly.eu.org/forum.php?mod=viewthread&tid=14045607
(出处: 精易论坛)
作者:
epwne
时间:
2017-7-21 23:48
正好需要，下了！！
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4