Question

背景

我必须在Excel VBA中创建一个代码，该代码打开一个文本文件，并将一些以“：60F”开头的字符串的特定部分写入Excel工作表的特定单元格。

这部分代码已经有效。

问题

但是，我正在努力完成任务的第二部分。我必须在Excel文档的另一个单元格中写入以“：61：”开头的特定字符串的一部分。

问题是，文本文件中有许多字符串以“61：”开头，但我需要在字符串以“60F：”开头后出现的字符串。

如果你能帮助我，我将非常感激。非常感谢你提前！

亲切的问候

这是我到目前为止编写的代码：

码

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

Regexp选项：

随机的东西
  随机的人   东西：60F：东西
  其他东西61：getme
  60F以上

在 61之后返回字母数字：（前面是：60F：），即本例中的 getme

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

从txt文件中提取字符串

1 个答案: