Textdatei auslesen

[thunderbird-pao]

Hallo VB-Experten,

habe das nachfolgende Script erhalten. Der Ersteller ist leider nicht mehr zu erreichen und leider funktioniert das Script noch nicht so, wie ich es benötige. Die fehlende Funktionalität habe ich im Script kommentiert. Wäre toll, wenn in diesem Forum ein VB-Experte mir bei der Vervollständigung behilflich sein könnte. Schon einmal vielen Dank. :confused:

Habe am Ende noch ein Textbeispiel angehängt.

strFilename = "neoex.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(strFilename)

intFileSize = objFile.Size

Set objFile = objFile.OpenAsTextStream()

strFileContent = objFile.Read(intFileSize)

objFile.Close

Set objRegExp = New RegExp

objRegExp.Pattern = Chr(34)

objRegExp.Global = True

objRegExp.IgnoreCase = True 'False für case-sensitive

strFileContent = objRegExp.Replace(strFileContent, "")

REM Dieser Text steht immer in der ersten Zeile und soll entfernt werden

REM - funktioniert nocht nicht

objRegExp.Pattern = "Database: C:\Programme\PGS\Pgs.gdb, User: PGS" & vbCrLf

strFileContent = objRegExp.Replace(strFileContent, "")

REM Diese Zeile kommt mehrfach in der Datei vor - soll als erste Zeile in der Datei

REM erhalten bleiben und als Header dienen. Zwischen dieser Zeile und den nachfolegnden

REM Daten soll keine Leerzeile sein.

REM Alle weiteren Zeilen dieser Art sollen gelöscht werden

REM - funktioniert bisher so, dass alle Zeile entfernt werden

objRegExp.Pattern = vbCrLf & "KNR PNR AM LM GDAT " & vbCrLf

strFileContent = objRegExp.Replace(strFileContent, "")

REM Diese Zeile steht immer unter der .o. a. Textzeile - kommt mehrfach vor und soll gelöscht werden

REM - funktioniert, alle Zeilen werden gelöscht!

objRegExp.Pattern = "====== ========== ====================== ====================== ======== " & vbCrLf

strFileContent = objRegExp.Replace(strFileContent, "")

REM Dieser Wert kommt mehrfach in der Datei vor und soll durch Leerstellen ersetzt werden

REM - funktioniert, alle diesbezüglichen Werte werden ersetzt!

objRegExp.Pattern = "<null>"

strFileContent = objRegExp.Replace(strFileContent, " ")

Set objFile = objFSO.OpenTextFile(strFilename, 2)

objFile.Write strFileContent

objFile.Close

neoex.txt