[文本处理] [已解决]请问TXT文本怎样用批处理同时按拼音与长度排序？

function cmp(a,b){
	if(a.length==b.length) return a>b;
	return a.length-b.length;
}
var fso = new ActiveXObject("scripting.filesystemobject");
var words = fso.OpenTextFile('1.txt',1).ReadAll().split(/\r\n/);
fso.OpenTextFile('ok.txt',2,1).Write(words.sort(cmp).join('\r\n'));
WSH.echo('整理完成');
复制代码

sort a.txt>b.txt
复制代码

@echo off
if 测 gtr 试 echo 区域和语言设置未设置为以拼音排序&pause&exit

set "$=吖 a 八 b 嚓 c 咑 d 妸 e 发 f 猤 g 妎 h 丌 j 咔 k 垃 l 嘸 m 拏 n 噢 o 妑 p 七 q 罖 r 仨 s 他 t 屲 w 夕 x 丫 y 帀 z 咗"
set "py="

(for /f "delims=" %%a in (a.txt) do (
	for /f "tokens=*" %%b in ("%%a") do set str=%%b
	setlocal enabledelayedexpansion
	set "#=!str:~,1!"
	set "py=!#:~,1!"
	if !#! geq 吖 if !#! leq 咗 (
		set py=z
		for /l %%c in (1 1 22) do (
			for /f "tokens=1,2,3*" %%d in ("!$!") do (
				if !#! geq %%d if !#! lss %%f (
					set py=%%e&set $=
				)
				if defined $ set $=%%f %%g
			)
		)
		for /l %%b in (1 1 10) do if !str:~%%b!. neq . set "py=!py! "
	)
	echo !py!'%%a
	endlocal
))>tmp.txt
(for /f "tokens=1* delims='" %%a in ('sort tmp.txt') do echo %%b)>b.txt
pause
复制代码