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 回答