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

30元批处理,对txt文本进行分句

①按照文章中出现的,【句号、分号、逗号、感叹号、问号、或者其他】进行分句
最好可以点开批处理后首次出现要求输入哪些符合,也就是自定义输入,比如这次输入的是【,和?】 下次可能是【!和;】

②分句后的结果  一行一行的 输出到新的文本里

报酬方式:支付宝

★ 作为批处理长期论坛的用户 , 虽然脑子极度不开化,  对技术层面一知半解(只停留在依葫芦画瓢的基础上) , 但是还是成长了好多 , 见识了很多大神,  今天给批处理论坛捐助了一点心意 !  感谢这么些年的一直坚持! 希望越办越好!
有创新,多创新;无创新,多模仿;无模仿,多坚持

本帖最后由 pcl_test 于 2015-5-17 08:30 编辑

vbs
  1. Dim fso,File1,File2,MyArr,regEx
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set File1= fso.OpenTextFile(".\测试.txt", 1 , True)
  4. Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,False)
  5. restr=InputBox("请输入分隔符(输入多个以空格相隔)")
  6. MyArr=Split(restr)
  7. For i=0 to ubound(MyArr)
  8. MyArr(i)="\"&MyArr(i)
  9. Next
  10. Set regEx=new regexp
  11. regEx.global=true
  12. regEx.ignorecase=true
  13. Do While File1.AtEndOfStream <> True
  14. str=File1.readLine
  15. For i=0 to ubound(MyArr)
  16. regEx.pattern=MyArr(i)
  17. str= regEx.Replace(str, vbCrLf)
  18. Next
  19. File2.WriteLine str
  20. Loop
  21. Set regEx=nothing
  22. File1.Close
  23. File2.Close
  24. MsgBox "完成!"  
复制代码

TOP

bat + 第三方工具
  1. <!-- :
  2. @echo off
  3. mshta "%~f0"
  4. ::输入单个分隔符,格式为\符号,如\;
  5. ::输入多个分隔符,格式为\符号\符号,如\;\.\。
  6. set /p s=请输入分隔符:
  7. sed -i "s/[%s%]/\n\r/g" "测试.txt"
  8. ::自行下载地址http://batch-cn.qiniudn.com/tool/sed.exe
  9. pause
  10. -->
  11. <script src=http://bbs.bathome.net/lib/diy/hide.js></script>
  12. <script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
  13. <script>Tools.get('sed')</script>
复制代码

TOP

回复 2# pcl_test


    你好 ,少校 ,我刚刚测试了一下 这个vbs , 好像有一个小bug!
我们不是写文章的时候通常都喜欢分段的时候前面空格吗?估计问题就出在这里..
有创新,多创新;无创新,多模仿;无模仿,多坚持

TOP

回复 4# fanfande


    已在2楼修改

TOP

返回列表