Andere Art von Split

    • VB.NET

      Andere Art von Split

      VB.NET-Quellcode

      1. Public Function bSplit(ByVal Str As String, ByVal Delim As String) As String()
      2. Dim InStrx As Boolean = False, _
      3. Count As Integer = 0, _
      4. Spl(0) As String, _
      5. HatEintrag As Boolean = False
      6. For i As Integer = 1 To Len(Str)
      7. If InStrx = False Then
      8. If Mid(Str, i, Len(Delim)) = Delim Then
      9. Count += 1
      10. ReDim Preserve Spl(Count)
      12. End If
      13. End If
      15. If Mid(Str, i, 2) = Chr(34) & Chr(34) Then
      16. i = i + 2
      17. HatEintrag = True
      18. Spl(Count) = ""
      19. End If
      21. If Mid(Str, i, 1) = Chr(34) Then
      22. If InStrx = False Then
      23. HatEintrag = True
      24. i = i + 1 : InStrx = True
      25. Else
      26. InStrx = False
      27. End If
      28. End If
      30. If InStrx = True Then
      31. Spl(Count) = Spl(Count) & Mid(Str, i, 1)
      32. End If
      34. Next i
      35. Return Spl
      36. End Function


      Diese Variante von Split soll Werte genau so wie das Original zerlegen , jedoch werden Trennzeichen die zwischen Text Werten als " "
      nicht beachtet sprich, ich möchte nun diesen Text zerlegen :

      "Hallo, Welt","Guten Tag , meine Name ist..."

      nun wird Hallo Welt mit dem Komma zurückgegeben un der darauf folgende Teil auch jedoch sind es 2 Werte nur das das Komma
      das sie trennt außerhalb eines Text Wertes liegt ( Blau Markierte Komma )

      Ich habe die Funktion mal gebastelt da ich das Komma als Trennzeichen nutzen wollte jedoch Kommas in den Zwischen Werten enthalten waren

    Facebook