小白求解读取TXT！

婲㈠样旳ㄝλヽ · 发表于 2012-2-10 22:24:20

我想让程序自动循环读取1.txt里的字符到编辑框1里！是这样的：

1.txt里面有几十行，每次让程序读取一行到编辑框1里面显示，这样顺序读取，读到最后再从第一行开始，这样循环下去直到点击停止！请诸位帮下！！！十分感谢！

不吸烟的青蛙 · 发表于 2012-2-10 22:24:21

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

.程序集窗口程序集1
.程序集变量文件号, 整数型

.子程序 _按钮1_被单击

文件号＝打开文件 (取运行目录 () ＋ “\1.txt”, #读入, )
启动线程 (&读文本, , )

.子程序 _按钮2_被单击

关闭文件 (文件号)
文件号＝ 0

.子程序读文本
.局部变量文本, 文本型
.局部变量次数, 整数型

次数＝ 1
标题＝ “第” ＋到文本 (次数) ＋ “次”
.判断循环首 (文件号 ≠ 0)
.如果真 (是否在文件尾 (文件号, 假))
      次数＝次数＋ 1
      标题＝ “第” ＋到文本 (次数) ＋ “次”
      移到文件首 (文件号)
.如果真结束
文本＝读入一行 (文件号)
编辑框1.加入文本 (文本＋ #换行符)
延时 (100)  ' 控制速度，因为使用了多线程，所以不会影响其他操作的流畅性
.判断循环尾 ()[/e]

E.zip (1.52 KB, 下载次数: 40)

小川先生 · 发表于 2012-2-10 22:30:56

没怎么明白{:3_227:}

布丁` · 发表于 2012-2-10 22:31:10

读取命令行...

婲㈠样旳ㄝλヽ · 发表于 2012-2-10 22:33:34

就是不会啊！5555555555

泉丿丶 · 发表于 2012-2-10 22:44:07

读入文本？

婲㈠样旳ㄝλヽ · 发表于 2012-2-10 22:45:35

{:3_233:}{:3_233:}

大家好呵呵 · 发表于 2012-2-11 06:44:04

我来给你研究下

Ande1983 · 发表于 2012-2-11 10:18:23

还得多多学习啊！！！！！！！！！！

发表于 2012-2-11 11:51:31

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

.程序集窗口程序集1

.子程序取得文本, 文本型, 公开, 取得文本
.参数文本文件路径, 文本型
.局部变量 bin_文件, 字节集

bin_文件＝读入文件 (文本文件路径)
返回 (到文本 (bin_文件))

.子程序循环显示, , 公开, 在编辑框内循环显示
.参数文本, 文本型, 可空
.参数是否停止, 逻辑型
.局部变量 sz_文本, 文本型, , "0"
.局部变量循环变量, 整数型

.如果真 (是否为空 (文本))
文本＝ “精易论坛” ＋ #换行符＋ “新来的小子” ＋ #换行符＋ “循环显示例程”
.如果真结束
' ————————————————————————————————————————————————
sz_文本＝分割文本 (文本, #换行符, )
循环变量＝ 0
.判断循环首 (是否停止＝假)
循环变量＝循环变量＋ 1
输出调试文本 (循环变量)
编辑框1.内容＝ “”
编辑框1.内容＝ sz_文本 [循环变量]
.如果真 (循环变量＝取数组成员数 (sz_文本))
循环变量＝ 0
.如果真结束
延迟 (2000)
.判断循环尾 ()
.如果真 (是否停止＝假)
编辑框1.内容＝ “”
.如果真结束
' 返回 ()

.子程序 _停止_被单击

循环显示 (, 真)

.子程序 _开始_被单击

循环显示 (, 假)

[/e]

补充内容 (2012-2-11 11:55):
那个……如果真 (是否停止＝假)应该改成如果真 (是否停止＝真)

		自动登录	找回密码
密码			注册

[已解决] 小白求解读取TXT！

最佳答案