如何将这个字符串拆分为两部分？

Question

我想在Access 2000（Visual Basic函数）中拆分这样的字符串：

"[Results]

 [Comments]"         

分为两部分：

• 结果部分
• 评论部分

您可以注意到，这两个部分用空行分隔（总是，这是我们的分隔符）。

[Results]和[Comments]是文本块。我们不在乎它的内容除外：

结果部分中没有任何空行，因此我们看到的第一个空行是分隔符。

我希望我的函数只提取“注释”部分。

这是我试过的：

Public Function ExtractComm(txt As String) As String

Dim emptyLine As Integer

txt = Trim(txt)

'emptyLine = first empty line index ??
emptyLine = InStrRev(txt, (Chr(13) + Chr(10)) & (Chr(13) + Chr(10)))

'Comments part = all that is after the empty line ??
ExtractComm = Mid(txt, emptyLine + 4)

End Function

但它效果不佳。 如果我这样做：

ExtractComm(
   "Res1
    Res2

    Comment1

    Comment2"
)

我想获得：

"Comment1

Comment2"   

但我只获得评论2。有什么想法提取评论部分吗？

非常感谢！

Answer 1

也许您需要使用InStr代替InStrRev

<强> InStrRev

从字符串的右侧开始，返回第一次出现在另一个字符串中的位置。

<强> InStr函数 返回一个整数，指定第一次出现在另一个字符串中的起始位置。