Mehrere Dateien in einer Textdatei per batch oder script zusammenführen

@echo off

:: von 320 bis 980 mit Schrittweite 20
for /L %%i IN (320, 20, 980) do call :PROC1 %%i
goto ENDE

:PROC1
set BLK=%1
type *_0%BLK%_*.txt > daten_0%BLK%.txt 
ren daten_0%BLK%.txt 12345678_0%BLK%_1_rco_123_yyy.txt
:: tausche die Zeichen in der Datei ...
goto :EOF

:ENDE

dir 'C:\ordner' -Filter *.txt | ?{$_.Name -match '^[^_]+_\d{4}'} | %{(gc $_.FullName | Out-String).Replace(".",",") | Add-Content -Path ($_.DirectoryName + "\" + $matches + ".txt")}  

12345678_0300.txt
12345678_0320.txt
....

Option Explicit


Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8


Dim objFSO, objRegEx, colMatches, dicOutStreams
Dim objFile, objInStream, objOutStream
Dim strSourcePath, strFileGroup, strOutFileName, strOutFilePath


If WScript.Arguments.Count > 0 Then
  Set objFSO          = CreateObject("Scripting.FileSystemObject")  
  Set dicOutStreams   = CreateObject("Scripting.Dictionary")  
  Set objRegEx        = New RegExp

  strSourcePath       = WScript.Arguments(0)
  
  objRegEx.Pattern    = "^([^_]+)_([0-9]+)_([^_]+)_(ra)_([^_]+)_([^\.]+)\.(txt)$"  
  objRegEx.IgnoreCase = True

  If objFSO.FolderExists(strSourcePath) Then
    For Each objFile In objFSO.GetFolder(strSourcePath).Files
      Set colMatches = objRegEx.Execute(objFile.Name)

      If colMatches.Count > 0 Then
        If colMatches(0).SubMatches.Count > 0 Then
          strFileGroup = colMatches(0).SubMatches(1)
          
          If Not dicOutStreams.Exists(strFileGroup) Then
            strOutFileName   = objRegEx.Replace(objFile.Name, "$1_$2_$3_rco.$7")  
            strOutFilePath   = objFSO.BuildPath(strSourcePath, strOutFileName)
            Set objOutStream = objFSO.CreateTextFile(strOutFilePath, True)
            Call dicOutStreams.Add(strFileGroup, objOutStream)
          Else
            Set objOutStream = dicOutStreams(strFileGroup)
          End If
          
          Set objInStream = objFile.OpenAsTextStream(ForReading)
          Call objOutStream.Write(objInStream.ReadAll)
          objInStream.Close
        End If
      End If
    Next

    For Each objOutStream In dicOutStreams.Items
      objOutStream.Close
    Next
  Else
    WScript.Echo "Das angegebene Verzeichnis existiert nicht."  
  End If
Else
  WScript.Echo "Bitte geben Sie das Verzeichnis mit den Quelldateien an."  
End If

cscript /nologo "Pfad-zum-Script\MergeFiles.vbs" "Pfad-zum-Verzeichnis-mit-den-Dateien"

powershell.exe -ExecutionPolicy RemoteSigned -File "C:\Pfad\Script.ps1"

"C:\Pfad\script.ps1"

.\script.ps1

powershell.exe -File "C:\Pfad\Script.ps1"

powershell.exe -File "C:\Pfad\Script.ps1" "Parameter 1" "Parameter 2"

powershell.exe -command "&'C:\Pfad\Script.ps1' -par1 'Wert1' -par2 'Wert2'"

powershell.exe -command "&'C:\Pfad\Script1.ps1';&'C:\Pfad\Script2.ps1'"

powershell.exe -ExecutionPolicy RemoteSigned -File "C:\Pfad\Script.ps1" "Parameter 1" "Parameter 2"

param(
  [string]$path
)
dir $path -Filter *.txt | ?{$_.Name -match '^[^_]+_\d{4}'} | %{(gc $_.FullName | Out-String).Replace(".",",") | Add-Content -Path ($_.DirectoryName + "\" + $matches + ".txt")}  

powershell.exe -File "C:\Pfad\Script.ps1" "C:\deinpfad"

Add-Type -AssemblyName System.Windows.Forms
$dlg = new-object System.Windows.Forms.FolderBrowserDialog
if($dlg.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK){
  dir $dlg.SelectedPath -Filter *.txt | ?{$_.Name -match '^[^_]+_\d{4}'} | %{(gc $_.FullName | Out-String).Replace(".",",") | Add-Content -Path ($_.DirectoryName + "\" + $matches + ".txt")}    
}