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>
复制代码

pcl_test

回复 4# fanfande


    已在2楼修改