Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt",1).ReadAll

Set re = New RegExp
re.Pattern = "(\d{4}-\d{2}-\d{2}_.*(?:[\r\n]*))+"
re.Global = True
For Each a in re.Execute(text)
    text = Replace(text,a,Sort(Split(a,vbCrLf)))
next

Function Sort(ar)
    For i = 0 to UBound(ar)-1
        For j = i + 1 to UBound(ar)
            If ar(i) < ar(j) Then
                tmp = ar(i) : ar(i) = ar(j) : ar(j) = tmp
            End If
        Next
    Next
    Sort = Join(ar,vbCrLf)
End Function

fso.CreateTextFile("b.txt",True).Write text
MsgBox "OK"
复制代码

@gawk -F"[_-]" "{if(length($1)>4){qz=$1};ar[i++]=qz \"_\" $0}END{n=asort(ar);for (i=1;i<=n;i++){sub(/[0-9]*_/,\"\",ar[i]);print ar[i]}}"<"输入文件.txt">"输出文件.txt"
复制代码

set /p Files=请输入要排序的文件：

echo 正在对文本中的子项行进行排序，请稍候 ...
setlocal enabledelayedexpansion
for /f "tokens=1* delims=_" %%i in (%Files%) do (
	set m=%%i
	if "!m:~0,1!" == "0" set x=%%i echo !m:~0,10!_%%i_%%j>>N%Files%
	echo !x:~0,10!_%%i_%%j>>N%Files%
)
endlocal
sort N%Files%>>~y.txt
for /f "tokens=1* delims=_" %%i in (~y.txt) do echo %%j>>OK_%Files%
del ~*.txt
del N%Files%
start OK_%Files%
复制代码

@echo off&setlocal enabledelayedexpansion
set "file=a.txt"
cd.>tmp
(
   for /f "delims=" %%a in (%file%) do (
      set "str=%%a"
      if not "!str:~,1!"=="0" (
        >>tmp echo %%a
      ) else (
      sort tmp|sort /+1000&cd.>tmp&echo %%a
      )
   )
   sort tmp|sort /+1000
)>b.txt
del tmp&start b.txt
复制代码

@gawk -F"[_-]" "BEGIN{qz=99999999}{flag=0;if(length($1)>4){qz--;flag=1};ar[i++]=qz flag \"_\" $0}END{n=asort(ar);for (i=n;i>0;i--){sub(/[0-9]*_/,\"\",ar[i]);print ar[i]}}"<"输入文件.txt">"输出文件.txt"
复制代码

@echo off
if "%~1"=="" goto fun

set Files=%~snx1

echo 正在对文本中的子项行进行排序，请稍候 ...
(for /f "tokens=1* delims=_" %%i in ('%0^|sort /r') do echo %%j)>OK_%Files%
start OK_%Files%
pause&exit

:fun
set qz=99999999
for /f "delims=" %%i in (%Files%) do (
	set "flag=0"
	set "m=%%i"
	setlocal enabledelayedexpansion
	if "!m:~4,1!" neq "-" (
		set /a qz-=flag=1
	)
	for /f "tokens=1,2*delims=_" %%a in ("!qz!_!flag!_!m!") do (
		endlocal
		set /a qz=%%a,flag=%%b
		set m=%%c
		echo %%a%%b_%%c
	)
)
复制代码

@echo off
(for /f "delims=" %%a in (a.txt) do (
    set "str=%%a"
    setlocal enabledelayedexpansion
    if "!str:~,1!"=="0" (
        endlocal
        if exist $ sort /r $&del $
        echo,%%a
    ) else endlocal&echo,%%a>>$
))>b.txt
if exist $ sort /r $>>b.txt&del $
复制代码

@echo off
title 对目录文本按升序排列

if "%~1"=="" goto:Ascending

set File=%~snx1

if exist A%File% del A%File%
echo 正在对文本中的子项按升序排列，请稍候 ...
(for /f "tokens=1* delims=_" %%i in ('%0^|sort') do echo %%j)>A%File%
start A%File%
exit /b

:Ascending
setlocal enabledelayedexpansion
for /f "tokens=1* delims=_" %%i in (%File%) do (
	set m=%%i
	if "!m:~0,1!" == "0" set x=%%i echo !m:~0,10!_%%i_%%j
	echo !x:~0,10!_%%i_%%j
)
endlocal
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
title 对目录文本按升序排列
if "%~1"=="" goto :eof
set File=%~snx1
(for /f "tokens=1* delims=_" %%i in (%File%) do (
        set m=%%i
        if "!m:~0,1!" == "0" set x=%%i
        echo !x:~0,10!_%%i_%%j
))>$
echo 正在对文本中的子项按升序排列，请稍候 ...
(for /f "tokens=1* delims=_" %%i in ('sort $') do echo %%j)>A%File%
start A%File%
del $&exit /b
复制代码