Cookies helfen bei der Bereitstellung dieser Website. Durch die Nutzung dieser Website erklären Sie sich damit einverstanden, dass Cookies gesetzt werden. Mehr erfahrenOK

Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind 4 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