Erottelu "|"

[mokkeri]

Eli miten erottaa dataa seuraavasti:
asd1|asd2|asd3 jne

[valscion]

GetWord?

EDIT:

Tässäpä vielä esimerkki, miten luetaan tiedot taulukkoon:

Code: Select all

datastr$ = "Hello| world|!| |This |thing |works |:)"

koko = CountWords(datastr, "|")
Dim taulukko(koko) As String

For paikka = 1 To koko
    taulukko(paikka - 1) = GetWord(datastr$, paikka, "|")
Next paikka

For i = 0 To koko - 1
    Write taulukko(i)
Next i

WaitKey

[/edit]

[mokkeri]

GetWord?

EDIT:

Tässäpä vielä esimerkki, miten luetaan tiedot taulukkoon:

Code: Select all

datastr$ = "Hello| world|!| |This |thing |works |:)"

koko = CountWords(datastr, "|")
Dim taulukko(koko) As String

For paikka = 1 To koko
    taulukko(paikka - 1) = GetWord(datastr$, paikka, "|")
Next paikka

For i = 0 To koko - 1
    Write taulukko(i)
Next i

WaitKey

[/edit]

tänks