求助啊是不是高手都来看看

久炫居士 · 发表于 2011-8-11 14:52:21

本帖最后由久炫居士于 2011-8-11 14:53 编辑

未命名.jpg

[e].版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.参数条数, 文本型, 数组
.参数 n
条数＝分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (条数), n)
.如果真 (寻找文本 (编辑框3.内容, 条数 [n], , 假) ＝ -1)
编辑框2.加入文本 (条数 [n])
跳出循环 ()
.如果真结束
.计次循环尾 ()
延时 (10000)
信息框 (“检测完毕”, 0, )
.子程序 _按钮2_被单击
通用对话框1.打开 ()
编辑框1.内容＝到文本 (读入文件 (通用对话框1.文件名))
[/e]

久炫居士 · 发表于 2011-8-11 14:53:58

[e].版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.参数条数, 文本型, 数组
.参数 n
条数＝分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (条数), n)
.如果真 (寻找文本 (编辑框3.内容, 条数 [n], , 假) ＝ -1)
编辑框2.加入文本 (条数 [n])
跳出循环 ()
.如果真结束
.计次循环尾 ()
延时 (10000)
信息框 (“检测完毕”, 0, )
.子程序 _按钮2_被单击
通用对话框1.打开 ()
编辑框1.内容＝到文本 (读入文件 (通用对话框1.文件名))
[/e]