文本处理问题

永远爱

在一个编辑框内
有几万行文本           每一行都是2-6字的

取文本长度=4的话保留  大于4或者小于4的删除  该怎么写 并且速度最快？

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果真 (取文本长度 (文本 [n]) ＝ 4)
文本2 ＝ 文本2 ＋ #换行符

计次循环尾 ()
编辑框2.内容=文本2

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果真 (取文本长度 (文本 [n]) ＝ 4)<br />         文本2 ＝ 文本2 ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框2.内容=文本2

lyie15

正则+多线程