中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-11 03:34

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 以解决：把文本内容横列变纵列。

可打印版本　2,086 / 20

第1楼　26933062	发表于 2008-04-22 21:12
银牌会员　发帖 879　积分 2,268
以解决：把文本内容横列变纵列。求助：把文本内容横列变纵列。 a.txt 不确定每行字符个数及行数。样本如下： 123456789 a bde 0 c f g 要求：代码效率不能太低，可以适当产生临时文件。生成新文本内容如下： 1 a 2 3 4 5 b c g 6 d 7 e f 8 9 0 [ Last edited by 26933062 on 2008-4-22 at 10:20 PM ]

第2楼　26933062	发表于 2008-04-22 22:21
银牌会员　发帖 879　积分 2,268
已经解决，谁有兴趣就当个题目来作吧。

第3楼　bat-zw	发表于 2008-04-22 22:22
金牌会员　发帖 1,276　积分 3,105
支持一下：现在的是能完全完成任务了，但就是效率有问题 --------------------------------------------------------------- 效率也提上来了,用时89微秒 @echo off&setlocal enabledelayedexpansion set n=-1 :begin set /a n+=1 for /f "delims=" %%i in ('type a.txt') do ( set a=%%i set a=!a: =#!&set str=!a:~%n%,1! echo.!str!>>c.txt if "%str%"=="g" goto :return ) goto begin :return for /f "delims=# " %%i in (c.txt) do echo %%i del /q c.txt pause [ Last edited by zw19750516 on 2008-4-22 at 11:36 PM ]

第4楼　bat-zw	发表于 2008-04-22 22:28
金牌会员　发帖 1,276　积分 3,105
请楼主贴出代码以学习啊！

第5楼　pusofalse	发表于 2008-04-22 22:42
银牌会员　发帖 646　积分 1,604
楼上的太强了，看过你的代码之后感觉也挺简单的，但为何没看之前，自己就是想不出来呢~ 敬佩！敬佩！~

第6楼　slore	发表于 2008-04-22 22:53
铂金会员　发帖 2,478　积分 5,212
1a 2 3 4 5bc 6d 7ef 8 90 g [ Last edited by slore on 2008-4-22 at 10:59 PM ]

第7楼　bat-zw	发表于 2008-04-23 00:00
金牌会员　发帖 1,276　积分 3,105
再来个不生成临时文件的：运行时间5微秒 @echo off&setlocal enabledelayedexpansion set n=-1 :begin set /a n+=1 for /f "delims=" %%i in (a.txt) do ( set a=%%i&set /a m+=1 set "str!m!=!a:~%n%,1!" if "!str%m%!"=="g" goto :return ) goto begin :return for /l %%i in (1,1,!m!) do if not "!str%%i!"==" " if not "!str%%i!"=="" echo !str%%i! pause>nul [ Last edited by zw19750516 on 2008-4-23 at 12:28 AM ]

第8楼　terse	发表于 2008-04-23 00:06
银牌会员　发帖 946　积分 2,404
@echo off&setlocal enabledelayedexpansion set s=0 for /f "delims=" %%i in (aa.txt) do ( set/a n+=1,m=0 set "str=%%i" call :lp ) for /l %%i in (1,1,%s%) do ( for /l %%j in (1,1,%n%) do ( if not "!str%%j%%i!"==" " if not "!str%%j%%i!"=="" echo !str%%j%%i! ) ) pause goto :eof :lp set/a m+=1 set str%n%%m%=!str:~0,1! set str=!str:~1! if defined str goto lp if %m% gtr %s% set/a s=m

第9楼　bat-zw	发表于 2008-04-23 00:08
金牌会员　发帖 1,276　积分 3,105
Originally posted by terse at 2008-4-23 00:06: @echo off&setlocal enabledelayedexpansion set s=0 for /f "delims=" %%i in (aa.txt) do ( set/a n+=1,m=0 set "str=%%i" call :lp ) for /l %%i in (1,1,%s%) do ( ... 运行时间为14微秒

第10楼　26933062	发表于 2008-04-23 00:10
银牌会员　发帖 879　积分 2,268
因我实际需处理的文本内容只有○和●两种字符,所以比较简单. 急于完成手头的事情,所以未及考虑通用性和严谨 : @echo off set z=○&set x=● :: 先把双字节替换成单字节，O为●，x为○。 setlocal enabledelayedexpansion for /f "delims=" %%a in (a.txt) do ( set str=%%a set /a max+=1 set str=!str: = ! set str=!str: =$ ! set str=!!str:%z%=O !! set str=!!str:%x%=X !! set n!max!=!str! ) for %%a in (!n1!) do ( set /a l+=1 for /l %%l in (1 1 !max!) do call :loop "!n%%l!" ) endlocal pause&exit :loop for /f "tokens=%l%" %%b in ("%~1") do ( if not "%%b"=="$" ( set /a m+=1 echo %%b )) goto :eof

第11楼　bat-zw	发表于 2008-04-23 00:15
金牌会员　发帖 1,276　积分 3,105
Originally posted by 26933062 at 2008-4-23 00:10: 因我实际需处理的文本内容只有○和●两种字符,所以比较简单. 急于完成手头的事情,所以未及考虑通用性和严谨 : @echo off set z=○&set x=● : ... 运行结果： 123456789 a$ ？？？？？？？？？？？？？？

第12楼　26933062	发表于 2008-04-23 00:39
银牌会员　发帖 879　积分 2,268
这是我的实际文本,先把他们替换成字母o和x再纵向列出. 没时间,偷空上上网. ○●○●○●○●○●○●○●○●○●○●○●○●○● ○ ○●○ ○ ○ ○● ● ●○●○● ● ○●○ ○ ○ ● ● ● ● ○ ○ ● ● ○ ● ● ○ ● ●

第13楼　26933062	发表于 2008-04-23 06:38
银牌会员　发帖 879　积分 2,268
最终代码: 感谢各位的热心帮助.... 昨晚老是发现丢失数据,终于搞清了,原来for的tokens=的最大值是31 这里要提醒新手们注意了....... 7楼zw19750516 的代码思路是,把文本的每个字符都分别赋值给一个变量,最后再统一显示出来. 效率方面文本最长的一行有多少字符,for就要把文本循环多少篇,感觉效率不是很高. 8楼 terse 的代码相当来说要好很多,代码效率没有浪费的部分,并行不用寻找关键字,(比如7楼的g,我的#号)不错,学习了. 感谢二位. : @echo off&color 1f setlocal enabledelayedexpansion for /f "delims=" %%a in (a.txt) do ( set "str=%%a" set "str=!str: =#!" set /a max+=1 for /l %%l in (0 1 100) do ( if not "!str:~%%l,1!"=="" set sun=!sun! !str:~%%l,1! ) set n!max!=!sun!&set "sun=" ) for %%a in (!n1!) do ( for /l %%l in (1 1 !max!) do call :loop "!n%%l!" %%l ) endlocal pause goto :eof :loop for /f %%b in ("%~1") do if not "%%b"=="#" set /a m+=1&echo %%b set n%2=!n%2:~2! goto :eof

第14楼　plp626	发表于 2008-04-23 13:44
银牌会员　发帖 1,020　积分 2,278
@echo off&setlocal enabledelayedexpansion for /f "delims=" %%a in (a.txt)do set "str=%%a"&call:arr "%%str: =%%" endlocal&pause :arr set x=%~1 for /l %%b in (1 1 500)do if not "!x:~%%b,1!"=="" (call echo\%%x:~%%b,1%%) else goto:eof

第15楼　26933062	发表于 2008-04-23 18:36
银牌会员　发帖 879　积分 2,268
plp626 没理解我的意识，也是我标题没说清楚。看你的代码只是把文本横向内容纵向列出，而我的实际要求是，纵向依次显示出每个字符，即：第一行第一列的第一个。然后第二行第一列的第一个。。。。依此类推。。。。。

1 2 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023