易语言读取TXT行数 例如 只读取第一行，或者第二行

版本 2

程序集 窗口程序集1

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

局部变量 a

局部变量 b, 文本型

局部变量 文本数组, 文本型, , "0"

局部变量 c, 整数型

a ＝ 打开文件 (“C:\1txt”, , )

b ＝ 读入文本 (a, )

c ＝ 3 ' 这里是你要读的行数

文本数组 ＝ 分割文本 (b, #换行符, )

判断开始 (c ＞ 取数组成员数 (文本数组))

信息框 (“总行数为：” ＋ 到文本 (取数组成员数 (文本数组)) ＋ “行，不能读取超过” ＋ 到文本 (取数组成员数 (文本数组)) ＋ “行，呵呵！”, 0, )

默认

信息框 (文本数组 [c], 0, )

判断结束

关闭文件 (a)

可以用精易模块中的“文本_逐字分割”命令获取文本指定位置的字符。

1、打开易语言，点击“Windows窗口程序”按钮，然后点击“确定”按钮新建程序：

2、引入精易模块，添加“文本_逐字分割”命令，命令第一个参数为需要获取的文本，第二个参数为返回文字的数组：

3、这时文本会被逐字分割到一个数组中，数组中的文字是字符在文本中的位置，这样就可以获取指定位置的字符了：

版本 2

程序集 窗口程序集1

程序集变量 文本数据, 文本型, , "0"

程序集变量 b, 整数型

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

文本数据 ＝ 分割文本 (读入文本 (打开文件 (取运行目录 () ＋ “\123txt”, , ), ), #换行符, )

b ＝ 1

子程序 _时钟1_周期事件

如果 (b ＝ 取数组成员数 (文本数据) ＋ 1)

时钟1时钟周期 ＝ 0

信息框 (“没有了”, 0, )

否则

编辑框1加入文本 (文本数据 [b] ＋ #换行符)

b ＝ b ＋ 1

如果结束

用到了时钟、编辑框，编辑框要设置属性、按钮等……控件，在这里一时说不清楚，自己去下载源码下来看

源码在下面的论坛地址

自己去下，

>

效果看下图

在窗体中建立个编辑框1，然后可多行，执行以下命令

版本 2

局部变量 temp, 文本型

局部变量 数组, 文本型, , "0"

局部变量 n, 整数型

temp ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123txt”))

数组 ＝ 分割文本 (temp, #换行符, )

计次循环首 (取数组成员数 (数组), n)

编辑框1加入文本（数组[n]）

计次循环尾 ()

版本 2

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

编辑框3是否允许多行 ＝ 真

编辑框3获取焦点 ()

子程序 _编辑框1_按下某键, 逻辑型

参数 键代码, 整数型

参数 功能键状态, 整数型

局部变量 数组, 文本型, , "0"

局部变量 计次, 整数型

如果真 (键代码 ≠ #回车键)

返回 ()

如果真结束

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

计次循环首 (取数组成员数 (数组), 计次)

如果真 (寻找文本 (数组 [计次], 编辑框1内容, , 假) ≠ -1)

编辑框2内容 ＝ 数组 [计次]

跳出循环 ()

如果真结束

计次循环尾 ()

在窗体中建立个编辑框1，然后可多行，

执行以下命令

版本 2 局部变量 文本型 局部变量 数组 文本型 0 局部变量 整数型 ＝ 到文本 读入文件 取运行目录 ＋ “123” 数组 ＝ 分割文本 换行符 计次循环首 取数组成员数 数组 编辑框1加入文本（数组） 计次循环尾

以上就是关于易语言读取TXT行数 例如 只读取第一行，或者第二行全部的内容，包括:易语言读取TXT行数 例如 只读取第一行，或者第二行、易语言中如何取文本指定位置的字符、易语言怎么逐行读取文本等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！