[megaloman]

Опять прямолинейно, если в файле 100001.txt не важен порядок (по убыванию-возрастанию)

Код:

@Echo Off

Set "File=100001.txt"
Set "Mask=20??????.jrn"

Del "%File%" 2>Nul
FOR /F "skip=1 usebackq delims=" %%i in (`Dir "%Mask%" /b /A:-D /O:-N  2^>nul`) Do Echo %%i>>"%File%"

Увы, если важен порядок, придётся добавить за этим приведенным кодом сортировку, что не короче предыдущего решения

Код:

SetLocal EnableExtensions EnableDelayedExpansion
Set /A N=0
FOR /F "usebackq delims=" %%i in (`Type "%File%"^|Sort`) Do Set /A N+=1 & If !N!==1 (Echo %%i>"%File%") Else (Echo %%i>>"%File%")