[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 buyiyang 于 2024-7-20 21:55 编辑

回复 25# ppll2030

这个不限列数,还用了两种方法算字符宽度。
  1. @echo off
  2. chcp 437 >nul
  3. set "Separator=@"
  4. set "inputfile=a.txt"
  5. setlocal enabledelayedexpansion
  6. :loop
  7. set /a column+=1
  8. set /a #C%column%max=mark=0
  9. for /f "tokens=%column%" %%i in (%inputfile%) do (
  10.     call :strlen "%%i"
  11.     if !len! geq !#C%column%max! set /a #C%column%max=len
  12.     set mark=1
  13.     )
  14. if %mark% equ 1 goto :loop
  15. set /a column-=1
  16. chcp 936 >nul
  17. set /a lines=0
  18. (for /l %%i in (1,1,%column%) do call :output %%i)>$.temp
  19. set "Separator="&set arg=" delims=%Separator%" "rem"
  20. set "inputfile=$.temp"&(for /l %%i in (1,1,%lines%) do call :output %%i %arg%)>output_%inputfile%
  21. del /q $ $.temp
  22. pause&exit
  23. :strlen
  24. set "str=_%~1"
  25. set "len=0"
  26. for %%n in (64 32 16 8 4 2 1) do (
  27.     if "!str:~%%n,1!" neq "" (
  28.         set/a "len+=%%n"
  29.         set "str=!str:~%%n!"
  30.         )
  31. )
  32. exit /b
  33. :output
  34. if %1 equ 1 goto :output_2
  35. for /f "tokens=1,%1%~2" %%a in (%inputfile%) do (
  36.     if "%%b"=="" (set "field=-") else set "field=%%b"
  37.     %~3 set/p="!field!"<nul>$&for %%i in ($) do (set len=%%~zi)
  38.     %~3 set /a spaceNum=!#C%1max!-len+2,n+=1
  39.     set "outstr=!outstr!%Separator%!field!"
  40.     %~3 for /l %%i in (1,1,!spaceNum!) do set "outstr=!outstr! "
  41.     )
  42. %~3 if %n% geq %lines% set /a lines=n
  43. %~3 set /a n=0
  44. echo,!outstr!
  45. set "outstr="
  46. exit /b
  47. :output_2
  48. for /f "tokens=%1%~2" %%a in (%inputfile%) do (
  49.     if "%%a"=="" (set "field=-") else set "field=%%a"
  50.     %~3 set/p="!field!"<nul>$&for %%i in ($) do (set len=%%~zi)
  51.     %~3 set /a spaceNum=!#C%1max!-len+2,n+=1
  52.     set "outstr=!outstr!%Separator%!field!"
  53.     %~3 for /l %%i in (1,1,!spaceNum!) do set "outstr=!outstr! "
  54.     )
  55. %~3 if %n% geq %lines% set /a lines=n
  56. %~3 set /a n=0
  57. echo,!outstr!
  58. set "outstr="
复制代码

TOP

本帖最后由 ppll2030 于 2024-7-20 23:37 编辑

回复 31# buyiyang


    厉害了。大佬这个应该是完美通用版了。

TOP

本帖最后由 newswan 于 2024-7-21 15:54 编辑

回复 29# 娜美

前面发的都没计算全角字符
#36 #37  计算了全角,用 ":" 分隔字段

TOP

本帖最后由 aloha20200628 于 2024-7-21 14:08 编辑


关于中英文混合文本行的对齐输出最终取决于显示字体
已知的 ‘英文用一个字节,中文用2个字节’ 是指存储单位,而每个字符被物理显示到屏幕上的 ‘显示宽度’ 还是要看所选字体
选择中英文字符等宽字体可以简化算法步骤(因批处的字符串截取偏移量视同中英文字符偏移量=1),但显示观感会大打折扣
而选择中英文字符显示宽度成等分关系的字体(例如英文字符占1个显示宽度,中文字符占2个显示宽度,而cmd简中窗口的默认字体即为此型字体)须实时获取每个字段的显示宽度与 ‘全文最长字段’ 显示宽度的差距,此差距即所谓 ‘每个字段的空格填充量’,由此确保每行各列不等长字段能够对齐显示,据此原理调整了9楼代码如下,并已在cmd简中窗口中实测多种样本(最长混合字段可自定义,列数可自定义)均予顺利通过...
  1. @echo off &setlocal enabledelayedexpansion &set "maxZ=0"
  2. for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
  3. set "s=%%s"&set "_len="&(call :_strLen)
  4. if !_len! gtr !maxZ! set "maxZ=!_len!"
  5. )
  6. for /f "delims=" %%a in (1.txt) do (
  7. set "ss=" &for %%s in (%%a) do (
  8. set "s=%%s"&set "_len="&(call :_strLen)
  9. set/a "z=maxZ-_len"&set "_s="&for /l %%k in (1,1,!z!) do set "_s=!_s! "
  10. set "ss=!ss! %%s!_s!"
  11. )
  12. echo,!ss:~1!
  13. )
  14. endlocal&pause&exit/b
  15. :_strLen //逐个字符计算》中文字符累加2,英文字符累加1。
  16.    if not defined s exit/b
  17.    if "!s:~0,1!" gtr "Z" (set/a "_len+=2") else (set/a "_len+=1")
  18.    set "s=!s:~1!" &goto :_strLen
