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

fanfande · 发表于 2015-5-16 08:37:20

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

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

报酬方式:支付宝

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

pcl_test · 发表于 2015-5-16 14:24:41

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

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 · 发表于 2015-5-16 14:54:29

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 · 发表于 2015-5-17 07:02:23

回复 2# pcl_test

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

pcl_test · 发表于 2015-5-17 08:30:08

回复 4# fanfande

已在2楼修改

		自动登录	找回密码
密码			注册

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