Excel VBA-如何从给定的字符串中提取文本

Question

I have the following text in a cell.

I am using stackoverflow.
Stackoverflow is a question and answer forum.
Let's say I have one more line.

I have split this into an array.

Arr[0] = I am using stackoverflow.   
Arr[1] = Stackoverflow is a question and answer forum.   
Arr[2] = Let’s say I have one more line.

How can I specifically retrieve the string from Arr[1] from answer till forum.

Output should be - answer forum

Answer 1

Use substring.

Dim substring As String = RIGHT(arr[1], 13)

where 13 can be replaced with the length of the substring. Make sure the length isn't going to cause an index out of bounds exception.

Answer 2

This might not be the most robust answer depending on what your use case is. But the right() function will work.

answerString = Right(Arr(1), 13)
'answer forum.

Answer 3

I will assume that you don't know exactly where in your Arr(1) that the word "answer" occurs, and that the word "forum" does not occur directly after it, ie that the variable Arr(1) might contain the string "Stack Overflow is a question and answer site and is not a forum like so many other sites" . (Which is actually a better description of Stack Overflow!)

Dim temp As String
Dim result As String
arr(1) = "Stack Overflow is a question and answer site and is not a forum like so many other sites"

'Get everything after the first occurrence of "answer"
temp = Mid(arr(1), InStr(arr(1), "answer"))

'Get everything before the first occurrence of "forum"
result = Left(temp, InStr(temp, "forum") + 4)  ' + 4 because the InStr will point to the "f" of "forum"

'result will contain "answer site and is not a forum"