[文本处理] 批处理将文本中每行第一个指定字符前的字符串相同的行输出到以该字符串命名的文本里

@echo off
::gawk下载地址http://batch-cn.qiniudn.com/tool/gawk.exe
gawk -F "@" "{print $0>>$1\".txt\"}" "测试.txt"
echo;完成
pause
复制代码

@echo off
for /f "tokens=1* delims=@" %%i in (测试.txt) do (
    >>%%i.txt echo;%%i@%%j
)
pause
复制代码

@if(0)==(0) echo off & cscript -NoLogo -E:JScript %0 <测试.txt & pause & exit & @end
var fso = new ActiveXObject("Scripting.FileSystemObject")
var re = /(.*?)@.*/;
while (!WScript.StdIn.AtEndOfStream){
    var str = WScript.StdIn.ReadLine();
    var filename = str.replace(re,'$1') + ".txt"
    var f = fso.OpenTextFile(filename,8,true);
    f.WriteLine(str);
    f.Close()
}
复制代码