通過指定子字符串的第一個和最後一個字符串來提取字符串中的子字符串

Question

我想知道是否有辦法通過指定開始的幾個字符和結束字符來提取子字符串的字符串。

作爲一個例子，我在工作簿中的單元格中有類似於問題底部的字符串，並且每個單元格都有一個類似的大字符串。我想提取所有的名字到一個數組中。

「c1-mc-」將始終是名稱的前綴。我希望我可以使用一個函數，在該函數中我可以指定對於以「c1-mc」開頭並以vbLf（enter）結尾的每個子串，提取這些子串。 我認爲Instr（）和Split（）可以幫助但不知道如何繼續。

"Str: 1/2/1 
End : 1/2/2 
Name: cl-mc-23223322 
Name: c1-mc-dddssda 
Info: alot of detail 
Name: c1-asa-dddssda 
task: asdf 
Name: c1-mc-xd132eds" 



<the code which works>  
For Each rng1 In table1.DataBodyRange.Columns(8).Cells 

MyString = rng1.Value 
Do Until InStr(MyString, "c1-mc") = 0  
namestart = InStr(MyString, "c1-mc") 
name = Mid(MyString, namestart) 
nameend = InStr(name, vbLf) - 1 
name = Left(name, nameend) 'this gives you a name 
namestart = InStr(name, "c1-mc") 
name = Mid(name, namestart) 
nameend = InStr(name, " ") - 1 
If (nameend = -1) Then 
nameend = Len(name) 
End If 
name = Left(name, nameend) ' gives you name incase there are no next lines 
MyString = Replace(MyString, name, "") 'this cuts the original string so it now starts where the name ended. 
MsgBox name 
i = i + 1 
Loop 
Next 

Answer 1

重新閱讀您的問題後編輯我想我沒有正確回答它。請詳細說明每個單元格中實際包含的內容以及我們正在討論的單元格數量（1？）。

字符串是字符的串聯。在幾行寫你的字符串並不意味着它實際上改變了。正如你所說的，當你輸入chr（10）或者vbLF時，行改變就會發生。我不確定你發佈的字符串中哪部分想要提取。假設你想利用一個單元的名稱，以及該字符串是在字符串變量[MyString中]舉行：

Dim name as string 
Dim namestart as integer 
Dim nameend as integer 

namestart = Instr(Mystring, "c1-mc-") 
name = Mid(Mystring, namestart + 1) 
nameend = Instr(Mystring, vbLF) 
name = Left(name, nameend) 

現在的名稱將包含您的字符串的名稱。測試一下（我沒有，你可能需要調整一些小的東西），當你有它時，使用for循環遍歷你的單元格，並將名稱添加到你想要的數組。

編輯2： 既然你要提取的名稱的所有實例在你的，我會把它改成這樣：

Dim name as string 
Dim namestart as integer 
Dim nameend as integer 
Dim namearray() as string 
Dim i as integer 

Do Until Instr(Mystring, "c1-mc-") = 0 'will continue filling the array until Mystrign no longer has any names) 
    namestart = Instr(Mystring, "c1-mc-") 
    name = Mid(Mystring, namestart + 1) 
    nameend = Instr(Mystring, vbLF) 
    name = Left(name, nameend) 'this gives you a name 
    Mystring = Mid(Mystring, Instr(Mystring, name)) 'this cuts the original string so it now starts where the name ended. 
    namearray(i) = name 
    i = i + 1 
Loop