如何將這個字符串分成兩部分？

Question

我想在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。任何想法提取評論部分？

非常感謝！

Answer 1

也許你需要使用InStr代替InStrRev

InStrRev

返回一個字符串中的另一個第一次出現，從字符串的右側開始的位置。

InStr 返回一個整數，指定在另一個字符串中第一次出現的起始位置。