獲取字符串vb.net

Question

ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~ 

我需要的字符串QW，LOP，123，QL這是在兩者之間〜

Answer 1

看來你想在~拆分後每2項。
這應該這樣做：

Dim str = "ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~" 
Dim res = str.Split("~"C) _ 
      .Select(Function(x, i) New with { x, i }) _ 
      .Where(Function(s) s.i Mod 2 = 1) _ 
      .Select(Function(s) s.x) 

結果將是字符串的集合："QW","LOP","123","QL"

Answer 2

這樣的事情，你可能會想正則表達式。

.*?~([^~]+?)(?=~) 

雖然給你的例子，String.Split可能會被按摩到工作。

這是使用正則表達式的ideone sample。

而這裏的使用String.Split Split函數的版本....

Public Function Split(input As String) As List(Of String) 
    Dim results as List(Of String) 
    Dim pos = input.IndexOf("~") 
    If pos < 0 Then 
     Return New List(Of String) ' return empty list if no match 
    End If 
    input = input.Remove(0, pos) 
    input = input.Substring(0, input.LastIndexOf("~")) 
    results = input.Split("~").Where(Function(x) Not String.IsNullOrEmpty(x)).ToList() 
    Return results 
End Function