(VB6) - Getallen scheiden met een spatie in textbox

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
dag
Ik heb een textbox text1.text
In deze text1 komen een antal getallen te staan (ook dubbel) van 1-9
BV. 133567
dan in text2.text kan ik de getallen weergeven die in text1.text
niet voorkomen

met deze code
Code: 
c00 = "123456789"
    For j = 1 To Len(Text1.Text)
       c00 = Replace(c00, Mid(Text1.Text, j, 1), "")
    Next j
    Text2.Text = c00
dus 2489
Tot hier alles ok.

Ik wou nu in text2.text de gefiltreerde getallen gewoon scheiden met een spatie zo
2 4 8 9
en heb ik de code zo verbeterd
Code: 
c00 = Replace(c00, Mid(Text1.Text, j, 1), " ")

maar dan werkt niet. Ik kan de getallen niet correct scheiden met een spatie
Waar maak ik fout?
dank u
 
Ik heb zelf opgelost:
zo
Code: 
c00 = "123456789"
    For j = 1 To Len(Text1.Text)
       c00 = Replace(c00, Mid(Text1.Text, j, 1), "")
    Next j
    For i = 1 To Len(c00)
        Text2.Text = Text2.Text & Mid$(c00, i, 1) & " "
    Next i

Toch bedankt
satriano
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan