Board logo

标题: [文本处理] 精确截取文本--CUT工具 [打印本页]

作者: ivor    时间: 2012-2-11 13:59     标题: 精确截取文本--CUT工具

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

CUT FILENAME 首关键字 尾关键字

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


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

115下载传送门
作者: coolrat    时间: 2012-2-11 18:29

文件没有分享
作者: ivor    时间: 2012-2-11 19:24

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

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

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

windowsde clip只有写入内容剪切板,如果加上取出内容应该很不错吧 = =
作者: find    时间: 2012-2-12 19:26

GNU有现成的cut.exe
http://unxutils.sourceforge.net/
作者: ivor    时间: 2012-2-12 19:29

额    看来我还是删帖吧。。。。
作者: find    时间: 2012-2-12 19:31

回复 5# ivor


你可以做一个比那个更强大的嘛
作者: ivor    时间: 2012-2-12 19:54

对unix开源的那些软件不太熟悉呀,有空去看看源码
作者: 1e3e    时间: 2012-2-13 21:10

晕死,似乎易语言写的程序红伞都报毒
作者: ivor    时间: 2012-2-13 21:25

还没有360厉害呢,基本新编译的程序都报毒,直接定位文件MD5杀毒省事了
作者: ivor    时间: 2012-2-13 21:44

本帖最后由 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. 返回 (结果)
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2