; Datei auswählen
$message = "Bitte Datei auswählen"
$path = "\autoIt_tests\"
$fileToUse = FileOpenDialog($message, $path, "Text (*.txt)", 1  )

If @error Then
    MsgBox(16,"Hinweis","Keine Datei(en) ausgewählt!"& @CRLF & "Programm wird beendet")
	Exit ;Programm beenden
Else
    $fileToUse = StringReplace($fileToUse, "|", @CRLF)
    MsgBox(64+1,"Hinweis","Es wurde folgende Datei ausgewählt: "& @CRLF & $fileToUse) 
EndIf

$filename = $fileToUse  
$fileH = FileOpen($filename, 0) ; 0 => Readonly

; Check if file opened for writing OK
If $fileH = -1 Then
    MsgBox(16, "Fehler", "Datei konnte nicht geöffnet werden!")
    Exit
EndIf

; Datei bis EOF einlesen
 
$content = FileRead($filename)
  

$stringToFilter = "DB_1-INT/EXT-ERROR" ; zu ersetzender Text
$replacementString = "" ; leere Zeichenfolge

; Text ersetzen
$content = StringReplace($content, $stringToFilter, $replacementString)
 

;$newname = $filename ; neuer Name = alter Name
; Abfrage des neuen Dateinamens    
$newname = InputBox("Neuer Dateiname", "Neuen Dateinamen eingeben oder aktuellen beibehalten(Cancel bricht das Programm ab):", $filename )
 

IF @error = 1 Then  ; 1 => Cancel, Abbruch mit Meldung
    MsgBox(48, "Hinweis", "Programm wird abgebrochen!" & @CRLF & "Diese Meldung zerstört sich selbst in 5 Sekunden.", 5)
	Exit
EndIf

; Neue Datei erzeugen und Text einfügen -> ,2 => inhalt der neuen Datei löschen
$newfile = FileOpen($newname,2)

FileWrite($newfile, $content)
FileClose($newfile)
 
FileClose($fileH)