Registry per Batch abfragen und INI Einträge hinzufügen bzw. ändern

@echo off &setlocal
set "inifile=test.ini"  
set "section=VARIABLE"  
set "key=COUNTRY_PRS"  
set "value=DEU"  

call :write_ini "inifile" "section" "key" "value"  
pause
exit /b


:write_ini
setlocal EnableDelayedExpansion
set "insec="  
>"!%~1!.tmp~" <"!%~1!" (  
  for /f %%i in ('type "!%~1!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (  
    set "ln=" &set /p "ln="  
    if not defined ln (
      echo(
    ) else if "!ln:~0,1!"=="[" (  
      if defined insec (
        set "insec="  
      ) else if /i "!ln!"=="[!%~2!]" (  
        set "insec=1"  
      )
      echo(!ln!
    ) else if not defined insec (
      echo(!ln!
    ) else (
      for /f "delims==" %%k in ("!ln!") do (  
        if /i "%%k"=="!%~3!" (  
          echo(%%k=!%~4!
        ) else (
          echo(!ln!
        )
      )
    )
  )
)
>nul move /y "!%~1!.tmp~" "!%~1!"  
endlocal
exit /b

$inipath = 'C:\myProgramm\DATA\DATA-1.INI'   
$inicontent = gc $inipath
$langset = @{
    'DEU' = @{COUNTRY_PRS = 'DEU';COUNTRY_UPD = 'd';COUNTRY = 'DEU';language = 'd';langid = '1';upd_nation = 'd';waehrung = 'EUR';mwst_name = 'MwSt';mwst_values = '19.0'}  
    'AUS' = @{COUNTRY_PRS = 'AUS';COUNTRY_UPD = '0';COUNTRY = 'AUS';language = 'u';langid = '3';upd_nation = '0';waehrung = 'AUD';mwst_name = 'VAT';mwst_values = '10.0'}  
}
$regvalue = Get-ItemProperty "HKLM:\SOFTWARE\myProgramm" -Name 'Country' | Select -Expand 'Country'  
($langset.$regvalue).GetEnumerator() | %{$inicontent = $inicontent -replace ('^' + [regex]::Escape($_.Key) + '\s*=\s*.*'),($_.Key + '=' + $_.Value)}  
$inicontent | set-content $inipath

@echo off &setlocal
set DEU="VARIABLE;COUNTRY_PRS;DEU" "VARIABLE;COUNTRY_UPD;d" "COUNTRY;COUNTRY;DEU" "KONFIGURATION;language;d" "KONFIGURATION;langid;1" "KONFIGURATION;upd_nation;d" "KONFIGURATION;p_update;1" "KONFIGURATION;waehrung;EUR" "KONFIGURATION;mwst_name;Mwst" "KONFIGURATION;mwst_values;19.0"  
set AUS="VARIABLE;COUNTRY_PRS;AUS" "VARIABLE;COUNTRY_UPD;0" "COUNTRY;COUNTRY;AUS" "KONFIGURATION;language;u" "KONFIGURATION;langid;3" "KONFIGURATION;upd_nation;u" "KONFIGURATION;p_update;2" "KONFIGURATION;waehrung;AUD" "KONFIGURATION;mwst_name;VAT"  "KONFIGURATION;mwst_values;10.0"  

set "inifile1=DATA-1.INI"  
set "inifile2=DATA-2.INI"  

set "alpha3=nicht gefunden" &set "settings="  
for /f "tokens=2*" %%i in ('reg query "HKLM\Software\myProgramm" /v "Country"') do (set "alpha3=%%~j" &call set "settings=%%%%~j%%")  
if not defined settings (
  echo Keine Einstellungen fuer "%alpha3%" definiert.  
  pause
  exit /b
)

for %%i in (%settings%) do for /f "tokens=1,2* delims=;" %%j in (%%i) do (  
  set "section=%%j"  
  set "key=%%k"  
  set "value=%%l"  
  call :write_ini "inifile1" "section" "key" "value"  
)

REM if not exist "%inifile2%" >"%inifile2%" type nul  
REM findstr /ic:"COUNTRY=%alpha3%" "%inifile2%" >nul || copy /b "%inifile2%" /b + "%inifile1%" /b >nul  

exit /b


:write_ini
setlocal EnableDelayedExpansion
set "insec="  
>"!%~1!.tmp~" <"!%~1!" (  
  for /f %%i in ('type "!%~1!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (  
    set "ln=" &set /p "ln="  
    if not defined ln (
      echo(
    ) else if "!ln:~0,1!"=="[" (  
      if defined insec (
        set "insec="  
      ) else if /i "!ln!"=="[!%~2!]" (  
        set "insec=1"  
      )
      echo(!ln!
    ) else if not defined insec (
      echo(!ln!
    ) else (
      for /f "delims==" %%k in ("!ln!") do (  
        if /i "%%k"=="!%~3!" (  
          echo(%%k=!%~4!
        ) else (
          echo(!ln!
        )
      )
    )
  )
)
>nul move "!%~1!.tmp~" "!%~1!"  
endlocal
exit /b

@echo off &setlocal
set DEU="VARIABLE;COUNTRY_PRS;DEU" "VARIABLE;COUNTRY_UPD;d" "COUNTRY;COUNTRY;DEU" "KONFIGURATION;language;d" "KONFIGURATION;langid;1" "KONFIGURATION;upd_nation;d" "KONFIGURATION;p_update;1" "KONFIGURATION;waehrung;EUR" "KONFIGURATION;mwst_name;Mwst" "KONFIGURATION;mwst_values;19.0"  
set AUS="VARIABLE;COUNTRY_PRS;AUS" "VARIABLE;COUNTRY_UPD;0" "COUNTRY;COUNTRY;AUS" "KONFIGURATION;language;u" "KONFIGURATION;langid;3" "KONFIGURATION;upd_nation;u" "KONFIGURATION;p_update;2" "KONFIGURATION;waehrung;AUD" "KONFIGURATION;mwst_name;VAT"  "KONFIGURATION;mwst_values;10.0"  

set "inifile1=C:\myProgramm\DATA-1.INI"  
set "inifile2=C:\myProgramm\DATA-2.INI"  
set "inifile3=C:\myProgramm\DATA-3.INI"  
set "inifile4=C:\myProgramm\DATA-4.INI"  

set "alpha3=nicht gefunden" &set "settings="  
for /f "tokens=2*" %%i in ('reg query "HKLM\Software\myProgramm" /v "Country"') do (set "alpha3=%%~j" &call set "settings=%%%%~j%%")  
if not defined settings (
  echo Keine Einstellungen fuer "%alpha3%" definiert.  
  pause
  exit /b
)

for %%i in (%settings%) do for /f "tokens=1,2* delims=;" %%j in (%%i) do (  
  set "section=%%j"  
  set "key=%%k"  
  set "value=%%l"  
  call :write_ini "inifile1" "section" "key" "value"  
  call :write_ini "inifile3" "section" "key" "value"  
)

if not exist "%inifile2%" >"%inifile2%" type nul  
for %%i in ("%inifile2%") do pushd "%%~dpi"  
findstr /ic:"COUNTRY=%alpha3%" "%inifile2%" >nul || copy /b "%inifile2%" /b + "%inifile1%" /b >nul  
popd

if not exist "%inifile4%" >"%inifile4%" type nul  
for %%i in ("%inifile4%") do pushd "%%~dpi"  
findstr /ic:"COUNTRY=%alpha3%" "%inifile4%" >nul || copy /b "%inifile4%" /b + "%inifile3%" /b >nul  
popd

pause
exit /b


:write_ini
setlocal EnableDelayedExpansion
set "insec="  
>"!%~1!.tmp~" <"!%~1!" (  
  for /f %%i in ('type "!%~1!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (  
    set "ln=" &set /p "ln="  
    if not defined ln (
      echo(
    ) else if "!ln:~0,1!"=="[" (  
      if defined insec (
        set "insec="  
      ) else if /i "!ln!"=="[!%~2!]" (  
        set "insec=1"  
      )
      echo(!ln!
    ) else if not defined insec (
      echo(!ln!
    ) else (
      for /f "delims==" %%k in ("!ln!") do (  
        if /i "%%k"=="!%~3!" (  
          echo(%%k=!%~4!
        ) else (
          echo(!ln!
        )
      )
    )
  )
)
>nul move "!%~1!.tmp~" "!%~1!"  
endlocal
exit /b