Steuerzeichen aus String löschen

mcbaldrian

Hallo Leute

ich habe das Problem das ich TXT Dateien auslesen in Variable schreibe und in einer TX Datei zusammenführe. Dann werden Sie in einem SQL Server weiterverarbeiten.
Leider sind die TXT Dateien mit Steuerzeichen gespickt.

Wie Kann ich diese am besten aus den Variablen raus löschen ??

gruss

**Alina**

Hier zwei Möglichkeiten, da ich nicht weiß, welche Steuerzeichen genau störend sind.

AutoIt

$sText = "Line 1" & @CRLF & "Line 2" & @CRLF & "Line 3"
$sText = StringReplace($sText, @CRLF, Chr(1)) ; Ergebnissmöglichkeit 1
MsgBox(0,"Ergebisssss",$sText)
$sText2 = "Line 1" & @CRLF & "Line 2" & @CRLF & "Line 3"
$sText2 = StringReplace($sText2, @CRLF,"") ; Ergebnissmöglichkeit 2
MsgBox(0,"Ergebisssss",$sText2)

mcbaldrian

StringReplace geht leider nicht da er sich immer nur auf ein Zeichen beschränkt.
In der TXT Datei ist aber alles mögliche an Sonderzechen drin .

**Alina**

Okay. "alles mögliche" ist sehr weitläufig. Welche Steuerzeichen ???

Beispieltext? Kannst wichtiges ja "verfälschen", aber so, das der sinn bleibt, d. h. nicht einen Text schreiben, wenn es z. B. eine HTLM-Adresse ist.

So nebenbei mal geschrieben. Was sind das für wahre Worte: "Solange du den anderen sein Anderssein nicht verzeihen kannst, bist du noch weit ab vom Wege der Weisheit."

Edit. BigFix hat mal die Funktion "_GetFilesFolder_Rekursiv" geschrieben. Ich glaube schon, das man dort, statt Buchstaben / Zahlen auch bestimmt Stierzeichen durch "nichts", also diesem hier: "" austauschen kann.

AutoIt

Global $aFiles, $Source, $Dest


$aFiles = _GetFilesFolder_Rekursiv(@ScriptDir, 'test.txt', 0) ;


If IsArray($aFiles) Then ; Testen, ob Textdateien gefunden wurden
    For $i = 1 To $aFiles[0] ; Alle im Array enthaltenen Textdateien durchgehen
        $Source = FileRead($aFiles[$i]) ; Datei einlesen
        If Not @error Then ; wenn kein Fehler aufgetreten ist, dann...
            $Source = StringReplace($Source, '1111', 'AAAA') ; String ersetzen (wenn Case-Sensitive gewünscht, dann ",1" anhängen)
            If @extended > 0 Then ; wenn min. 1 String ersetzt wurde, dann...
                $Dest = FileOpen($aFiles[$i], 2) ; Datei zum überschreiben öffnen
                If $Dest <> -1 Then ; wenn kein Fehler aufgetreten ist, dann...
                    FileWrite($Dest, $Source) ; Datei schreiben
                    FileClose($Dest) ; und anschließend schließen
                EndIf
            EndIf
        EndIf
    Next
EndIf


If IsArray($aFiles) Then ; Testen, ob Textdateien gefunden wurden
    For $i = 1 To $aFiles[0] ; Alle im Array enthaltenen Textdateien durchgehen
        $Source = FileRead($aFiles[$i]) ; Datei einlesen
        If Not @error Then ; wenn kein Fehler aufgetreten ist, dann...
            $Source = StringReplace($Source, '2222', 'BBBB') ; String ersetzen (wenn Case-Sensitive gewünscht, dann ",1" anhängen)
            If @extended > 0 Then ; wenn min. 1 String ersetzt wurde, dann...
                $Dest = FileOpen($aFiles[$i], 2) ; Datei zum überschreiben öffnen
                If $Dest <> -1 Then ; wenn kein Fehler aufgetreten ist, dann...
                    FileWrite($Dest, $Source) ; Datei schreiben
                    FileClose($Dest) ; und anschließend schließen
                EndIf
            EndIf
        EndIf
    Next
EndIf


If IsArray($aFiles) Then ; Testen, ob Textdateien gefunden wurden
    For $i = 1 To $aFiles[0] ; Alle im Array enthaltenen Textdateien durchgehen
        $Source = FileRead($aFiles[$i]) ; Datei einlesen
        If Not @error Then ; wenn kein Fehler aufgetreten ist, dann...
            $Source = StringReplace($Source, '3333', 'CCCC') ; String ersetzen (wenn Case-Sensitive gewünscht, dann ",1" anhängen)
            If @extended > 0 Then ; wenn min. 1 String ersetzt wurde, dann...
                $Dest = FileOpen($aFiles[$i], 2) ; Datei zum überschreiben öffnen
                If $Dest <> -1 Then ; wenn kein Fehler aufgetreten ist, dann...
                    FileWrite($Dest, $Source) ; Datei schreiben
                    FileClose($Dest) ; und anschließend schließen
                EndIf
            EndIf
        EndIf
    Next
EndIf




;==================================================================================================
; Function Name:   _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description:     Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s):    $sPath     der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
;                  $sExt      Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
;                  $iDir      -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
;      optional:   $iRetType  0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
;                  Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s):       BugFix (bugfix@autoit.de)
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFiles = ''
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
    If $iRetType = 0 Then
        Local $aOut
        $aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
        If $aOut[1] = '' Then
            ReDim $aOut[1]
            $aOut[0] = 0
        EndIf
        Return $aOut
    Else
        Return StringTrimRight($strFiles,1)
    EndIf
EndFunc


Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
    If ($Dir = -1) Or ($Dir = 0) Then
        For $file In $Folder.files
            If $Ext <> '*' Then
                If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
                    $strFiles &= $file.Path & @LF
            Else
                $strFiles &= $file.Path & @LF
            EndIf
        Next
    EndIf
    For $Subfolder In $Folder.SubFolders
        If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
        _ShowSubFolders($Subfolder, $Ext, $Dir)
    Next
EndFunc

Alles anzeigen

**BugFix**

AutoIt

; Steuerzeichen sind Chr(0) bis Chr(31) aber nicht  die Zeichen für TAB und CRLF: Chr(9), Chr(10), Chr(13)


; Pattern generieren
Local $sPattern = '['
For $i = 0 To 31
	If StringInStr(' 9 10 13 ', ' ' & $i & ' ') Then ContinueLoop
	$sPattern &= StringFormat('\x%02i', $i)
Next
$sPattern &= ']+'
; alle Steuerzeichen in einem Rutsch mit Leerstring ersetzen
$sReplaced = StringRegExpReplace($sText, $sPattern, '')

Alles anzeigen

**Alina**

Sehr gut BugFix und das ganze auch noch fix wie nix.

**AspirinJunkie**

Könnte man so noch bisschen kürzer fassen:

AutoIt

$s_String = StringRegExpReplace($s_String, "[\x00-\x08\x0b\x0c\x0e-\x1f]", "")

mcbaldrian

Ich danke euch für eure Unterstützung.
Es sieht so aus als wäre das Problem dank euch erledigt.