0

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

"[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。任何想法提取评论部分？

非常感谢 ！

4

1 回答 1

2

也许你需要使用InStr而不是InStrRev

InStrRev

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

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

于 2013-04-29T08:53:14.923 回答