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

fanfande

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

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

报酬方式:支付宝

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

pcl_test

vbs

Dim fso,File1,File2,MyArr,regEx
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1= fso.OpenTextFile(".\测试.txt", 1 , True)
Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,False)
restr=InputBox("请输入分隔符(输入多个以空格相隔)")
MyArr=Split(restr)
For i=0 to ubound(MyArr)
MyArr(i)="\"&MyArr(i)
Next
Set regEx=new regexp
regEx.global=true
regEx.ignorecase=true
Do While File1.AtEndOfStream <> True
str=File1.readLine
For i=0 to ubound(MyArr)
regEx.pattern=MyArr(i)
str= regEx.Replace(str, vbCrLf) 
Next
File2.WriteLine str
Loop
Set regEx=nothing
File1.Close
File2.Close
MsgBox "完成！"  
复制代码

pcl_test

bat + 第三方工具

<!-- :
@echo off
mshta "%~f0"
::输入单个分隔符，格式为\符号，如\;
::输入多个分隔符，格式为\符号\符号，如\;\.\。
set /p s=请输入分隔符：
sed -i "s/[%s%]/\n\r/g" "测试.txt"
::自行下载地址http://batch-cn.qiniudn.com/tool/sed.exe
pause
-->

<script src=http://bbs.bathome.net/lib/diy/hide.js></script>
<script src=http://bbs.bathome.net/lib/diy/Tools.js></script>

<script>Tools.get('sed')</script>
复制代码

fanfande

回复 2# pcl_test


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

pcl_test

回复 4# fanfande


    已在2楼修改