读取一个txt文档中的5~10行怎么实现？

summer0411

大家好，想读取一个txt文档内的5~10行（指定行范围）如何实现？

wangjus

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件号	整数型
当前行	整数型
文本内容	文本型
结果文本	文本型

文件号 ＝ 打开文件 (“C:\Users\Administrator\Desktop\123.txt”, , )  ' 替换为实际文件路径
如果真 (文件号 ＝ 0)
信息框 (“文件打开失败，请检查路径是否正确”, 0, , )
返回 ()

当前行 ＝ 1
结果文本 ＝ “”
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
文本内容 ＝ 读入一行 (文件号)
如果 (当前行 ≥ 5 且 当前行 ≤ 10)
结果文本 ＝ 结果文本 ＋ 文本内容 ＋ #换行符
如果 (当前行 ＞ 10)
跳出循环 ()  ' 已超过第10行，提前结束读取




当前行 ＝ 当前行 ＋ 1
判断循环尾 ()
关闭文件 (文件号)
编辑框1.内容 ＝ 结果文本  ' 将结果显示在编辑框中

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 当前行, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 结果文本, 文本型<br /> <br /> 文件号 ＝ 打开文件 (“C:\Users\Administrator\Desktop\123.txt”, , )  ' 替换为实际文件路径<br /> .如果真 (文件号 ＝ 0)<br />     信息框 (“文件打开失败，请检查路径是否正确”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 当前行 ＝ 1<br /> 结果文本 ＝ “”<br /> <br /> .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />     文本内容 ＝ 读入一行 (文件号)<br /> <br />     .如果 (当前行 ≥ 5 且 当前行 ≤ 10)<br />         结果文本 ＝ 结果文本 ＋ 文本内容 ＋ #换行符<br />     .否则<br />         .如果 (当前行 ＞ 10)<br />             跳出循环 ()  ' 已超过第10行，提前结束读取<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     当前行 ＝ 当前行 ＋ 1<br /> .判断循环尾 ()<br /> <br /> 关闭文件 (文件号)<br /> 编辑框1.内容 ＝ 结果文本  ' 将结果显示在编辑框中

dwcq

读入文件  分割文本 分隔符 #换行符 不就行了  

苏汉UI设计

读入文本
然后取变量文本行

文本_取指定变量文本行(, )

dwcq

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 分隔文本, 文本型, , "0"
.局部变量 分割文本, 整数型
.局部变量 i, 整数型

分隔文本 ＝ 分割文本 (读入文件 (取当前目录 () ＋ “\123.txt”), #换行符, )
.计次循环首 (取数组成员数 (分割文本), i)
    .如果真 (i ＞ 4 且 i ＜ 11)
        输出调试文本 (分隔文本 [i])
    .如果真结束

.计次循环尾 ()

半睡半醒

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 行文本, 文本型, , "0"
.局部变量 文本内容, 文本型
.局部变量 行号, 整数型

文本内容 ＝ 到文本 (编码_编码转换对象 (读入文件 (取运行目录 () ＋ “\信息.txt”), , , ))
文本_分割文本 (文本内容, #常量_回车符, , 行文本)
.变量循环首 (5, 10, 1, 行号)
    调试输出 (行文本 [行号])
.变量循环尾 ()

半睡半醒

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
行文本	文本型		0
文本内容	文本型
行号	整数型

文本内容 ＝ 到文本 (编码_编码转换对象 (读入文件 (取运行目录 () ＋ “\信息.txt”), , , ))
文本_分割文本 (文本内容, #常量_回车符, , 行文本)
变量循环首 (3, 5, 1, 行号)
调试输出 (行文本 [行号])
变量循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 行文本, 文本型, , "0"<br /> .局部变量 文本内容, 文本型<br /> .局部变量 行号, 整数型<br /> <br /> 文本内容 ＝ 到文本 (编码_编码转换对象 (读入文件 (取运行目录 () ＋ “\信息.txt”), , , ))<br /> 文本_分割文本 (文本内容, #常量_回车符, , 行文本)<br /> .变量循环首 (3, 5, 1, 行号)<br />     调试输出 (行文本 [行号])<br /> .变量循环尾 ()

瀚海

文本_取指定文件文本行 (, )

houtian

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (子程序1 (“D:\Desktop\123.txt”))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

变量名	类 型	静态	数组	备 注
局_文本	文本型
i	整数型
局_位置	整数型
局_开始位置	整数型
局_返回文本	文本型

局_文本 ＝ 到文本 (读入文件 (文件名))
局_位置 ＝ -1
计次循环首 (10, i)
局_位置 ＝ 寻找文本 (局_文本, #换行符, 局_位置 ＋ 1, 假)
如果真 (i ＝ 4)
局_开始位置 ＝ 局_位置

计次循环尾 ()
局_返回文本 ＝ 取文本中间 (局_文本, 局_开始位置 ＋ 2, 局_位置 － 局_开始位置 － 2)
返回 (局_返回文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 (“D:\Desktop\123.txt”))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 文件名, 文本型<br /> .局部变量 局_文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_开始位置, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 局_文本 ＝ 到文本 (读入文件 (文件名))<br /> 局_位置 ＝ -1<br /> .计次循环首 (10, i)<br />     局_位置 ＝ 寻找文本 (局_文本, #换行符, 局_位置 ＋ 1, 假)<br />     .如果真 (i ＝ 4)<br />         局_开始位置 ＝ 局_位置<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局_返回文本 ＝ 取文本中间 (局_文本, 局_开始位置 ＋ 2, 局_位置 － 局_开始位置 － 2)<br /> 返回 (局_返回文本)