复制代码

TOP


用7楼获取全文最大字段长度的方法(中英文字符按存储字节数计算长度)可以进一步简化34楼所用计算方法中须区分中英文字符的步骤...
  1. @echo off &setlocal enabledelayedexpansion &set "maxZ=0"
  2. for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
  3. set/p="%%s"<nul>"0.0"
  4. for %%b in (0.0) do if %%~zb gtr !maxZ! set "maxZ=%%~zb"
  5. )
  6. for /f "delims=" %%a in (1.txt) do (
  7. set "ss=" &for %%s in (%%a) do (
  8. set/p="%%s"<nul>"0.0" &for %%b in (0.0) do set/a "z=maxZ-%%~zb"
  9. set "_s="&for /l %%k in (1,1,!z!) do set "_s=!_s! "
  10. set "ss=!ss! %%s!_s!"
  11. )
  12. echo,!ss:~1!
  13. )
  14. del/q "0.0"&endlocal&pause&exit/b
复制代码

TOP

本帖最后由 newswan 于 2024-7-21 20:35 编辑

支持全角字符
awk -f format-table.awk data.txt
  1. function getWidth(str,LenStr,LenASC,LenHZ) {
  2. LenStr = length(str)
  3. LenASC = gsub( /[\x00-\x7F]/ , "" , str )
  4. LenHZ = length(str) / length("一")
  5. return  LenASC + LenHZ * 2
  6. }
  7. function getLengthHZ(str,LenHZ) {
  8. gsub( /[\x00-\x7F]/ , "" , str )
  9. LenHZ = length(str) / length("一")
  10. return  LenHZ
  11. }
  12. BEGIN {
  13. FS = " "
  14. while ( getline < ARGV[1] ) {
  15. for (i = 1; i <= NF; i++) {
  16. len = getWidth($i)
  17. if ( len > maxWidth[i] ) {
  18. maxWidth[i] = len
  19. }
  20. }
  21. }
  22. # print "--maxWidth--"
  23. # for ( i in maxWidth ) {
  24. # printf "%4s" , maxWidth[i]
  25. # }
  26. # printf "\r\n"
  27. # print "----"
  28. }
  29. {
  30. for (i = 1; i <= NF; i++) {
  31. LenHZ = getLengthHZ($i)
  32. printf "%-*s:" , maxWidth[i] + LenHZ , $i
  33. }
  34. printf "\r\n"
  35. }
复制代码
注意 第 35 行 由于 awk 环境不同,可能是 "+ LenHZ" 可能是 "- LenHZ"

TOP

本帖最后由 newswan 于 2024-7-21 19:56 编辑

