[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 精确截取文本--CUT工具

C:\Users\Administrator\Desktop>cut /?
截取文本文件的内容

CUT FILENAME 首关键字 尾关键字

返回内容:掐头去尾留中间


无聊之作,希望造福大家   呵呵,采用易语言编写,功能基本上都是收集的。。。。
程序太大了,上传不了。易语言编出来的都很大,没办法呀,只有外链了。。

115下载传送门

本帖最后由 ivor 于 2012-2-13 21:46 编辑

这里声明一下虽然这不是讨论E语言的地方,虽然这不是好代码,虽然这是批处理论坛。
但是希望大家学习一下E语言,毕竟也是个编程语言,而不是脚本语言。
也因为易语言误报严重,大家用的不放心,可以拿回去自己编译了。
代码我公布了,有兴趣的可以看看   O(∩_∩)O~
  1. .版本 2
  2. .程序集 程序集1
  3. .子程序 _启动子程序, 整数型, 公开, 本子程序在程序启动后最先执行
  4. .局部变量 文件号, 整数型
  5. .局部变量 文本内容, 文本型
  6. .局部变量 Result, 文本型
  7. .局部变量 文件名, 文本型, , "3"
  8. 取命令行 (文件名)
  9. .如果真 (取数组成员数 (文件名) = 0)
  10.     标准输出 (, “截取文本文件的内容” + #换行符)
  11.     返回 (1)
  12. .如果真结束
  13. .如果真 (文件名 [1] = “/?” 或 文件名 [1] = “?”)
  14.     标准输出 (, “截取文本文件的内容” + #换行符 + #换行符)
  15.     标准输出 (, “CUT FILENAME 首关键字 尾关键字” + #换行符 + #换行符)
  16.     标准输出 (, “返回内容:掐头去尾留中间” + #换行符)
  17.     返回 (1)
  18. .如果真结束
  19. .如果真 (取数组成员数 (文件名) ≠ 3)
  20.     标准输出 (, “截取文本文件的内容” + #换行符 + #换行符)
  21.     标准输出 (, “CUT FILENAME 首关键字 尾关键字” + #换行符 + #换行符)
  22.     标准输出 (, “返回内容:掐头去尾留中间” + #换行符)
  23.     返回 (1)
  24. .如果真结束
  25. ' 标准输出 (, 文件名 [1])
  26. ' 标准输出 (, 取数组成员数 (文件名))
  27. 文件号 = 打开文件 (文件名 [1], #读入, #无限制)
  28. .如果真 (文件号 = 0)
  29.     标准输出 (, “打开文件失败”)
  30.     返回 (1)
  31. .如果真结束
  32. ' 标准输出 (, 文件号)
  33. 读入数据 (文件号, 文本内容)
  34. ' 标准输出 (, 文本内容)
  35. Result = 截取文本 (文本内容, 文件名 [2], 文件名 [3])
  36. .如果真 (Result = “”)
  37.     标准输出 (, “没有找到符合的文本”)
  38.     返回 (1)
  39. .如果真结束
  40. 标准输出 (, Result)
  41. 返回 (0)
  42. .子程序 截取文本, 文本型
  43. .参数 文本内容, 文本型
  44. .参数 首关键字, 文本型
  45. .参数 尾关键字, 文本型
  46. .局部变量 起, 整数型
  47. .局部变量 首关键字长度, 整数型
  48. .局部变量 结果, 文本型
  49. .局部变量 止, 整数型
  50. 首关键字长度 = 取文本长度 (首关键字)
  51. 起 = 寻找文本 (文本内容, 首关键字, 1, 假)
  52. 止 = 寻找文本 (文本内容, 尾关键字, 1, 假)
  53. 结果 = 取文本中间 (文本内容, 首关键字长度 + 起, 止 - (首关键字长度 + 起))
  54. 返回 (结果)
复制代码

TOP

还没有360厉害呢,基本新编译的程序都报毒,直接定位文件MD5杀毒省事了

TOP

晕死,似乎易语言写的程序红伞都报毒

TOP

对unix开源的那些软件不太熟悉呀,有空去看看源码

TOP

回复 5# ivor


你可以做一个比那个更强大的嘛

TOP

额    看来我还是删帖吧。。。。

TOP

GNU有现成的cut.exe
http://unxutils.sourceforge.net/

TOP

本帖最后由 ivor 于 2012-2-11 19:27 编辑

好了     文件大小:511.4KB上传日期:2012-02-11 13:59:01分享状态: 已分享

顺便 问下  取剪切板内容的控制台程序有需要的吗,如果有的话我就辛苦一下。没有就算了 , 继续学习 。

windowsde clip只有写入内容剪切板,如果加上取出内容应该很不错吧 = =

TOP

文件没有分享

TOP

返回列表