Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

String aufsplitten

Uploader:RedakteurMOD
Datum/Zeit:22.01.2012 15:07:52

Dim As Integer array(0 To 8)
Dim As String beispiel = "213 53452 324 4354 456 345 768 987 4325"

For i As Integer = 0 To Len(beispiel) - 1
    Static As String temp
    Static As Integer nr = 0
    If beispiel[i] = 32 Then
        array(nr) = ValInt(temp)
        temp = ""
        nr += 1
    Else
        temp &= Chr(beispiel[i])
    EndIf

    If i = Len(beispiel) - 1 Then
        array(nr) = ValInt(temp)
    EndIf
Next

For i As Integer = 0 To 8
    Print array(i)
Next

Sleep