[VB] string naar array.

[Gijsie]

Misschien een eenvoudige oplossing...

Ik wil een String, uit een Textbox omzetten naar een 1-demensionaal Array

Voorbeeld

dim Str1 as String
dim arrayA(3) as String

Str1 = "Gijs"

Hoe maak ik deze stap???????????????????????????

arrayA(0)="G"
arrayA(1)="i"
arrayA(2)="j"
arrayA(3)="s"

GREETZ..

[whoami]

Met behulp van een for-lus. De string overlopen en ieder karakter in de array zetten.
Zijn strings in VB trouwens geen arrays op zich?

[farlane]

Strings in basic zijn BSTR's. Dwz het begint met de lengte van de string en daarna de string zelf. Je kunt ze in vb niet behandelen als een array trouwens.

[drm]

farlane:
Dwz het begint met de lengte van de string en daarna de string zelf.

In het geheugen bedoel je?

_{just curious}

[bigtree]

als Str1 = "Gijs" en x = 1 -> len(Str1)

dan geldt:
arrayA(0)= mid(Str1, x-1, 1) = "G"
arrayA(1)= mid(Str1, x-1, 1) = "i"
arrayA(2)= mid(Str1, x-1, 1) = "j"
arrayA(3)= mid(Str1, x-1, 1) = "s"

oftewel, mid(Str1, x-1, 1) is wat handiger?

[Feyd-Rautha]

er bestaat zo iets al de "split"-functie

maar dan moeten er wel scheidingstekens zijn. Misschien als je nu eens geen scheidingsteken opgeeft? ('k heb dit wel zelf nog niet geprobeerd)

[drm]

bigtree:
als Str1 = "Gijs" en x = 1 -> len(Str1)

dan geldt:
arrayA(0)= mid(Str1, x-1, 1) = "G"
arrayA(1)= mid(Str1, x-1, 1) = "i"
arrayA(2)= mid(Str1, x-1, 1) = "j"
arrayA(3)= mid(Str1, x-1, 1) = "s"

oftewel, mid(Str1, x-1, 1) is wat handiger?

oftewel je bedoelt:

code:

FOR x = 0 to len(string)
   arrayA(x) = mid(string, x, 1);
next x

_disclaimer:
VB is not my kinda language

[bigtree]

Op donderdag 30 mei 2002 16:57 schreef drm het volgende:

[..]

code:

FOR x = 0 to len(string)
   arrayA(x) = mid(string, x, 1);
next x

Maak daar van:

code:

FOR x = 1 to len(string)
   arrayA(x-1) = mid(string, x, 1);
next x

Als je hem wilt zoals je in je eerste post zei.

[farlane]

Op donderdag 30 mei 2002 15:55 schreef drm het volgende:

[..]

In het geheugen bedoel je?

_{just curious}

Jup. Daar wordt je op gewezen als je een dll functie met een char * argument called met een String vanuit vb.

[Verwijderd]

Op donderdag 30 mei 2002 15:45 schreef farlane het volgende:
Strings in basic zijn BSTR's. Dwz het begint met de lengte van de string en daarna de string zelf. Je kunt ze in vb niet behandelen als een array trouwens.

Het werkt het nog bizarder zelfs de pointer naar je string wijst gewoon naar 'n 0 terminated unicode string maar in de 4 bytes voor je pointer staat de lengte van je string..

[Verwijderd]

Het converteren van verschillende typen. Dit werkt ook bijvoorbleeld om van bijv 2 integers 1 long te kunnen maken enz. Hangt maar net af wat voor typen het zijn.

code:

Option Explicit


Private Type tString
    str As String * 5
End Type


Private Type tArray
    arr(4) As Byte
End Type


Private Sub Command1_Click()

Dim blaat As tArray
Dim blaat2 As tString

blaat2.str = "test"


LSet blaat = blaat2



MsgBox Chr(blaat.arr(0)) + Chr(blaat.arr(1)) + Chr(blaat.arr(2)) + Chr(blaat.arr(3)) + Chr(blaat.arr(4))

End Sub

[Gijsie]

Split werkt niet, had ik al geprobeerd
je moet inderdaad een scheidingsteken opgeven.
met " " (spatie) onderscheid je woorden; elk woord in een array element.

met "" zet je de hele string in een element.

Ik zal het eens proberen met de Mid functie

Bedankt alvast!