VBScript: Einzelne Zeile in einer Datei ersetzen (restlicher Inhalt bleibt unangetastet)

$fin = 'C:\Users\xxx\Desktop\test.txt'  
$fout = 'C:\Users\xxx\Desktop\test1.txt'  

$Tx = get-content $fin

$DD = New-Object system.collections.hashtable
$DD.add('ä', 'ae')  
$DD.add('ö', 'oe')  
$DD.add('ü', 'ue')  
$DD.add('ß', 'ss')  
$DD.add('Ä', 'Ae')  
$DD.add('Ö', 'Oe')  
$DD.add('Ü', 'Ue')  

foreach ($k in $DD.Keys) {
    $Tx = $tx.replace($k, $DD[$k])}
Set-Content $fout -Value $Tx

$fin = 'C:\Users\xxxx\Desktop\test.txt' # <<<< anpassen >>>>  
$fout = 'C:\Users\xxxx\Desktop\test1.txt'        # <<<< anpassen >>>>  
$TT = 100 # Anzahl der Zeichen in ersten 10 Zeilen

$Ta = get-content $fin -Raw # <<<<<<<<<<<<<< Raw auch binary >>>>>>>>
$Tx = $Ta.Substring(0, $TT)

$DD = New-Object system.collections.hashtable
$DD.add('ä', 'ae')  
$DD.add('ö', 'oe')  
$DD.add('ü', 'ue')  
$DD.add('ß', 'ss')  
$DD.add('Ä', 'Ae')  
$DD.add('Ö', 'Oe')  
$DD.add('Ü', 'Ue')  

foreach ($k in $DD.Keys) {$Tx = $Tx.replace($k, $DD[$k])}

$Tx = $Tx -replace "['~´\/|&!\?§$=#]", '_'   

Write-Host "--------------------- `n "  
$Tx 
$Tx = $Tx + $Ta.Substring($TT+1)
Set-Content $fout -Value $Tx

Get-ChildItem 'E:\GizmoTronix' -Filter *.ppf -File | %{  
    [regex]::Replace((Get-Content $_.FullName -Raw),'(?im)(?<=/CIP3AdmJobName\s*\()([^\)]+)(?=.*)',{  
        param($m)
        return [regex]::Replace($m.Value,'(?i)^com[1-9]|^lpt[1-9]|^con|^nul|^prn|[\\/:?<>|"*äöüß]',{param($m2) switch -CaseSensitive ($m2){'ä'{'ae'};'ü'{'ue'};'ö'{'oe'};'ß'{'ss'};'Ä'{'Ae'};'Ü'{'Ue'};'Ö'{'Oe'};default{'_'}}})  
    }) | Set-Content $_.FullName -Force
}

Get-ChildItem 'E:\GizmoTronix' -Filter *.ppf -File | %{  
    [regex]::Replace((Get-Content $_.FullName -Raw -Encoding Default),'(?im)(?<=/CIP3AdmJobName\s*\()([^\)]+)(?=.*)',{  
        param($m)
        return [regex]::Replace($m.Value,'(?i)^com[1-9]|^lpt[1-9]|^con|^nul|^prn|[\\/:?<>|"*äöüß]',{param($m2) switch -CaseSensitive ($m2){'ä'{'ae'};'ü'{'ue'};'ö'{'oe'};'ß'{'ss'};'Ä'{'Ae'};'Ü'{'Ue'};'Ö'{'Oe'};default{'_'}}})  
    }) | Set-Content $_.FullName -Force
}

Option Explicit

Const sFolder = "C:\Test\"  
Const sFileExt = "ppf"  

