这里高手真多啊，偶刚学，还没入门呢。以后大家多多指教...
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 以解决：把文本内容横列变纵列。
查看 2,083 回复 20
第 16 楼
发表于 2008-04-23 19:02 · 中国 上海 上海地面通信息网络有限公司
第 17 楼
发表于 2008-04-23 19:53 · 中国 广东 广州 越秀区 电信
@echo off&setlocal enabledelayedexpansion
set max=0
for /f "delims=" %%i in (a.txt) do (
set /a i+=1
call :split "%%i" !i!)
for /l %%i in (0 1 %max%) do (
for /l %%j in (0 1 !i!) do (
set t=!s_%%j_%%i!
if not "!t!" == "" if not "!t!" == " " echo !t!))
pause&exit
:split
set c=-1&set s=%~1
:next
set /a c+=1
if not "!s:~%c%,1!" == "" (
set s_%2_%c%=!s:~%c%,1!
goto next
) else if %c% gtr %max% set max=%c%写了个。完后参看前辈们写的，发觉和terse的接近了。
刚才试着处理1K左右的不同文本，私下觉得这个是最快的。
[ Last edited by dreamseed on 2008-4-23 at 08:28 PM ]
沉浸于脚本的流浪客。
纳须弥于芥子，容世界之脚本...
纳须弥于芥子，容世界之脚本...
第 18 楼
发表于 2008-04-24 21:11 · 中国 四川 泸州 联通
有些特殊字符不支持
第 19 楼
发表于 2008-04-25 10:02 · 中国 江苏 南京 电信
仔细一看才明白你的意思。刚才回复出错。
[ Last edited by amao on 2008-4-25 at 10:08 AM ]
[ Last edited by amao on 2008-4-25 at 10:08 AM ]
第 20 楼
发表于 2008-04-25 11:29 · 中国 江苏 苏州 移动
写的太多了
@echo off&&setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (a.txt) do (
set str=%%i
set str=!str: =!&call :lp
)
pause
:lp
echo !str:~0,1!&set str=!str:~1!&if defined str goto :lp&goto :eof
第 21 楼
回复17楼
发表于 2009-01-03 02:24 · 中国 广东 东莞 电信
君的代码处遇上%时会丢失.
我参考大家的写了一段,有处理空行时会出现重复的问题,
哪位帮解决一下:
@echo off & setlocal enabledelayedexpansion
set m=0&set n=0&set en=y
:angin
call :lp
set /a m+=1&if not defined endy goto :angin
pause&goto :eof
:lp
if !m!==0 (set skip= ) else (set skip="skip=%m% delims=")
for /f %skip% %%i in (a.txt) do (
set str=%%i
set str=!str:~ %n%,1!
if not defined str goto :eof
set en=n&if not "!str!"==" " echo !str!
goto :eof
)
set m=-1&set /a n+=1&if !en!==y set endy=q
set en=y&goto :eof
我参考大家的写了一段,有处理空行时会出现重复的问题,
哪位帮解决一下:
@echo off & setlocal enabledelayedexpansion
set m=0&set n=0&set en=y
:angin
call :lp
set /a m+=1&if not defined endy goto :angin
pause&goto :eof
:lp
if !m!==0 (set skip= ) else (set skip="skip=%m% delims=")
for /f %skip% %%i in (a.txt) do (
set str=%%i
set str=!str:~ %n%,1!
if not defined str goto :eof
set en=n&if not "!str!"==" " echo !str!
goto :eof
)
set m=-1&set /a n+=1&if !en!==y set endy=q
set en=y&goto :eof
论坛跳转: