Wert einer .txt Datei zwischen 2 Wörtern auslesen.

  • Excel

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von -guile-.

    Wert einer .txt Datei zwischen 2 Wörtern auslesen.

    Hallo Zusammen,

    ich habe ein kleines Problem.

    Ich habe mir ein kleines Tool gebastelt das aus einer Textdatei mehrere Werte ausliest.

    Da ich den Wert kenne und er auch immer der gleiche ist (bzw. er die gleiche Bezeichnung hat)

    konnte ich den ersten teil problemlos lösen


    Visual Basic-Quellcode

    1. sub Test
    3. Open "D:\MTRNS.txt" For Input As #1
    4. Open "D:\TMP-MTRNS-From.txt" For Output As #2
    6. While Not EOF(1)
    7. Line Input #1, strZeile
    8. If strZeile Like "From*" Then
    9. Print #2, strZeile
    10. End If
    11. Wend
    12. Close #1
    13. Close #2
    14. End Sub




    Nun möchte ich einen Teil aus der Textdatei auslesen der zwischen 2 Wörtern (Bezeichnungen) steht.

    Der Text soll ausgelesen werden von (Start) "$MiniView" bis (Ende) "XXXX" <-(Wiederholt sich mehrfach in der Textdatei)

    die ausgelesenen Parts sollen dann in die entsprechende Datei: "D:\TMP-MTRNS-From.txt" gepackt werden.

    Vielen Dank im vorraus



    Grüße

    Versuch's mal damit:

    Visual Basic-Quellcode

    1. SUB Test
    3. DIM strZeile AS STRING
    4. DIM Start AS STRING
    5. DIM Ende AS STRING
    6. DIM i AS LONG
    7. DIM j AS LONG
    8. DIM x AS LONG
    10. Start = "$MiniView"
    11. Ende = "XXXX"
    13. OPEN "D:\MTRNS.txt" FOR INPUT AS #1
    14. OPEN "D:\TMP-MTRNS-From.txt" FOR Output AS #2
    16. WHILE NOT EOF( 1 )
    18. LINE INPUT #1, strZeile
    19. IF INSTR( strZeile, start ) THEN
    20. i = INSTR( strzeile, start )
    21. j = LEN( start ) + 1
    22. x = INSTR( j, strzeile, ende )
    24. strZeile = MID$( strZeile, j, x - j )
    25. PRINT #2, strZeile
    26. END IF
    28. WEND
    30. CLOSE #1
    31. CLOSE #2
    32. END SUB

    Hallo,

    erstmal danke für die Antwort.

    Leider funktioniert der Vorschlag nicht. Ich bekomme folgende Fehlermeldung:

    Laufzeitfehler '5':

    Ungültiger Prozeduraufruf oder ungültiges Argument
    bei der Zeile:

    Visual Basic-Quellcode

    1. strZeile = Mid$(strZeile, j, x - j)

    Ich habe Versucht den Code mal selber umzubauen, aber bekomme leider auch kein gescheites Ergebnis.

    Vielleicht noch eine Anmerkung: Der Start "$MiniView" und das Ende "XXXX" stehen nicht in der gleichen Zeile.



    Anbei ein Ausschnitt aus der .txt Datei:

    $MessageID:
    From: CN=C=DE
    INetFrom:
    PostedDate: 20.01.2010 11:12:29
    $Signature:
    Encrypt:
    RouteServers: CN=BLNX/O=DB AG/C=DE,CN=BLNX/O=DB AG/C=DE
    RouteTimes: 20.01.2010 11:12:29-20.01.2010 $Orig: ADE6736
    $UpdatedBy: CN=
    Categories:
    $Revisions:
    DeliveredDate: 20.01.2010 11:12:31
    $MiniView:


    mehrere Zeilen Text usw.


    XXXX



    Bekomme es leider nicht hin :(

    Grüße

    Hast Du schon mal was von Haltepunkten gehört? Diese kann man im Code setzen, damit der Programmablauf dort anhält, um zum Beispiel die Werte von Variablen zu prüfen.
    Dabei wäre Dir aufgefallen, das x-j negativ ist, wenn der Fehler auftritt.

    Was Du machen musst, ist zuerst prüfen, ob $MiniView in der Zeile vorhanden ist.
    Falls ja, den Text ab dort in eine Variable auslesen.
    Für die nächsten Zeilen prüfen, ob XXXX in der Zeile vorhanden ist.
    Falls nein, die ganze Zeile der Varibalen anfügen sonst, nur den Teil bis zum XXXX auslesen und zur Variablen hinzu.
    Jetzt kannst Du die Variable abspeichern.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Hallo,

    anhand deiner Umschreibung der Textdatei konnte keiner ahnen, das die gesuchten Worte in verschiedenen Zeilen stehen.

    Versuch's mal hiermit:

    Visual Basic-Quellcode

    1. SUB Test
    3. DIM strZeile AS STRING
    4. DIM Start AS STRING
    5. DIM Ende AS STRING
    6. DIM i AS LONG
    9. Start = "$MiniView"
    10. Ende = "XXXX"
    12. OPEN "D:\MTRNS.txt" FOR INPUT AS #1
    13. OPEN "D:\TMP-MTRNS-From.txt" FOR OUTPUT AS #2
    15. i=0
    16. WHILE NOT EOF( 1 )
    18. LINE INPUT #1, strZeile
    20. IF i THEN
    21. PRINT #2, strZeile
    22. END IF
    24. IF INSTR( strZeile, start ) THEN
    25. PRINT #2, strZeile
    26. i=1
    27. END IF
    29. IF INSTR( strZeile, ende ) THEN
    30. i=0
    31. END IF
    33. WEND
    35. CLOSE #1
    36. CLOSE #2
    38. END SUB

    Super!!! funktioniert perfekt! :)

    Vielen vielen Dank!



    Blöderweise ist im nächsten Step meines Programms ein weiteres Problem aufgetreten :wacko:

    Wenn ich den Inhalt der Textdatei anschließend nach excel importiere (via VBA) schreib er mir die Zeilen alle untereinander in die Zellen.

    Visual Basic-Quellcode

    1. Sub import
    2. Dim Zeile as String
    3. Open "D:\TMP-MTRNS-Text.txt" For Input As #1 ' Datei öffnen.
    4. i = 0
    5. Do While Not EOF(1)
    8. If i Then
    9. x1 = Zeile
    10. End If
    12. If InStr(Zeile, Start) Then
    13. x2 = Zeile
    14. i = 1
    15. End If
    16. If InStr(Zeile, Ende) Then
    17. i = 0
    18. End If
    20. Input #1, Zeile
    21. Tabelle2.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Zeile
    22. Loop
    23. Close #1
    24. End Sub


    Ich benötige den Text allerdings wieder von "$MiniView" - "XXXX" in einer Zelle. Hab schon ein wenig rumprobiert aber mir fehlen da wohl die Erfahrungen... bzw. das Wissen :rolleyes:

    Hallo,

    versuch's mal hiermit.

    Wenn du die temporären Dateien nicht benötigst, kannst du auch gleich die Originaldatei einlesen.
    Da ich zur Zeit nicht mit Excel testen kann (will), haben ich zum Testen die testaus.txt Datei eingefügt.

    Visual Basic-Quellcode

    1. SUB import
    3. DIM Zeile AS STRING
    4. DIM start AS STRING
    5. DIM ende AS STRING
    6. DIM ausgabe AS STRING
    7. DIM i AS LONG
    9. Start = "$MiniView"
    10. Ende = "XXXX"
    12. OPEN "D:\TMP-MTRNS-Text.txt" FOR INPUT AS #1 'Datei öffnen.
    13. OPEN "D:\testaus.txt" FOR OUTPUT AS #2
    15. i = 0
    16. WHILE NOT EOF( 1 )
    17. INPUT #1, Zeile
    19. IF INSTR( Zeile, Start ) THEN
    20. ausgabe = ""
    21. i = 1
    22. END IF
    24. IF i THEN
    25. ausgabe = ausgabe + " " + zeile
    26. END IF
    28. IF INSTR( Zeile, Ende ) THEN
    29. i = 0
    30. ausgabe = LTRIM$(ausgabe)
    32. 'Tabelle2.Cells( Rows.Count, 4 ).End( xlUp ).Offset( 1, 0 ) = AUSGABE
    34. PRINT #2, ausgabe
    35. END IF
    37. WEND
    38. CLOSE #1
    39. CLOSE #2
    41. END SUB

    Vielen Dank Eierlein funktioniert Super! :D

    Ich versuche gerade eine max. Zeichenbegrenzung pro Zeile zu definieren, da teileweise der ausgelesene Text über 1000 Zeichen lang ist und eine Textdatei nur 1000 Zeichen in eine Zeile schreiben kann (Danach Zeilenumbruch).

    Visual Basic-Quellcode

    1. Open "D:\MTRNS.txt" For Input As #1
    2. Open "D:\TMP-MTRNS-Text.txt" For Output As #2
    3. start = "$MiniView"
    4. ende = "XXXX"
    6. i = 0
    7. While Not EOF(1)
    8. Input #1, Zeile
    10. If InStr(Zeile, start) Then
    11. ausgabe = ""
    12. i = 1
    13. End If
    14. If i Then
    15. ausgabe = ausgabe + " " + Zeile
    16. End If
    17. If InStr(Zeile, ende) Then
    18. i = 0
    19. ausgabe = LTrim$(ausgabe)
    20. End If
    22. If Len(Zeile) > 1000 Then
    23. Print #2, "Text zu groß"
    24. Else
    25. Print #2, ausgabe
    26. End If
    27. Wend
    28. Close #1
    29. Close #2


    Die Anzahl der Zeichen bekomme ich doch über den "len" Befehl oder?

    Der Code Zeigt zwar keinen Fehler an macht aber nicht das was er eigentlich soll. (Wenn der eingelesene Text von "MiniView" bis "XXXX" länger bzw. > als 1000 Zeichen ist dann "Text zu groß" ausgeben)

    Hallo,

    wenn du die Ausgabe bei zu langen Zeilen in der nächsten Zeile fortsetzen willst, dann versuch's mal damit:

    Die vorhandene > IF i THEN < Abfrage erweitern!


    Visual Basic-Quellcode

    1. IF i THEN
    2. ausgabe = ausgabe + " " + Zeile
    4. IF LEN( ausgabe ) > 950 THEN 'Sollte höchstens 1000 - Länge des längsten Wortes sein
    5. PRINT #2, ausgabe
    6. ausgabe = "Fortsetzung: " 'wenn in der Folgezeile kein Hinweis stehen soll, dann ausgabe = ""
    7. END IF
    9. END IF

Facebook
Telefonspende