我想在 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。任何想法提取评论部分?
非常感谢 !