如何让这段代码精简一些？

aismy

.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 是否修改_循环读文本, 逻辑型, , , _循环读文本
.程序集变量 文本数组_循环读文本, 文本型, , "0", _循环读文本
.程序集变量 数组成员数_循环读文本, 整数型, , , _循环读文本
.程序集变量 地址个数, 整数型
.子程序 _按钮2_被单击
.局部变量 点击次数_循环读文本, 整数型, 静态
.局部变量 文本_循环读文本, 文本型
.局部变量 计次删除账号_循环读文本, 整数型
.局部变量 分析文本账号_循环读文本, 文本型, , "0"
.局部变量 显示文本_循环读文本, 文本型, , "0"
.如果真 (是否修改_循环读文本 ＝ 假)
    文本数组_循环读文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
    数组成员数_循环读文本 ＝ 取数组成员数 (文本数组_循环读文本)
    调试输出 (“数组成员数_循环读文本：” ＋ 到文本 (数组成员数_循环读文本))
    点击次数_循环读文本 ＝ 1
    是否修改_循环读文本 ＝ 真
.如果真结束
.如果 (点击次数_循环读文本 ＜ 数组成员数_循环读文本)
    文本_循环读文本 ＝ 文本数组_循环读文本 [点击次数_循环读文本]
    调试输出 (“文本1：” ＋ 到文本 (文本_循环读文本))
    点击次数_循环读文本 ＝ 点击次数_循环读文本 ＋ 1  ' 计次点击
.否则
    文本_循环读文本 ＝ 文本数组_循环读文本 [点击次数_循环读文本]
    调试输出 (“文本2：” ＋ 到文本 (文本_循环读文本))
    点击次数_循环读文本 ＝ 1


----------------------------

上面代码功能是：循环读取编辑框1里面的每行内容，每点一次，读取一行，循环读取！

上面是自己写的代码，感觉有更精简的思路或代码，求高手帮忙，谢谢！

小马过河

[e].版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 文本数组, 文本型, , "0"

.子程序 _按钮1_被单击
.局部变量 行, , 静态

.如果 (行 ≤ 取数组成员数 (文本数组) 且 行 ≠ 0)
    调试输出 (文本数组 [行])
    行 ＝ 行 ＋ 1
.否则
    调试输出 (文本数组 [1])
    行 ＝ 2
.如果结束


.子程序 __启动窗口_创建完毕

文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )

[/e]

讲不出再见

写到模块里，一个命令就行了

易语言0011

{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}

易客

#换行符
{:3_234:}直接取编辑框1.内容不行吗？

大家好呵呵

哈哈   我现在源码还编不出来呢！

猪哥亮

小马过河 发表于 2012-2-2 14:59

手机上的…
程序集变量
文本型  文本数组  数组
整数型  I
启动窗口
如果真（编辑框内容≠空）
   文本数组＝分割文本（编辑框内容）

按钮
I=I＋1
如果真（I>取数组成员数）
   I＝0

调试输出（文本数组〔I〕）