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

源文本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.内容, #换行符, )
.计次循环尾 ()