Function normalize_str(strRemove)
    Dim arrWrapper(2)
    Dim arrReplace(19)
    Dim arrReplaceWith(19)
    Dim N

    arrWrapper(0) = arrReplace
    arrWrapper(1) = arrReplaceWith

    ' Replace  
    arrWrapper(0)(0) = "Ä"  
    arrWrapper(0)(1) = "Ö"  
    arrWrapper(0)(2) = "Ü"  
    arrWrapper(0)(3) = "ß"  
    arrWrapper(0)(4) = "ä"  
    arrWrapper(0)(5) = "ö"  
    arrWrapper(0)(6) = "ü"  
    arrWrapper(0)(7) = "~"  
    arrWrapper(0)(8) = "’"  
    arrWrapper(0)(9) = "'"  
    arrWrapper(0)(10) = "/"  
    arrWrapper(0)(11) = "|"  
    arrWrapper(0)(12) = "&"  
    arrWrapper(0)(13) = "!"  
    arrWrapper(0)(14) = "?"  
    arrWrapper(0)(15) = "§"  
    arrWrapper(0)(16) = "$"  
    arrWrapper(0)(17) = "="  
    arrWrapper(0)(18) = "#"  

     ' With  
    arrWrapper(1)(0) = "AE"  
    arrWrapper(1)(1) = "OE"  
    arrWrapper(1)(2) = "UE"  
    arrWrapper(1)(3) = "ss"  
    arrWrapper(1)(4) = "ae"  
    arrWrapper(1)(5) = "oe"  
    arrWrapper(1)(6) = "ue"  
    arrWrapper(1)(7) = "_"  
    arrWrapper(1)(8) = "_"  
    arrWrapper(1)(9) = "_"  
    arrWrapper(1)(10) = "_"  
    arrWrapper(1)(11) = "_"  
    arrWrapper(1)(12) = "_"  
    arrWrapper(1)(13) = "_"  
    arrWrapper(1)(14) = "_"  
    arrWrapper(1)(15) = "_"  
    arrWrapper(1)(16) = "_"  
    arrWrapper(1)(17) = "_"  
    arrWrapper(1)(18) = "_"  

    For N = 0 To 18
        ' 1: Start find from 1st character  
        ' -1: Find until string does not End  
        ' 0: binary comparision. Respect uppercase from lowercase.  
        strRemove = Replace(strRemove, arrWrapper(0)(N), arrWrapper(1)(N), 1, -1, 0)
    Next

    normalize_str = strRemove
End Function

Dim objFSO, objFolder, objFile, sFile, sLine
Dim objADOStreamIn1, objADOStreamIn2, objADOStreamOut, objFileStream
Dim newLine, byteCount, lineCount
Const adTypeText = 2
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const ForReading = 1
Const ForWriting = 2
Const TristateUseDefault = -2
Const sObj = "/CIP3AdmJobName"  
Const iMaxLines = 6
newLine = vbLf

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(sFolder)

