.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, 公开, 本子程序在程序启动后最先执行
.局部变量 文件号, 整数型
.局部变量 文本内容, 文本型
.局部变量 Result, 文本型
.局部变量 文件名, 文本型, , "3"

取命令行 (文件名)
.如果真 (取数组成员数 (文件名) ＝ 0)
    标准输出 (, “截取文本文件的内容” ＋ #换行符)
    返回 (1)
.如果真结束
.如果真 (文件名 [1] ＝ “/?” 或 文件名 [1] ＝ “?”)
    标准输出 (, “截取文本文件的内容” ＋ #换行符 ＋ #换行符)
    标准输出 (, “CUT FILENAME 首关键字 尾关键字” ＋ #换行符 ＋ #换行符)
    标准输出 (, “返回内容：掐头去尾留中间” ＋ #换行符)
    返回 (1)
.如果真结束
.如果真 (取数组成员数 (文件名) ≠ 3)
    标准输出 (, “截取文本文件的内容” ＋ #换行符 ＋ #换行符)
    标准输出 (, “CUT FILENAME 首关键字 尾关键字” ＋ #换行符 ＋ #换行符)
    标准输出 (, “返回内容：掐头去尾留中间” ＋ #换行符)
    返回 (1)
.如果真结束

' 标准输出 (, 文件名 [1])
' 标准输出 (, 取数组成员数 (文件名))
文件号 ＝ 打开文件 (文件名 [1], #读入, #无限制)
.如果真 (文件号 ＝ 0)
    标准输出 (, “打开文件失败”)
    返回 (1)
.如果真结束
' 标准输出 (, 文件号)
读入数据 (文件号, 文本内容)
' 标准输出 (, 文本内容)
Result ＝ 截取文本 (文本内容, 文件名 [2], 文件名 [3])
.如果真 (Result ＝ “”)
    标准输出 (, “没有找到符合的文本”)
    返回 (1)

.如果真结束
标准输出 (, Result)
返回 (0)


.子程序 截取文本, 文本型
.参数 文本内容, 文本型
.参数 首关键字, 文本型
.参数 尾关键字, 文本型
.局部变量 起, 整数型
.局部变量 首关键字长度, 整数型
.局部变量 结果, 文本型
.局部变量 止, 整数型

首关键字长度 ＝ 取文本长度 (首关键字)
起 ＝ 寻找文本 (文本内容, 首关键字, 1, 假)
止 ＝ 寻找文本 (文本内容, 尾关键字, 1, 假)
结果 ＝ 取文本中间 (文本内容, 首关键字长度 ＋ 起, 止 － (首关键字长度 ＋ 起))
返回 (结果)
复制代码