Guten Abend zusammen !
Mittels dem folgenden Code - Ausschnitt (den hab ich übrigens mal hier im Forum von einem netten Forumanen erhalten)
lese ich grosse Textfiles ein und suche darin nach der Zeile mit dem Tittel "Generierungsprotokoll"
Alles bis und mit dieser Zeile wird gelöscht und wieder ins File geschrieben.
Sub DateiImport()
Dim varDatei, strText As String, arrTemp As Variant, intI As Integer
Dim intFF As Integer, wks As Worksheet, lngZeile As Long, intLine As Integer
Dim strSp1$, strSp2$, strSp3$, strSp4$, strSp5$
Dim Zeile As Long 'Variable um Zeile mit "Generierungsprotokoll" auszulesen und dann zu löschen inkl. der nächsten beiden folgenden Zeilen
Dim strTXT_File As String, sInhalt As String 'Variablendeklaration für Bearbeitung Textfile vor Import
Dim F As Integer 'Variablendeklaration für Bearbeitung Textfile vor Import
'TEXTDATEI I VORBEARBEITEN (Alles Löschen bis Generierungsprotokoll)
'===================================================================
strTXT_File = Application.GetOpenFilename(Filefilter:="Texte(*.txt),*.txt", Title:="Bitte erste Datendatei öffnen")
F = FreeFile
'Lese TXT
Open strTXT_File For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
'Anfang abschneiden
sInhalt = Right$(sInhalt, Len(sInhalt) - InStrRev(sInhalt, "Generierungsprotokoll") - Len("Generierungsprotokoll"))
sInhalt = Right$(sInhalt, Len(sInhalt) - InStr(sInhalt, vbNewLine))
'Schreibe TXT
Open strTXT_File For Output As #F
Print #F, sInhalt
Close #F
Dies funktioniert auch ganz toll !
Nun möchte ich aber den Code noch um folgende Funktion ergänzen:
In den Textfiles drin hat es Seitenumbrüche (das Textfile wurde aus SAP - Listen erstellt)
welche so ausschauen:
---------------------------------------------- etc.
Diese Zeilen sollen auch noch gesucht und so entfernt werden, dass im Textfile drin dann keine Leerzeilen entstehen.
Geht das irgendwie ?
Wenn ja wie ?
Wer kann mir da helfen ? Ein Beispiel von der Textdatei im Anhang !
https://www.herber.de/bbs/user/58589.txt
IM VORAUS HERZLICHEN DANK !!!!