|
楼主 |
发表于 2011-5-23 19:02:52
|
显示全部楼层
重庆市重庆市
airpppp 发表于 2011-5-23 19:00
上源码测试来!
你好 完整源码1楼发布了:
.版本 2
.支持库 spec
.子程序 _按钮2_被单击
.局部变量 分割文本数组, 文本型, , "0"
.局部变量 分析文本, 文本型, , "0"
.局部变量 第一行内容, 文本型
.局部变量 计次, 整数型
.局部变量 nn, 整数型
.局部变量 行数, 整数型
编辑框3.内容 = 编辑框1.内容
.计次循环首 (3, nn)
分析文本 = 分割文本 (编辑框1.内容, #换行符, )
调试输出 (取数组成员数 (分析文本))
.如果真 (取数组成员数 (分析文本) > 0)
编辑框2.加入文本 (分析文本 [1] + #换行符)
编辑框1.内容 = “”
计次 = 0
.判断循环首 (取数组成员数 (分析文本) > 计次 + 1)
计次 = 计次 + 1
编辑框1.加入文本 (分析文本 [计次 + 1] + #换行符)
.判断循环尾 ()
.如果真结束
调试输出 (“发送中..”)
.计次循环尾 ()
编辑框1.内容 = 编辑框3.内容
调试输出 (“ok”)
|
|