去出文本并删除已取出文本

newxhk

.版本 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

正好需要，下了！！