Texbox problemer

Jeg har et problem med min vb 6.0

Jeg skal have opdelt min textbox sådan at jeg kan bruge hvert tal som et individ så den læser 1243 som 1, 2, 4, 3. og ikke som 1.243,00!

Noget der kan hjælpe mig med det?

Hvis de altid er 1 lange så
<pre>
Dim atal(32768) as byte
Dim xtel as long


for xtel=1 to len(text1.text)
atal(xtel)=val(mid$(text1.text,xtel,1))
next xtel
</pre>

en ande mulighed er at bede bruge indtatse dem med f.esk komma

<pre>
Dim atal() as string

atal=split(text1.tetx,",")

</pre>

Mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Jeg har et problem med min vb 6.0

Jeg skal have opdelt min textbox sådan at jeg kan bruge hvert tal som et individ så den læser 1243 som 1, 2, 4, 3. og ikke som 1.243,00!

Noget der kan hjælpe mig med det?

'antager at textbox hedder text1 og at du bruger cifrene enkeltvis

dim intArray(0) as integer
dim x as integer
dim l as integer
dim t as string

t = trim$(text1.text)
l = len(t)
redim intArray(l - 1)
for x = 0 to l - 1
intArray(x) = left$(t, 1)
t = mid$(t, 2)
debug.print("intArray(" & x & ") = " & left$(t, 1)
next x

Ikke for at stjæle kode eller noget, men her er lige et alternativ som samler det bedste fra jeres forslag:

Dim Numbers() As Byte
ReDim Numbers(Len(Trim$(txtNumbers.Text))) As Byte

Dim I As Integer
For I = 1 To Len(txtNumbers.Text)
    Numbers(I) = Val(Mid$(Trim$(txtNumbers.Text), I, 1))
Next I

Og her er lidt hjælp til at vælge:
Thomases første forslag bruger en del ram, VBCoders forslag bruger en del mindre og mit forslag bruger endnu mindre! Til gengæld kører min kode lidt langsomere da den skal gøre nogle ting flere gange, men det betyder næsten ingenting!

- Som du måske ved så fjerner Trim$() unødvendige mellemrum fra begge sider af tekststrengen. Spørgsmålet er hvor tit man får brug for det, men det er nok meget godt at have med.
- Du ved måske også at Val() omdanner et tegn (ikke tal) til 0 hvilket gør at man undgår fejl hvis brugeren kommer til at skrive et bogstav. Du skal så lige overveje om du vil have den med, for det kan godt være irriterende hvis programmet bare forsætter med at arbejde med et forkert array. Hvis man nu ikke selv ligger mærke til skrivefejlen kan resultatet være misinformerende...
- 'Redim' sørger for at give nogle fleksible arrays så man undgår at bruge mere hukommelse end nødvendigt.

// Your brain is your weapon, do not waste it!!