提取字符串

背景提取字符串

我要在Excel中创建VBA代码打开一个文本文件，并把它的一些字符串开头的特定部分“：60F”成特定的细胞Excel工作表。

这部分代码已经工作。

问题

然而，I'm与任务的第二部分中挣扎。我必须在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

来源

2017-02-22 Eszter

文本文件有多大？你能提供一个简短的例子吗？ – Comintern

[Seek]（https://msdn.microsoft.com/en-us/library/7af2feyt（v = vs.90）.aspx）并且您应[Find]（https://msdn.microsoft.com/zh-cn/ -us/library/office/ff839746.aspx） – abraxascarab

[InStr函数]（https://msdn.microsoft.com/zh-cn/library/8460tsh1.aspx）允许您开始搜索的位置。记录'：60F'的位置（也许长），并将其用作开始寻找'：61：'的点。 – Jeeped

一个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

来源

2017-02-23 01:54:04 brettdj

非常感谢，brettdj！你真的帮了我很多。 – Eszter

回答

相关问题