Extrakt String aus txt-Datei

Question

Hintergrund

Ich habe einen Code in Excel VBA erstellen, die eine Textdatei öffnet und schreibt einen bestimmten Teil von einigen seiner Saiten beginnend mit „: 60F“ in eine bestimmte Zelle das Excel-Blatt.

Dieser Teil des Codes funktioniert bereits.

Ausgabe

aber ich bin mit dem zweiten Teil der Aufgabe zu kämpfen. Ich muss in eine andere Zelle des Excel-Dokuments einen Teil einer bestimmten Zeichenfolge schreiben, die mit ": 61:" beginnt.

Das Problem ist, dass es viele Strings in der Textdatei gibt, die mit "61:" beginnen, aber ich brauche die, die direkt nach dem String beginnt, der mit "60F:" beginnt.

Ich wäre sehr dankbar, wenn Sie mir dabei helfen könnten. Vielen Dank im Voraus!

Mit freundlichen Grüßen

Hier ist der Code die ich bisher geschrieben:

Code

Function extract_opening_balance(ByVal filename As String, subfield_61 As String) As String 

Dim i As Integer 
Dim pos1 As Integer 

strPath = ActiveWorkbook.Path & "\Data of Reporting Month\" 
filename = strPath & "MT940_T2_" & main_menu.cbo_Year & Left(main_menu.cbo_Month, 2) & Format(day(CDate(Right(main_menu.lst_Date.List(i), 10))), "00") & ".txt" 

Open filename For Input As #1 
    For i = 3 To 13 
     Do Until EOF(1) 
      Line Input #1, textline 

         If InStr(textline, ":60F:") > 0 Then 


        If InStr(textline, "EUR") = 13 And InStr(textline, 0) <> 16 Then 
         'For j = 1 To String(":60F:").Count 

          pos1 = InStr(subfield_61, "//") + 30 

          'time_str = Mid(subfield_61, pos1, 6) 
          'time_str = Mid(time_str, 1, 2) & ":" & Mid(time_str, 3, 2) & ":" & Mid(time_str, 5, 2) 

          Sheets("op_balance").Range("B" & i).Value = Mid(textline, 6, 1) 
          Sheets("op_balance").Range("C" & i).Value = Mid(textline, 16, 20) 
          Sheets("op_balance").Range("D" & i).Value = subfield_61 
          Sheets("op_balance").Range("E" & i).FormulaR1C1 = "=IF(RC[-3]=""D"",(-1)*RC[-2],RC[-2])" 


         'Next j 
        End If 
      End If 
     Loop 
    Next i 

End Function 

Answer 1

A Regexp Option:

random stuff
random guy
Stuff: 60F: stuff
anderes Material 61: getme
60F mehr

kehrt alphanumerics nach 61: (vorangestelltem : 60F:), dh getme in diesem Beispiel

Sub GetMe() 

Dim FSO As Object 
Dim FH As Object 
Dim objRegex As Object 
Dim objRegexMC As Object 
Dim strIn As String 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set FH = FSO.OpenTextFile("c:\temp\test.txt") 
Set objRegex = CreateObject("vbscript.regexp") 
strIn = FH.readall 
strIn = Replace(strIn, vbNewLine, Chr(32)) 

With objRegex 
    .Pattern = ":60F.*61:(\w+)" 
    If .Test(strIn) Then 
     Set objRegexMC = .Execute(strIn) 
     MsgBox objRegexMC(0).submatches(0) 
    Else 
     MsgBox "text not found" 
    End If 
End With 

End Sub