Verarbeitung bzw. Auswertung einer TXT-Datei und entsprechend Verzeichnisse umbenennen

Ich benötige eine Batch die zB. im Ordner C:\Temp bei allen vorhanden Verzeichnisnamen die ersten 4 Stellen ausliest. In einer erstellten 'abgleich.txt' die passende Zahl sucht (Zahl vor dem Semikolon) und anschließend dieses Verzeichnis mit der neuen Beschreibung (nach dem Semikolon) umbenennt!
Beispielformatierung in abgleich.txt:
3650;3648 - Blumenvase lila

Hallo an Alle,


Das Szenario:
Ich habe zwei Inventarliste(ALT).txt und Inventarliste(NEU).txt die abgeglichen werden sollen.Von dem alten Artikelbestand gibt es pro Artikel ein Verzeichnis (exakt gleiche Namen wie in der Inventarliste(ALT).txt). Master soll nun die neue Inventarliste werden. Und entsprechend die alten (vorhandenen) Verzeichnisse umbenannt werden!

Dummerweise gibt es zum Teil eine neue Nummerierung bei der neuen Inventarliste(NEU).txt und entsprechend sollen die alten Verzeichnisse umbenannt werden. Hierzu habe ich ich eine TXT-Datei abgleich.txt erstellt!

ALT OrdnerStruktur sowie Inhalt der Inventarlisten(ALT).txt




NEU OrdnerStruktur sowie Inhalt der Inventarlisten(NEU).txt


An dem Beispiel ist ersichtlich, dass die Artikelbezeichnung sowie die Nummerierung nicht identisch sind. Inhaltlich haben sie die gleichen Artikel (leider ist die Rechtschreibung verschieden!)

Zur Aufgabe:
Ich habe jetzt eine TXT-Datei 'abgleich.txt' erstellt mit folgender Formatierung:


Hier kann man sehr gut die Unterschiede erkennen

Zur Erklärung:
(1)1. Zahl (4 Stellen) sind die ersten 4 Zahlen der bestehenden Artikelverzeichnisse bzw. Inventarlisten(ALT).TXT (beide sind identisch!). Nur die Zahl ist "eindeutig", die alte Artikelbeschreibung ist irrelevant!
(2)Trennzeichen ist ein Semikolon
(3)Neuer Verzeichnisnamen

Ich benötige eine Batch die zB. im Ordner C:\Temp bei allen vorhanden Verzeichnisnamen die ersten 4 Stellen ausliest. In der abgleich.txt die passende Zahl sucht (Zahl vor dem Semikolon) und anschließend dieses Verzeichnis mit der neuen Beschreibung (nach dem Semikolon) umbenennt!

Danke im Voraus für eure Lösungsvorschläge!

Grüße
Andychrist

[Edit: Rechtschreibung im Titel korrigiert]
umbennen ->umbenennen

const abgleichtxt = "abgleich.txt"	'Pfad zu deiner Ableich.txt mit Dateianamenangabe  
			'In diesem Fall im gleichen Ordner wie diese Datei!  
															
const pfad = "" 		'Pfad zu deinem Verzeichnis wo all die Ordner liegen - MUß mit \ enden!!!  
			'Nur "" heißt im gleichen Ordner wie diese Datei!  
																		
																		
dim objshell, objfso													
dim open_abgleichtxt, zeile, id, text

set objshell = createobject("wscript.shell")  
set objfso = createobject("scripting.filesystemobject")  
set open_abgleichtxt = objfso.opentextfile(abgleichtxt,1,false)			'Hier wird die Ableich.txt geöffnet  

do until open_abgleichtxt.atendofstream					'Solange durchlaufen bis sie zu ende ist  
	zeile = open_abgleichtxt.readline()					'Aktuelle Zeile wird eingelesen  
	id = split(mid(zeile,1,9),";")					'ID alt & neu werden in Array gelesen  
	text = mid(zeile, 10)						'Artikeltext wird extrahiert  
	if objfso.folderexists(pfad & id(0) & text) then				'Wenn der Ordner bereits vorhanden ist ...  
		objfso.movefolder pfad & id(0) & text, pfad & id(1) & text		'... wird er umbenannt  
	else							'oder ...  
		objfso.createfolder(pfad & id(1) & text)			'... erstellt  
	end if							'Ende der Ordnerprüfung  
loop								'Ende der Schleife  
open_abgleichtxt.close							'Ableich.txt schließen  

@echo off & setlocal enabledelayedexpansion
set "targetdir=." & REM  oder Verz. setzen z.B.  set "targetdir=C:\Temp"   
set "Liste=Inventarlisten(NEU).txt"  

for /d %%i in ("%targetdir%\*") do (  
    set "Nr=%%~ni"  
    set Neu=
    for /f "tokens=1* delims=;" %%n in ('findstr /b "!Nr:~,4!;" "%Liste%"') do set "Neu=%%b"  
    if defined Neu (
        ren "%%i" "!Neu!"  
    ) else (
        echo Nicht umbenannt: %%i
    )
)

3650;3648 - Blumenvase lila
3649;3649 - Duschkopf blau
3648;3650 - Duschkopf CHROM
3652;3651 - Abflußrohr
3651;3652 - Blumenvase grün

for /f "tokens=1* delims=;" %%a in ('findstr /b "!Nr:~,4!;" "%Liste%"') do set "Neu=%%b"

@echo off & setlocal enabledelayedexpansion
set "targetdir=." & REM  oder Verz. setzen z.B.  set "targetdir=C:\Temp"   
set "Liste=Inventarlisten(NEU).txt"  

pushd "%targetdir%"  
for /f "delims=" %%i in ('dir /b /ad') do (  
    set "Nr=%%~ni"  
    set Neu=
    for /f "tokens=1* delims=;" %%a in ('findstr /b "!Nr:~,4!;" "%Liste%"') do set "Neu=%%b"  
    if defined Neu (
        ren "%%i" "!Neu!"  
    ) else (
        echo Nicht umbenannt: %%i
    )
)
popd

for /f "tokens=2 delims=:. " %%i in ('chcp') do set "CP=%%i"  
chcp 1252 >nul

chcp %CP% >nul

@echo off & setlocal enabledelayedexpansion
set "targetdir=." & REM  oder Verz. setzen z.B.  set "targetdir=C:\Temp"   
set "Liste=abgleich.txt"  

pushd "%targetdir%"  
for /f "tokens=2 delims=:. " %%i in ('chcp') do set "CP=%%i"  
chcp 1252 >nul
for /f "delims=" %%i in ('dir /b /ad') do (  
    set "Nr=%%~ni"  
    set Neu=
    for /f "tokens=1* delims=;" %%a in ('findstr /b "!Nr:~,4!;" "%Liste%"') do set "Neu=%%b"  
    if defined Neu (
        ren "%%i" "!Neu!"  
    ) else (
        echo Nicht umbenannt: %%i
    )
)
chcp %CP% >nul
popd