2014-03-19 89 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) 
相关问题