Springen naar inhoud


- - - - -
VB6

Een Spatie Toevoegen In Textbox



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 19 november 2016 - 09:59

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

#2 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 19 november 2016 - 21:43

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





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)