Dim sourceString As String = "1 2 " & """" & "abc def" & """" & " 456 " _
          & """" & "hij" & """"
        Dim tempList As List(Of String) = sourceString.Split(" ").ToList
        Dim yourList As New List(Of String)
 
        Dim previousEntryWasNumeric As Boolean = True
 
        For i As Integer = 0 To tempList.Count - 1
            If Not IsNumeric(tempList(i)) Then
                If previousEntryWasNumeric = False Then
                    yourList(i - 1) = (tempList(i - 1) & " " & tempList(i))
                Else
                    yourList.Add(tempList(i))
                End If
                previousEntryWasNumeric = False
            Else
                yourList.Add(tempList(i))
                previousEntryWasNumeric = True
            End If
        Next i

fg viperbone

Beitrag wurde zuletzt am 31.07.09 um 21:01:26 editiert.