Alphanumerische Ausgabe maskierter Dateien in FOR-Schleife

FOR /L %i in (1,1,111) DO IF Exist "D:\einpfad\file_%i.ext" TYPE "D:\einpfad\file_%i.ext">>%allfiles%

 
Const Ordner = "X:\Test"			'Verzeichnis  
Const Ausgabe = "X:\Test\Sort.Txt"		'Numerisch sortierte Ausgabedatei  

Const Delim = "_"				'Trennzeichen  
Const Extension = ".ext"			'Dateierweiterung  

Const adVarChar = 200 			'Konstanten ADO-Recordset                   
Const adFldIsNullable = 32

Dim Fso, Rec, File, Text, SortName

'Main Beg  
    
    Set Fso = CreateObject("Scripting.FileSystemObject")  
    
    Call OpenRecordset
    
    For Each File In Fso.GetFolder(Ordner).Files
        If LCase(Right(File.Name, 4)) = LCase(Extension) Then
            SortName = Right("00000" & Split(Fso.GetBaseName(File.Name), Delim)(1), 6)  
            Call WriteRecordset(File.Name, SortName)
        End If
    Next
        
    Set File = Fso.CreateTextFile(Ausgabe)
        
    With Rec
        .Sort = "Alias"  
        .MoveFirst
         Do Until .EOF
             Text = .Fields(0)
             File.WriteLine Text
            .MoveNext
         Loop
    End With
    
    Rec.Close:  File.Close

'Main End  

Private Sub OpenRecordset()
    Set Rec = CreateObject("ADOR.Recordset")  
    With Rec.Fields
        .Append "Name", adVarChar, 64, adFldIsNullable  
        .Append "Alias", adVarChar, 16, adFldIsNullable  
         Rec.Open
    End With
End Sub

Private Sub WriteRecordset(ByRef File, ByRef Alias)
    With Rec
        .AddNew
        .Fields("Name") = File  
        .Fields("Alias") = Alias  
        .Update
    End With
End Sub

@echo off &setlocal

set extension=ext

type nul>%temp%\temp.txt
set "num=1234567890"  
for %%i in (*.%extension%) do set "datei=%%i" &set "name=%%~ni" &call :sub  
sort %temp%\temp.txt /o %temp%\temp.txt

:: hier deine TYPE-Umleitung, statt ECHO
for /f "delims=; tokens=2" %%i in (%temp%\temp.txt) do echo "%%i"  

del %temp%\temp.txt
pause
goto :eof


:sub
echo %name:~,1%|findstr "[0-9]">nul&&set "startnumeric=1"  
set "text=%name%"  
set "zahl=%name%"  
set /a nt=1
:loop1
for /f "delims=%num% tokens=1*" %%a in ("%text%") do set "tpart%nt%=%%a" &set "text=%%b"  
if not defined tpart%nt% goto weiter1
set /a nt+=1
if defined text goto loop1
:weiter1
set /a nt-=1
for /l %%n in (1,1,%nt%) do call set "alltext=%%alltext%%%%tpart%%n%%"  

set /a nn=1
:loop2
for /f "delims=%alltext% tokens=1*" %%a in ("%zahl%") do set "npart%nn%=%%a" &set "zahl=%%b"  
if not defined npart%nn% goto weiter2
set /a nn+=1
if defined zahl goto loop2
:weiter2
set /a nn-=1
for /l %%x in (1,1,%nn%) do (
  call set npart%%x=0000000%%npart%%x%%
  call set npart%%x=%%npart%%x:~-8%%
)
set /a nparts=nt+nn
set /a xt=0
set /a xn=0
set /a x=0
if not defined startnumeric goto loop3
set /a xn+=1
set /a x+=1
call set "string=%%npart%xn%%%"  
:loop3
if %x%==%nparts% goto weiter3
set /a xt+=1
set /a x+=1
call set "string=%%string%%%%tpart%xt%%%"  
if %x%==%nparts% goto weiter3
set /a xn+=1
set /a x+=1
call set "string=%%string%%%%npart%xn%%%"  
goto loop3
:weiter3
set "string=%string%                                                                                                   "  
set "string=%string:~,100%;%datei%"  
>>%temp%\temp.txt echo %string%
set "startnumeric="  
set "alltext="  
set "tpart1="  
set "npart1="  
set "string="  
goto :eof