aloha20200628

回复 1# shenlong

文本行的格式化输出，须确定最大列宽即最大字段长度。简单处理是由楼主预设一个最大列宽值，否则就要实时遍历整个文本文件获取其中最大字段长度...
给一个批处版本，代码如下》获取文本文件中的最大字段长度，假设字段分隔符是批处默认的空格、逗号、分号、等号和制表符。

@echo off &setlocal enabledelayedexpansion &set "maxZ=0"
for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
	set/p="%%s"<nul>0.0
	for %%b in (0.0) do if %%~zb gtr !maxZ! set "maxZ=%%~zb"
)
echo,!maxZ!
del/q "0.0"&endlocal&pause&exit/b
复制代码

aloha20200628

回复 1# shenlong

@echo off &setlocal enabledelayedexpansion &set "maxZ=0"
for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
	set "s=%%s" & (call :_strLen s z)
	if !z! gtr !maxZ! set "maxZ=!z!"
)
set "ms=" &for /l %%n in (1,1,!maxZ!) do set "ms=!ms! "
endlocal &set "maxZ=%maxZ%"&set "ms=%ms%"
setlocal enabledelayedexpansion
for /f "delims=" %%a in (1.txt) do (
	set "s="
	for %%s in (%%a) do (set "_s=%%s"&set "_s=!_s!%ms%"&set "s=!s!	!_s:~0,%maxZ%!")
	echo,!s:~1!
)
endlocal&pause&exit/b
:_strLen
   set "_str=_!%~1!" &set "_Len=0"
   for %%n in (64 32 16 8 4 2 1) do (
      if "!_str:~%%n,1!" neq "" (set/a "_Len+=%%n"&set "_str=!_str:~%%n!")
   )
   set "%~2=!_Len!" &exit/b
复制代码

特此备注》重写了原代码，改用批处 ‘原装’ 的字符串长度计算方法，再请出制表符 ‘显灵’，似乎消除了以前格式化输出时中英文字符混合字段的占位问题...

aloha20200628

回复 11# shenlong

参考12楼的经验，谢谢 重写了9楼代码，用以下1.txt示例文件测试效果明显 楼主可试试...
1.txt》
aa  自x车 1232   米
mm命名  abc 5555  米
bbbbb  密码可靠 66  米
同轴3xx   国产321   456 米

aloha20200628

关于中英文混合文本行的对齐输出最终取决于显示字体
已知的 ‘英文用一个字节，中文用2个字节’ 是指存储单位，而每个字符被物理显示到屏幕上的 ‘显示宽度’ 还是要看所选字体
选择中英文字符等宽字体可以简化算法步骤（因批处的字符串截取偏移量视同中英文字符偏移量=1），但显示观感会大打折扣
而选择中英文字符显示宽度成等分关系的字体（例如英文字符占1个显示宽度，中文字符占2个显示宽度，而cmd简中窗口的默认字体即为此型字体）须实时获取每个字段的显示宽度与 ‘全文最长字段’ 显示宽度的差距，此差距即所谓 ‘每个字段的空格填充量’，由此确保每行各列不等长字段能够对齐显示，据此原理调整了9楼代码如下，并已在cmd简中窗口中实测多种样本（最长混合字段可自定义，列数可自定义）均予顺利通过...

@echo off &setlocal enabledelayedexpansion &set "maxZ=0"
for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
	set "s=%%s"&set "_len="&(call :_strLen)
	if !_len! gtr !maxZ! set "maxZ=!_len!"
)
for /f "delims=" %%a in (1.txt) do (
	set "ss=" &for %%s in (%%a) do (
		set "s=%%s"&set "_len="&(call :_strLen)
		set/a "z=maxZ-_len"&set "_s="&for /l %%k in (1,1,!z!) do set "_s=!_s! "
		set "ss=!ss! %%s!_s!"
	)
	echo,!ss:~1!
)
endlocal&pause&exit/b
:_strLen //逐个字符计算》中文字符累加2，英文字符累加1。
   if not defined s exit/b
   if "!s:~0,1!" gtr "Z" (set/a "_len+=2") else (set/a "_len+=1")
   set "s=!s:~1!" &goto :_strLen
复制代码

aloha20200628

用7楼获取全文最大字段长度的方法（中英文字符按存储字节数计算长度）可以进一步简化34楼所用计算方法中须区分中英文字符的步骤...

@echo off &setlocal enabledelayedexpansion &set "maxZ=0"
for /f "delims=" %%a in (1.txt) do for %%s in (%%a) do (
	set/p="%%s"<nul>"0.0"
	for %%b in (0.0) do if %%~zb gtr !maxZ! set "maxZ=%%~zb"
)
for /f "delims=" %%a in (1.txt) do (
	set "ss=" &for %%s in (%%a) do (
		set/p="%%s"<nul>"0.0" &for %%b in (0.0) do set/a "z=maxZ-%%~zb"
		set "_s="&for /l %%k in (1,1,!z!) do set "_s=!_s! "
		set "ss=!ss! %%s!_s!"
	)
	echo,!ss:~1!
)
del/q "0.0"&endlocal&pause&exit/b
复制代码

aloha20200628

回复 1# shenlong

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

aloha20200628

若批处字符串里包含转义字符，有如一旦撞上 “台风” 就是 “天灾”，只能尽量减免吧...
更新35楼代码如下，用递归子过程替换 for %%s in (%%a) do ... 以便纠正 ,;= 等其余系统默认分隔符以及*?通配符的影响...

@echo off &setlocal &set "maxZ=0"
for /f "delims=" %%a in (1.txt) do for /f "delims=	　 " %%b in ("%%a") do (
	set "a=%%a"&call :getMaxZ
	call set/p=%%maxZ%%<nul>0.0
	set/p maxZ=<0.0
)
for /f "delims=" %%a in (1.txt) do for /f "delims=	　 " %%b in ("%%a") do (set "a=%%a"&set "ss="&call :printAll)
del/q "0.0" 2>nul&endlocal &pause &exit/b
:getMaxZ
	for /f "tokens=1* delims=	　 " %%1 in ("%a%") do (set "a=%%2"&set/p="%%1"<nul>"0.0")
	if "%a%"=="" (exit/b) else for %%v in (0.0) do (set "v=%%~zv")
	(if %v% gtr %maxZ% set "maxZ=%v%") & goto :getMaxZ
:printAll
	for /f "tokens=1* delims=	　 " %%1 in ("%a%") do (set "s=%%1"&set "a=%%2"&set/p="%%1"<nul>"0.0")
	for %%v in (0.0) do (set/a "z=maxZ-%%~zv")
	setlocal enabledelayedexpansion &set "_s=" &for /l %%k in (1,1,!z!) do (set "_s=!_s! ")
	set "ss=!ss! !s!!_s!" &if "%a%"=="" (set/p="!ss:~1!"<nul&echo,&endlocal&exit/b)
	endlocal &set "ss=%ss%" &goto :printAll
复制代码

aloha20200628

回复 54# ppll2030

更新了50楼代码，滤掉了全空白字符行（仅包含中英文空格+制表符），以免运行中被阻塞...

aloha20200628

回复 60# ppll2030

我说的过滤掉中英文空格+制表符构成的 ‘全空白行’，其中的中文空格即全角空格。delims表达式指定的这三个字符复制到代码区中有时会 ‘变形’ 不过知道此意你在自己的代码中调整就是了