2014-03-19 72 views

回答

2

您可以嘗試使用Split()函數通過波形符號(~)拆分輸入字符串。然後,因爲你只關心子波浪之間,跳過第一個和最後一個項目的分割結果:

Dim splitResult = "~AS DF~GHJ~K LE~RTYUVD~FE~GRF E~SRRRTR EDC~XCE".Split("~") 
For Each r As String In splitResult.Skip(1).Take(splitResult.Length - 2) 
    Console.WriteLine(r) 
Next 

結果:

enter image description here

我們跳過第一個項目,因爲它只已經在右側代替

first item~..... 

並且我們跳過最後一項,因爲它只有t ilde在左側

.....~last item 
+1

非常感謝它,它工作正常 – mcbalaji

0

嘗試這樣

方法1:

Dim s As String = "~AS DF~GHJ~K LE~RTYUVD~FE~GRF E~SRRRTR EDC~XCE" 

' Split the string on the backslash character 
Dim parts As String() = s.Split(New Char() {"~"c}) 

' Loop through result strings with For Each 
Dim part As String 
For Each part In parts 
    Console.WriteLine(part) 
Next 

方法2:

Dim s As String = "~AS DF~GHJ~K LE~RTYUVD~FE~GRF E~SRRRTR EDC~XCE" 
Dim words As String() = s.Split(new String() { "~" }, 
             StringSplitOptions.None) 
相關問題