Er zijn 1 reacties in dit onderwerp

[houthalen]

Ik heb een text1.text as input
In deze text1 komen een antal, willekeurige  getallen te staan (ook dubbel) van 1-9
BV. 133567
Met deze code zoek in de ontbrekend cijfers in text1.text (in onze voorbeeld dus 2489)

Code:

c00 = "123456789"
For j = 1 To Len(Text1.Text)
c00 = Replace(c00, Mid(Text1.Text, j, 1), "")
Next j
Text2.Text = c00

de ontbrekende cijfers komen te staan in text2.text.
Hoe kan ik een spatie toevoegen tussen de cijfers?
Zo dan
2 4 8 9
dank u
satriano

[houthalen]

zelf opgelost
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 aan iedereen