[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
贴一个正统的解法
用到了临时文件
得亏事先造好了声势
可以不用偷偷摸摸了

楼主号称5句代码能够解题
等待瞻仰中……
  1. @echo off & setlocal EnableDelayedExpansion
  2. rem 重置可能影响程序的环境变量为空
  3. for %%e in (lines context sizes cols) do set %%e=
  4. rem 将所有文本行拼成一行,并统计行数
  5. for /f "delims=" %%l in (a.txt) do set /a lines+=1&set "context=!context!%%l"
  6. rem 获取文本总字节数,并依此计算列数和列边界
  7. (echo %context%)>b.txt
  8. for %%f in (b.txt) do set /a sizes=%%~zf-2,cols=sizes/lines,collimit=cols-1
  9. rem 依照字符坐标转换,依次输出各列字符
  10. for /l %%i in (0,1,%collimit%) do (
  11. for /l %%j in (%%i,%cols%,%sizes%) do set/p=!context:~%%j,1!<nul
  12. echo.
  13. )
  14. pause
复制代码
天的白色影子

TOP

返回列表