支持全角字符
format-table.ps1 "in.txt" "out.txt"
  1. param(
  2. [String]$filenameIn ,
  3. [String]$filenameOut
  4. )
  5. $file = Get-Content -Path $filenameIn -Encoding UTF8
  6. $maxWidth = @{}
  7. $file | ForEach-Object {
  8. $arr = $_  -split "\s+"
  9. for ( $i = 0 ; $i -lt $arr.count ; $i++ ){
  10. $Width = ($arr[$i]).length + ( $arr[$i] -replace "[\x00-\x7F]","" ).length
  11. if ( $maxWidth[$i] -lt $Width ) {
  12. $maxWidth[$i] = $Width
  13. }
  14. }
  15. }
  16. $strTable = [System.Collections.ArrayList]@()
  17. $file | ForEach-Object {
  18. $arr = $_  -split "\s+"
  19. $str = ""
  20. for ( $i = 0 ; $i -lt $arr.count ; $i++ ){
  21. $LenHZ = ( $arr[$i] -replace "[\x00-\x7F]","" ).length
  22. $str += ($arr[$i]).PadRight( $maxWidth[$i] - $LenHZ , " " ) + ":"
  23. }
  24. [void]$strTable.add( $str ) #$str -replace "\s$",""
  25. }
  26. $strTable | Out-File -Encoding 'UTF8' -FilePath $filenameOut
复制代码

TOP

本帖最后由 aloha20200628 于 2024-7-21 15:59 编辑

回复 1# shenlong

跑完35层楼,总算能踏踏实实给楼主一个用批处拿下本帖(最长混合字段可自定义,列数可自定义)的解决方案了...

TOP

回复 38# aloha20200628

多谢,这次真学到了。

TOP

回复 36# newswan


    第35行应该是maxWidth - LenHZ

TOP

回复 35# aloha20200628


    使用这段代码如果字段中有=,等批处理分隔符的话会被错误分割;而且以“全文最大字段长度”为标准,当原文件字段长度差距悬殊时会使结果中字符较少的列视觉间隔过大而不协调。

TOP

本帖最后由 娜美 于 2024-7-21 17:40 编辑

我带着好奇心, 跟着这个贴题测过上面你们所说的解决方案,  都没有通过以下文本测试,   有的虽然解决了在cmd屏幕里对齐,  但输出到文本又是另一个不对齐现象发生了
测试要对齐文本 a.txt
  1. aa          1232    米
  2. bbbbb     66       米
  3. b 66  米
  4. cccccccccccccccccccccccccccccccccccc    c   cccccccccccccccccccccccccccccc  cc   c          米 c
  5. c cc    ccc     v          米
  6. 补补补补补补补补补补补补补补补补补  cccccccccccccccccccccccccccccc          补补补补补补补补补补补补补补补补补       c       c                 c
  7. 补  c                      cccccccccccccccccccccccccccccc    c             c                c
复制代码
Out.txt  请复制到txt文本中观看才能看到对齐大概样式
对齐后, 输出到文本中它们大概至少应该是这样的吧,  但是都相差甚远呢,  到目前为止还没有解决输出到文本对齐问题
  1. aa                                                          1232                                                   米
  2. bbbbb                                                    66                                                      米
  3. b                                                            66                                                      米
  4. cccccccccccccccccccccccccccccccccccc    c                                                        cccccccccccccccccccccccccccccc             cc            c                米 c
  5. c                                                            cc                                                       ccc                                                        v             米
  6. 补补补补补补补补补补补补补补补补补       cccccccccccccccccccccccccccccc          补补补补补补补补补补补补补补补补补       c             c                 c
  7. 补                                                          c                                                         cccccccccccccccccccccccccccccc             c             c                 c
复制代码

TOP

有的虽然解决了在cmd屏幕里对齐,  但输出到文本但输出到文本又是另一个不对齐现象发生了
娜美 发表于 2024-7-21 17:30

先看看我20楼和30楼说的字体问题……

TOP

回复 40# buyiyang


对,由于 awk 使用环境不同,有的地方是 + 有的地方是 -

TOP

本帖最后由 newswan 于 2024-7-21 20:05 编辑

回复 42# 娜美

#36 #37 输出正确
输出到屏幕正确,保存到文件也应该正确,文件不能对齐,是因为编辑器的字体问题

TOP

返回列表