fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

String aufsplitten

Uploader:	MOD
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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.