本帖最后由 ivor 于 2012-2-13 21:46 编辑
这里声明一下虽然这不是讨论E语言的地方，虽然这不是好代码，虽然这是批处理论坛。
但是希望大家学习一下E语言，毕竟也是个编程语言，而不是脚本语言。
也因为易语言误报严重，大家用的不放心，可以拿回去自己编译了。
代码我公布了，有兴趣的可以看看 O(∩_∩)O~- .版本 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, 假)
- 结果 ＝ 取文本中间 (文本内容, 首关键字长度 ＋ 起, 止 － (首关键字长度 ＋ 起))
- 返回 (结果)
| 
发表于 2012-2-11 13:59
| 