For Each objFile In objFolder.Files
  sFile = objFile.Name
  ' Wenn Dateiendung passt  
  If StrComp(objFSO.GetExtensionName(sFile), sFileExt, vbTextCompare) = 0 Then
    ' Sonderzeichen ersetzen und umbenennen  
    sFile = normalize_str(sFile)
    objFile.Move(objFile.ParentFolder & "\" & sFile)  

    Set objADOStreamIn1 = CreateObject("ADODB.Stream") ' original Dateiinhalt  
    objADOStreamIn1.Type = adTypeBinary
    objADOStreamIn1.Open

    Set objADOStreamIn2 = CreateObject("ADODB.Stream") ' geänderter Text  
    objADOStreamIn2.Type = adTypeText
    objADOStreamIn2.Charset = "us-ascii"  
    objADOStreamIn2.Open

    Set objADOStreamOut = CreateObject("ADODB.Stream") ' Ausgabe  
    objADOStreamOut.Type = adTypeBinary
    objADOStreamOut.Open

    ' Komplette Datei binär einlesen  
    objADOStreamIn1.LoadFromFile objFile.Path

    ' Dateistream öffnen  
    Set objFileStream = objFile.OpenAsTextStream(ForReading, TriStateUseDefault)
    byteCount = 0
    lineCount = 0
    Do Until objFileStream.AtEndOfStream
      ' raus wenn mehr als 6 Zeilen gelesen wurden aber die Objektkennung nicht gefunden wurde  
      If lineCount > iMaxLines Then Exit Do
      sLine = objFileStream.ReadLine
      ' gelesene Bytes  
      byteCount = byteCount + Len(sLine) + Len(newLine)
      ' gelesene Zeilen  
      lineCount = lineCount + 1
      ' wenn Objektkennung gefunden wurde  
      If InStr(1, sLine, sObj, vbBinaryCompare) = 1 Then
        ' Sonderzeichen entfernen und in den Stream schreiben  
        sLine = normalize_str(sLine)
        objADOStreamIn2.WriteText "/" & Mid(sLine, 2)  
        objADOStreamIn2.WriteText newLine
        ' Raus hier  
        Exit Do
      End If
      ' sonst Zeile in den Stream schreiben  
      objADOStreamIn2.WriteText sLine
      objADOStreamIn2.WriteText newLine
    Loop

    objFileStream.Close

    ' Position in den Originaldaten ändern (Anzahl zu überspringende Zeichen)  
    objADOStreamIn1.Position = byteCount

    ' Textstream zu Binärstream ändern  
    objADOStreamIn2.Position = 0
    objADOStreamIn2.Type = adTypeBinary

    ' Ausgabestream aus geändertem Text und restlichen Binärdaten aufbauen  
    objADOStreamOut.Write objADOStreamIn2.Read
    objADOStreamOut.Write objADOStreamIn1.Read

    ' Datei überschreiben  
    objADOStreamOut.SaveToFile objFile.Path, adSaveCreateOverWrite
    objADOStreamOut.Close
    objADOStreamIn2.Close
    objADOStreamIn1.Close
  End If
Next

Option Explicit

Const sFolder = "C:\Test\"  
Const sFileExt = "ppf"  

Function GetNewLine(ByRef objFile)
  Dim objFileStream, sChar, sCharBefore
  GetNewLine = ""  
  Set objFileStream = objFile.OpenAsTextStream()
  If objFileStream Is Nothing Then Exit Function
  sCharBefore = ""  
  Do While Not objFileStream.AtEndOfStream
    sChar = objFileStream.Read(1)
    If sChar = vbLf Then
      If sCharBefore = vbCr Then GetNewLine = vbCrLf Else GetNewLine = vbLf
      Exit Do
    End If
    sCharBefore = sChar
  Loop
  objFileStream.Close
End Function

Function normalize_str(strRemove)
    Dim arrWrapper(2)
    Dim arrReplace(19)
    Dim arrReplaceWith(19)
    Dim N

    arrWrapper(0) = arrReplace
    arrWrapper(1) = arrReplaceWith

    ' Replace  
    arrWrapper(0)(0) = "Ä"  
    arrWrapper(0)(1) = "Ö"  
    arrWrapper(0)(2) = "Ü"  
    arrWrapper(0)(3) = "ß"  
    arrWrapper(0)(4) = "ä"  
    arrWrapper(0)(5) = "ö"  
    arrWrapper(0)(6) = "ü"  
    arrWrapper(0)(7) = "~"  
    arrWrapper(0)(8) = "’"  
    arrWrapper(0)(9) = "'"  
    arrWrapper(0)(10) = "/"  
    arrWrapper(0)(11) = "|"  
    arrWrapper(0)(12) = "&"  
    arrWrapper(0)(13) = "!"  
    arrWrapper(0)(14) = "?"  
    arrWrapper(0)(15) = "§"  
    arrWrapper(0)(16) = "$"  
    arrWrapper(0)(17) = "="  
    arrWrapper(0)(18) = "#"  

     ' With  
    arrWrapper(1)(0) = "AE"  
    arrWrapper(1)(1) = "OE"  
    arrWrapper(1)(2) = "UE"  
    arrWrapper(1)(3) = "ss"  
    arrWrapper(1)(4) = "ae"  
    arrWrapper(1)(5) = "oe"  
    arrWrapper(1)(6) = "ue"  
    arrWrapper(1)(7) = "_"  
    arrWrapper(1)(8) = "_"  
    arrWrapper(1)(9) = "_"  
    arrWrapper(1)(10) = "_"  
    arrWrapper(1)(11) = "_"  
    arrWrapper(1)(12) = "_"  
    arrWrapper(1)(13) = "_"  
    arrWrapper(1)(14) = "_"  
    arrWrapper(1)(15) = "_"  
    arrWrapper(1)(16) = "_"  
    arrWrapper(1)(17) = "_"  
    arrWrapper(1)(18) = "_"  

    For N = 0 To 18
        ' 1: Start find from 1st character  
        ' -1: Find until string does not End  
        ' 0: binary comparision. Respect uppercase from lowercase.  
        strRemove = Replace(strRemove, arrWrapper(0)(N), arrWrapper(1)(N), 1, -1, 0)
    Next

    normalize_str = strRemove
End Function

Dim objFSO, objFolder, objFile, sFile, sLine
Dim objADOStreamIn1, objADOStreamIn2, objADOStreamOut, objFileStream
Dim newLine, byteCount, lineCount
Const adTypeText = 2
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const sObj = "/CIP3AdmJobName"  
Const iMaxLines = 6


Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(sFolder)

For Each objFile In objFolder.Files
  sFile = objFile.Name
  ' Wenn Dateiendung passt  
  If StrComp(objFSO.GetExtensionName(sFile), sFileExt, vbTextCompare) = 0 Then
    ' ermitteln, welcher Zeilenumbruch verwendet wurde  
    newLine = GetNewLine(objFile)
    If newLine <> "" Then  
      ' Sonderzeichen ersetzen und umbenennen  
      sFile = normalize_str(sFile)
      objFile.Move(objFile.ParentFolder & "\" & sFile)  
  
      Set objADOStreamIn1 = CreateObject("ADODB.Stream") ' original Dateiinhalt  
      objADOStreamIn1.Type = adTypeBinary
      objADOStreamIn1.Open
  
      Set objADOStreamIn2 = CreateObject("ADODB.Stream") ' geänderter Text  
      objADOStreamIn2.Type = adTypeText
      objADOStreamIn2.Charset = "us-ascii"  
      objADOStreamIn2.Open
  
      Set objADOStreamOut = CreateObject("ADODB.Stream") ' Ausgabe  
      objADOStreamOut.Type = adTypeBinary
      objADOStreamOut.Open
  
      ' Komplette Datei binär einlesen  
      objADOStreamIn1.LoadFromFile objFile.Path
  
      ' Dateistream öffnen  
      Set objFileStream = objFile.OpenAsTextStream()
      byteCount = 0
      lineCount = 0
      Do Until objFileStream.AtEndOfStream
        ' raus wenn mehr als 6 Zeilen gelesen wurden aber die Objektkennung nicht gefunden wurde  
        If lineCount > iMaxLines Then Exit Do
        sLine = objFileStream.ReadLine
        ' gelesene Bytes  
        byteCount = byteCount + Len(sLine) + Len(newLine)
        ' gelesene Zeilen  
        lineCount = lineCount + 1
        ' wenn Objektkennung gefunden wurde  
        If InStr(1, sLine, sObj, vbBinaryCompare) = 1 Then
          ' Sonderzeichen entfernen und in den Stream schreiben  
          sLine = normalize_str(sLine)
          objADOStreamIn2.WriteText "/" & Mid(sLine, 2)  
          objADOStreamIn2.WriteText newLine
          ' Raus hier  
          Exit Do
        End If
        ' sonst Zeile in den Stream schreiben  
        objADOStreamIn2.WriteText sLine
        objADOStreamIn2.WriteText newLine
      Loop
  
      objFileStream.Close
  
      ' Position in den Originaldaten ändern (Anzahl zu überspringende Zeichen)  
      objADOStreamIn1.Position = byteCount
  
      ' Textstream zu Binärstream ändern  
      objADOStreamIn2.Position = 0
      objADOStreamIn2.Type = adTypeBinary
  
      ' Ausgabestream aus geändertem Text und restlichen Binärdaten aufbauen  
      objADOStreamOut.Write objADOStreamIn2.Read
      objADOStreamOut.Write objADOStreamIn1.Read
  
      ' Datei überschreiben  
      objADOStreamOut.SaveToFile objFile.Path, adSaveCreateOverWrite
      objADOStreamOut.Close
      objADOStreamIn2.Close
      objADOStreamIn1.Close
    End If
  End If
Next