批处理之家 - Powered by Discuz! Board

标题: 30元批处理，对txt文本进行分句 [打印本页]

作者: fanfande 时间: 2015-5-16 08:37 标题: 30元批处理，对txt文本进行分句

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

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

报酬方式:支付宝

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

作者: pcl_test 时间: 2015-5-16 14:24

本帖最后由 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

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

回复 2# pcl_test

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

作者: pcl_test 时间: 2015-5-17 08:30

回复 4# fanfande

已在2楼修改

欢迎光临批处理之家 (http://bbs.bathome.net/)