下面两个子程序可以快速取得某一行:
.子程序 取行文夲, 文本型
.参数 文件名, 文本型
.局部变量 行文本, 文本型
文件号 = 打开文件 (文件名, , )
取字符串数量 (#换行符, 读入文本 (文件号, ), , 全部行位)
.如果真 (是否为空 (荇号))
.如果真 (行号 < 1 或 行号 > 取数组成员数 (全部行位) + 1)
移动读写位置 (文件号, , 1)
移动读写位置 (文件号, , 全部行位 [行号 - 1] + 1)
行文本 = 读入一行 (文件号)
.孓程序 取字符串数量, 整数型, 公开, 查找指定字符串在另一字符串中出现的次数
.参数 欲寻找文本, 文本型
.参数 被寻找文本, 文本型
.参数 区分大小寫, 逻辑型, 可空
.参数 全部位置, , 参考 可空 数组, 用于接收最后找到位置数值的变量。
.如果真 (欲寻找文本 = “”)
.判断循环首 (找到位置 ≠ -1)
找到位置 = 尋找文本 (被寻找文本, 欲寻找文本, 找到位置, 取反 (区分大小写))
计次 = 计次 + 1
加入成员 (全部位置, 找到位置)
找到位置 = 找到位置 + 取文本长度 (欲寻找文本)
|