循环提取txt里面的内容，一次取一行内容

aismy · 发表于 2011-2-26 00:33:26

1.txt内容：
111
222
333
444
555

我想每次取一行内容到编辑框1

谢谢！

fsjoe · 发表于 2011-2-26 00:33:27

.版本 2

.子程序 _按钮1_被单击
.局部变量文件号, 整数型
.局部变量文本行, 文本型

文件号＝打开文件 (取运行目录 () ＋ “\123.txt”, , )
.判断循环首 (是否在文件尾 (文件号, 假) ＝假)
文本行＝读入一行 (文件号)
编辑框1.加入文本 (文本行＋ #换行符)
.判断循环尾 ()
关闭文件 (文件号)

.子程序 _按钮2_被单击
.局部变量文件号, 整数型
.局部变量文本, 文本型
.局部变量文本数组, 文本型, , "0"
.局部变量行数, 整数型
.局部变量 N, 整数型

文件号＝打开文件 (取运行目录 () ＋ “\123.txt”, , )
文本＝读入文本 (文件号, )
文本数组＝分割文本 (文本, #换行符, )
行数＝取数组成员数 (文本数组)
.计次循环首 (行数, N)
编辑框1.加入文本 (文本数组 [N] ＋ #换行符)
.计次循环尾 ()
关闭文件 (文件号)

尘莫央 · 发表于 2011-2-26 00:48:52

先分割文本后再读入编辑框,这个有人问过了的,去论坛搜索下

fsjoe · 发表于 2011-2-26 02:19:28

提供了两种方式,希望满足你的要求

千年眷恋 · 发表于 2011-2-26 08:05:10

看看，，。。这个我需要呢

w589321 · 发表于 2011-2-26 12:19:05

以#换行符　分割文本,循环读取

503164453 · 发表于 2011-5-29 16:35:30

{:3_226:}看看。

大头MM · 发表于 2011-6-18 23:13:01

果然是好帖，更加谢谢回答的高手

儭妳蟕 · 发表于 2011-6-20 14:05:05

xzcxz豆腐干地方

小小小小 · 发表于 2011-7-11 21:41:36

求教，，，，

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

[已解决] 循环提取txt里面的内容，一次取一行内容

最佳答案

评分