标题: [已结]批处理字符重排 [打印本页]
作者: sady2009 时间: 2009-4-9 04:21 标题: [已结]批处理字符重排
有一文本文件a.txt 内容如下:
1,6,11
2,7,12
3,8,13
4,9,14
5,10,15
16,18,22
17,20,23
18,21,24
25,28,31
26,29,32
27,30,33
每一段行数不定,段与段中间有空行分割. 1,2,3不一定是数,这里只是代表一下.
要求处理后.输出
1
2
3
4
5
6
. (省略)
33
可以做到吗?
[ Last edited by sady2009 on 2009-4-9 at 11:26 ]
作者: 26933062 时间: 2009-4-9 05:00
没看懂。
1,2,3不一定是数 那是什么？
每一段行数不定,段与段中间有空行分割，你的输出与段有什么关系？
作者: dwj61909 时间: 2009-4-9 07:20
写了一个 不知道行不行
xxxx.txt 就是输出结果
| Quote: | |
|
作者: freeants001 时间: 2009-4-9 07:58
more +3 "%~f0">~tmp.js
cscript /logo ~tmp.js a.txt
del ~tmp.js&goto:eof
doConverting(WScript.arguments(0));
function doConverting(File_Path){
N=3,p=0;
fso=new ActiveXObject("scripting.filesystemobject");
fso.CopyFile(File_Path,File_Path+".bak");
var fl=fso.opentextfile(File_Path,1);
var sss=fl.readall();
var fl=fso.opentextfile(File_Path,2);
sss=sss.replace(/\s*$/g,"");
sss=sss.replace(/\r\n/g,",");
sss=sss.replace(/,{2,}/g,"\n");
sss=sss.split("\n");
WScript.echo(sss.length);
WScript.echo(sss);
var oString=new Array();
for(i=0;i<sss.length;i++){
var tmpstring=new Array()
tmpstring=sss[i].split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString[p]=tmpstring[k];
}
}
}
fl.write(oString.join('\r\n'));
}
cscript /logo ~tmp.js a.txt
del ~tmp.js&goto:eof
doConverting(WScript.arguments(0));
function doConverting(File_Path){
N=3,p=0;
fso=new ActiveXObject("scripting.filesystemobject");
fso.CopyFile(File_Path,File_Path+".bak");
var fl=fso.opentextfile(File_Path,1);
var sss=fl.readall();
var fl=fso.opentextfile(File_Path,2);
sss=sss.replace(/\s*$/g,"");
sss=sss.replace(/\r\n/g,",");
sss=sss.replace(/,{2,}/g,"\n");
sss=sss.split("\n");
WScript.echo(sss.length);
WScript.echo(sss);
var oString=new Array();
for(i=0;i<sss.length;i++){
var tmpstring=new Array()
tmpstring=sss[i].split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString[p]=tmpstring[k];
}
}
}
fl.write(oString.join('\r\n'));
}
作者: netbenton 时间: 2009-4-9 08:06
@echo off
(for /f "tokens=1* delims=, " %%a in (a.txt) do echo %%a)>b.txt
作者: sady2009 时间: 2009-4-9 09:34
谢谢各位，问题还没能解决。
这个问题比较复杂.
我的思路是, 先将每一段分割开来(如何分割还没想到)。比如第一段分出来暂存为a1.txt
1,6,11
2,7,12
3,8,13
4,9,14
5,10,15
对这一段：
@echo off&setlocal enabledelayedexpansion
for /l %%m in (1,1,4) do (
set var=%%m
for /f "tokens=1-3 delims=," %%x in (a1.txt) do (if !var! equ 1 (echo %%x>>b.txt) else if !var! equ 2 (echo %%y>>b.txt) else if !var! equ 3 (echo %%z>>b.txt))
)
然后再对 第2，3，~n 段处理
最终形成
1
2
3
.
第个段行数是不确定的。 此处的1 2 3代表一段字符串，为了使问题简单化,才用数字暂代的。
处理后的结果必须按照顺序输出。楼上想的太简单了
3楼的朋友用数字是可行的。用字符串不合要求(可能是我的字串中含有:的关系)。
4楼的朋友运行出错，我也不太懂其他脚本语言。
不管怎样，非常感谢！
[ Last edited by sady2009 on 2009-4-9 at 10:04 ]
作者: freeants001 时间: 2009-4-9 09:56
more +3 "%~f0">~tmp.js
cscript /logo ~tmp.js a.txt
del ~tmp.js&goto:eof
//doConverting(WScript.arguments(0));
doConverting("a.txt")
function doConverting(File_Path){
N=3,p=0;
fso=new ActiveXObject("scripting.filesystemobject");
var fl=fso.opentextfile(File_Path,1);
var sss=fl.readall();fl.close();
var fl=fso.opentextfile(File_Path.slice(0,-3)+"_处理后.log",2,true);
sss=sss.replace(/\s*$/g,"");
sss=sss.replace(/\r\n\s*\r\n/g,"\r\n\r\n");
blocks=sss.split("\r\n\r\n")
for(i=0;i<blocks.length;i++){
var fl2=fso.opentextfile(File_Path.slice(0,-4)+"_第"+i+"段"+".log",2,true);
fl2.write(blocks[i])
}
sss=sss.replace(/\r\n/mg,",");
sss=sss.replace(/,{2,}/g,"\n");
sss=sss.split("\n");
var oString=new Array();
for(i=0;i<sss.length;i++){
var tmpstring=new Array()
tmpstring=sss[i].split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString[p]=tmpstring[k];
}
}
}
fl.write(oString.join('\r\n'));
}
cscript /logo ~tmp.js a.txt
del ~tmp.js&goto:eof
//doConverting(WScript.arguments(0));
doConverting("a.txt")
function doConverting(File_Path){
N=3,p=0;
fso=new ActiveXObject("scripting.filesystemobject");
var fl=fso.opentextfile(File_Path,1);
var sss=fl.readall();fl.close();
var fl=fso.opentextfile(File_Path.slice(0,-3)+"_处理后.log",2,true);
sss=sss.replace(/\s*$/g,"");
sss=sss.replace(/\r\n\s*\r\n/g,"\r\n\r\n");
blocks=sss.split("\r\n\r\n")
for(i=0;i<blocks.length;i++){
var fl2=fso.opentextfile(File_Path.slice(0,-4)+"_第"+i+"段"+".log",2,true);
fl2.write(blocks[i])
}
sss=sss.replace(/\r\n/mg,",");
sss=sss.replace(/,{2,}/g,"\n");
sss=sss.split("\n");
var oString=new Array();
for(i=0;i<sss.length;i++){
var tmpstring=new Array()
tmpstring=sss[i].split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString[p]=tmpstring[k];
}
}
}
fl.write(oString.join('\r\n'));
}
作者: sady2009 时间: 2009-4-9 10:19
呵，这里真是高手如云啊。
谢谢楼上的朋友。其本上达到目的，不过我的文本中某些字串中含有时间的.
比如 08:00 QETRWQET,09:00 tyiutyiti, 等，结果出来时间中间的":" 变没了。不过这个我可以自己做批处理加上。
另外再求更加优化的代码。生成的 临时文件太多了
[ Last edited by sady2009 on 2009-4-9 at 10:22 ]
作者: 26933062 时间: 2009-4-9 10:50
如果你的文本中有冒号有英文字母，应该给出一部分样本文件，再给出相应的成品文件，别人才好写代码。
作者: netbenton 时间: 2009-4-9 12:27 标题: 不生成临时文件,不丢失冒号
@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
set/a n+=1
if "%%b"=="" (
set/a n-=1
for %%f in (aa bb cc) do (call :sub %%f)
set/a n=0
) else (
for /f "tokens=1-3 delims=," %%f in ('echo %%b') do (
set "aa.!n!=%%f"&set "bb.!n!=%%g"&set "cc.!n!=%%h"
)
)
)
for %%f in (aa bb cc) do (call :sub %%f)
pause
goto :eof
:sub
for /l %%a in (1,1,%n%) do (echo !%1.%%a!)
goto :eof
[ Last edited by netbenton on 2009-4-9 at 10:59 ]for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
set/a n+=1
if "%%b"=="" (
set/a n-=1
for %%f in (aa bb cc) do (call :sub %%f)
set/a n=0
) else (
for /f "tokens=1-3 delims=," %%f in ('echo %%b') do (
set "aa.!n!=%%f"&set "bb.!n!=%%g"&set "cc.!n!=%%h"
)
)
)
for %%f in (aa bb cc) do (call :sub %%f)
pause
goto :eof
:sub
for /l %%a in (1,1,%n%) do (echo !%1.%%a!)
goto :eof
作者: sady2009 时间: 2009-4-9 12:59
非常谢谢。楼上的代码 完全符合我的要求。太棒了!
作者: 26933062 时间: 2009-4-9 13:42
居然和10楼思路完全一样
@echo off&setlocal enabledelayedexpansion
set "f=^(type a.txt^&echo.^&echo.^)^|findstr /n .*"
set flag=&set "flag2="
for /f "tokens=1* delims=:" %%a in ('%f%') do (
if not defined flag setlocal&set flag=a
if "%%b"==" " set flag2=a
if "%%b"=="" set flag2=a
if defined flag2 (
for /l %%l in (1 1 3) do (
for /l %%m in (1 1 !n!) do echo !num%%m.%%l!
)
echo.&endlocal
) else (
set /a n+=1
for /f "tokens=1-3 delims=," %%i in ("%%b") do (
set num!n!.1=%%i&set num!n!.2=%%j&set num!n!.3=%%k
)
)
)
pause
[ Last edited by 26933062 on 2009-4-9 at 14:26 ]set "f=^(type a.txt^&echo.^&echo.^)^|findstr /n .*"
set flag=&set "flag2="
for /f "tokens=1* delims=:" %%a in ('%f%') do (
if not defined flag setlocal&set flag=a
if "%%b"==" " set flag2=a
if "%%b"=="" set flag2=a
if defined flag2 (
for /l %%l in (1 1 3) do (
for /l %%m in (1 1 !n!) do echo !num%%m.%%l!
)
echo.&endlocal
) else (
set /a n+=1
for /f "tokens=1-3 delims=," %%i in ("%%b") do (
set num!n!.1=%%i&set num!n!.2=%%j&set num!n!.3=%%k
)
)
)
pause
作者: netbenton 时间: 2009-4-9 14:35 标题: 学习楼上的方法，再度精简
@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=: " %%a in ('findstr /n .* a.txt^&echo.0:') do (
if "%%b"=="" (
for /l %%f in (1,1,3) do (
for /l %%g in (1,1,!n!) do (echo !m%%f.%%g!)
)
set n=0
) else (
set/a n+=1
for /f "tokens=1-3 delims=," %%f in ("%%b") do (
set "m1.!n!=%%f"&set "m2.!n!=%%g"&set "m3.!n!=%%h"
)
)
)
pause
goto :eof
楼上让我学会了for /f "tokens=1-3 delims=," %%f in ("%%b") do (for /f "tokens=1* delims=: " %%a in ('findstr /n .* a.txt^&echo.0:') do (
if "%%b"=="" (
for /l %%f in (1,1,3) do (
for /l %%g in (1,1,!n!) do (echo !m%%f.%%g!)
)
set n=0
) else (
set/a n+=1
for /f "tokens=1-3 delims=," %%f in ("%%b") do (
set "m1.!n!=%%f"&set "m2.!n!=%%g"&set "m3.!n!=%%h"
)
)
)
pause
goto :eof
的用法,速度快了好多,谢谢
[ Last edited by netbenton on 2009-4-9 at 12:50 ]
作者: 26933062 时间: 2009-4-9 14:53
最好写成 findstr /n .* a.txt^&echo.^&echo.0: 以防止源文件最后一行不是空行。
'findstr /n .* a.txt^&echo.0: 比我的好多了，我的绕弯路了。。。
[ Last edited by 26933062 on 2009-4-9 at 15:04 ]
作者: sady2009 时间: 2009-4-9 21:22
| Quote: | |
|
速度要比前一个快太多了。
暂时没完全看懂。需要点时间消化。
[ Last edited by sady2009 on 2009-4-9 at 21:24 ]