Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim txt As String = "das ist der text " & Chr(34) & "Text in" & _
          "Gänsefüßchen" & Chr(34)
        Dim lst As List(Of String) = split34(txt)
 
    End Sub
 
    Private Function split34(ByVal txt As String) As List(Of String)
 
        Dim lst As New List(Of String)
        Dim found As Boolean = False
        Dim tmp As String = String.Empty
 
        For Each el As Char In txt.ToCharArray
            If el = Chr(34) Then
                If found Then
                    found = False
                    lst.Add(tmp.Replace(Chr(34), ""))
                    tmp = ""
                Else
                    found = True
                End If
            End If
 
 
            If el = " " And Not found Then
                lst.Add(tmp)
                tmp = ""
            End If
 
            If found Then
                tmp &= el.ToString
            Else
                tmp &= el.ToString.Trim
            End If
        Next
        Return lst
 
 
    End Function
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

Beitrag wurde zuletzt am 01.11.12 um 11:38:36 editiert.

''' <summary>Splitten einer Zeichenfolge unter Beachtung von markierten 
' Zeichengruppen</summary>
    ''' <param name="text">zu splittende Zeichenfolge</param>
    ''' <param name="split_char">Splitt-Zeichen</param>
    ''' <param name="group_char">Zeichen, das Beginn und Ende von 
    ' Zeichengruppen markiert</param>
    Public Function tm_split(ByVal text As String, ByVal split_char As Char,
                              ByVal group_char As Char) As String()
 
        Dim split_list As New List(Of String)(text.Split(split_char))
        Dim i As Integer = -1
        Do
            i += 1
            If split_list(i).StartsWith(group_char) And Not split_list( _
              i).EndsWith(group_char) Then
                split_list(i) &= " " & split_list(i + 1)
                If Not i = split_list.Count - 1 Then split_list.RemoveAt(i + 1)
                i -= 1
            End If
        Loop Until i = split_list.Count - 1
 
        For i = 0 To split_list.Count - 1
            split_list(i) = split_list(i).Trim(group_char)
        Next
        Return split_list.ToArray
    End Function

Dim text As String = "-Das ist ein- naja -sagen wir mal- seltsames -Thema.-"
Dim parts() As String = tm_split(text, " "c, "-"c)

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]