联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
set n=0
set m=0
setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('findstr /N . 2.txt') do (
set /a n+=1
set /a m+=1
if !n! EQU %%a (echo %%b>>tmp.txt) else (call :aa !m! & echo %%b>tmp.txt && set /a n+=1 && set /a m=1)
)
call :aa !m!+1
endlocal
exit
:aa
echo %~1
set /a xc=%~1-1
echo %xc%
set pp=1
setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=," %%a in (tmp.txt) do (
set /a xz=!pp!+!xc!
set /a xx=!pp!+2*!xc!
set !pp!=%%a
set !xz!=%%b
set !xx!=%%c
set /a pp+=1
)
set /a tf=3*!xc!
echo !tf!
for /l %%i in (1,1,!tf!) do (
echo.!%%i!>>xxxx.txt
)
endlocal
goto :eof
| 评分人 | 分数 | 时间 |
|---|---|---|
| sady2009 | +1 | 2009-04-09 09:52 |
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.split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString=tmpstring;
}
}
}
fl.write(oString.join('\r\n'));
}
网志
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)
}
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.split(",");
for(j=0;j<N;j++){
for(k=0+j;k<tmpstring.length;k=k+N,p++){
oString=tmpstring;
}
}
}
fl.write(oString.join('\r\n'));
}| 评分人 | 分数 | 时间 |
|---|---|---|
| sady2009 | +1 | 2009-04-09 10:13 |
@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
@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
| 评分人 | 分数 | 时间 |
|---|---|---|
| netbenton | +5 | 2009-04-09 14:55 |
@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 :eofOriginally posted by netbenton at 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 ...
