|
发表于 2017-5-13 16:19:47
|
显示全部楼层
海南省白沙黎族自治县
.版本 2
.子程序 取文件行数, 整数型, 公开, 返回指定文件的行数
.参数 文件路径, 文本型
.局部变量 局部文件号, 整数型
.局部变量 局部计次, 整数型
.局部变量 局部行数, 整数型
局部文件号 = 打开文件 (文件路径, , )
移到文件首 (局部文件号)
.判断循环首 (是否在文件尾 (局部文件号, ) = 假)
读入一行 (局部文件号)
局部行数 = 局部行数 + 1
.判断循环尾 ()
返回 (局部行数)
.子程序 取出文件指定的行文本, 文本型, 公开, 成功返回到的文本,失败返回空文本
.参数 文件路径, 文本型, , 文件的绝对路径
.参数 欲取出文本的行号, 整数型, , 比如要取第二行文本就直接输入2
.局部变量 局部文件号, 整数型
.局部变量 局部计次, 整数型
.局部变量 局部行数, 整数型
局部文件号 = 打开文件 (文件路径, , )
移到文件首 (局部文件号)
.判断循环首 (是否在文件尾 (局部文件号, ) = 假)
读入一行 (局部文件号)
局部行数 = 局部行数 + 1
.如果真 (局部行数 = 欲取出文本的行号 - 1)
返回 (读入一行 (局部文件号))
.如果真结束
.判断循环尾 ()
返回 (“”) |
评分
-
参与人数 2 | 精币 +1 |
荣誉 +1 |
收起
理由
|
Hoibben
| |
+ 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
执你
| + 1 |
|
擦 点错了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
查看全部评分
|