データを RichTextBox1 にコピーして処理する 12 MB のファイルがあります。完了するまでに約 4 秒かかりますが、(RegexOptions.Compiled) を使用して高速化するように言われましたが、両方。
Debug.Print(ParseData2(RichTextBox1.Text, "start", "end"))
これは関数ですが、テストを行っている場所にコメントしました
Function ParseData2(strData As String, ByVal sStart As String, ByVal sStop As String)
'Dim r As New Regex(sStart & "(.*?)(" & sStop & "|$)", RegexOptions.Multiline Or RegexOptions.IgnoreCase Or RegexOptions.Compiled)
Dim r As New Regex(sStart & "(.*?)(" & sStop & "|$)", RegexOptions.Multiline Or RegexOptions.IgnoreCase)
Dim matches = r.Matches(strData)
Dim i As Integer = 1
For Each m As Match In matches
'Debug.Print(" match #" & i & ": " & m.Groups(1).Value)
i += 1
Next
Return matches.Count
End Function