Bestimmte Wörter in .txt-Datei suchen und folgende Zeichenkette ausgeben
14.11.2019 11:29:01
Erdnusskrieger
ich habe folgendes Problem und hoffe auf eure Unterstützung!
Ich suche zusätzlich zu meinem bisherigen Code noch drei einzelne Wörter aus einem .txt-Dokument. Ich hab das Gefühl, dass ich den schweren Part bereits mit dem Forum hier gelöst habe, den leichten aber nicht programmiert bekomme. Und zwar brauche ich die Zeichenkette die hinter den Begriffen FGNR, Bau und Stelle steht.
Beispiele:
Zu Bau:
Bau_____:_A1CD (Unterstriche sind Leerzeichen!) (So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das A1CD (ist nur ein Beispiel, es ist möglich, dass die Zeichenkette in der Länge variabel ist, sprich es können auch nur 3 Zeichen oder sogar 5 sein). Bau kommt öfters in der Datei vor. Ich brauche aber nur die Zeichenkette (in dem Fall A1CD) wo es zum ersten mal im .txt-Dokument auftritt. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I1" geschrieben werden.
Zu FGNR:
XX__ABCD_______blub_______FGNR_____________:_3O92J37 (Unterstriche sind Leerzeichen) (So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das 3O92J37(ist nur ein Beispiel, die Zeichenkette ist aber immer 7-stellig). FGNR kommt öfters in der Datei vor. Ich brauche aber nur die Zeichenkette (in diesem Fall 3O92J37) wo es zum ersten mal auftritt. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I2" geschrieben werden.
Zu Stelle:
XX__ABCD_______Blub_______Stelle_____________:_A22A-22-22-222 (Unterstriche sind Leerzeichen)(So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das A22A-22-22-222 in diesem Fall(ist nur ein Beispiel, die Zeichenkette kann unterschiedlich lang sein). Stelle kommt nur einmal in der Datei vor. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I3" geschrieben werden.
Ich habe bereits schon vieles probiert,jedoch komme ich nicht zum gewünschten Ergebnis. Dachte wenn ich quasi die Schleife einfach wiederhole, nur mit den neuen Variablen, sollte es funktionieren... hab ich falsch gedacht :) Dr. Google hab ich auch durchforstet, leider ohne Erfolg.. Könntest ihr mir hierbei noch behilflich sein?
So wie der bisherige Code ausschaut, soll er auch bleiben, denn ich habe bereits eine Suchabfrage nach SA's gestartet um andere Informationen die hintenanstehen zu finden. Mit Erfolg :)
Ich hoffe ich konnte mich verständlich ausdrücken.
Code sieht bisher folgendermaßen aus:
Sub Check_In_einlesen()
'Variablen definieren
Dim Quelldatei As String 'Speicherort der Textdatei
Dim Inhalt As String 'Inhalt der Textdatei
Dim Zeile As Integer 'Laufvariable
Dim sWord1 As String 'Wort nach dem gesucht werden soll
Dim sWord2 As String 'Wort nach dem gesucht werden soll
Dim sWord3 As String 'Wort nach dem gesucht werden soll
Dim sWord4 As String 'Wort nach dem gesucht werden soll
Dim AnzFound As Integer
Dim lngStelle1 As Long 'Stelle, an der das sWord1 gefunden wurde
Dim arSAs 'Array für die SAs einer Zelle
AnzFound = 0
'Wörter nach denen gesucht werden soll
sWord1 = "SA's"
sWord2 = "FGNR"
sWord3 = "Bau"
sWord4 = "Stelle"
'Quelldatei ansprechen
Quelldatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("SA-Konfiguration").Activate
'Quelldatei öffnen
Open Quelldatei For Input As #1
'SA-Codes in SA-Konfiguration eintragen
Do While Not EOF(1) 'Schleife bis Datenende
'Inhalt der Quelldatei zeilenweise einlesen
Line Input #1, Inhalt
lngStelle1 = InStr(1, Inhalt, sWord1)
If lngStelle1 > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("SA-Konfiguration").Cells(AnzFound, 3) = Mid(Inhalt, 46) 'Nur die SA-Codes _
ausgeben
arSAs = Split(Mid(Inhalt, lngStelle1 + 19), " ")
Sheets("SA-Konfiguration").Cells(AnzFound, 3).Resize(, UBound(arSAs) + 1) = arSAs ' _
_
Nur die SA-Codes
End If
Loop
'Quelldatei schließen
Close #1
End Sub
Anzeige