Er zijn 6 reacties in dit onderwerp

[houthalen]

dag
Ik ben lang bezig met een toch simpel formule maar ik komt niet uit.
Ik heb 2 textboxen

txtGetal
in Getal komt een getal met xxxx.. , willekeurige  cijfers
bv 31232
hier dus 5 cijfers maar kunnen ook meer zijn

txtNaam
In Naam heb ik een naam met hetzelfde aantal karacters van de cijfers in Getal
bv Maria (5 carakters)
wat ik zou willen is(uit het voorbeeld van boven)
in een derde textbox 'txtuitkomst' dit te krijgen

MMMARRIIIAA

dus het aantal karacters van de naam converteren naar de waarde van de cijfers
Ik toon hier een van (zoveelste) geprobeerde formules maar het
uitkomst was anders dan verwacht
Code:

Private Sub Command1_Click()
For i = 1 To Len(Getal.Text)
Naam.Text = Mid$(Getal.Text, i, 1)'(?)
Next i
(?)...

End Sub

[Damic]

is het niet Naam.Text = Naam.Text & Mid$(Getal.Text, i, 1)'(?) en een telling begint vanaf 0 en niet bij 1 :+

[houthalen]

Citeren

is het niet Naam.Text = Naam.Text & Mid$(Getal.Text, i, 1)'(?)

Sorry Damic, ik heb uw opmerking (of tip?) niet begrepen. Hoe moet het dan precies?
dank je

[Damic]

dat je 1 je textbox altijd overschrijft en 2 dat je op karakter 1 begint en niet op karakter 0  mid() blijkbaar niet.
En dat je eigenlijk een loop in een loop moet maken en trouwens wat als er 0 staat?

Ik heb een redelijk pasklaar antwoord maar ik gaan het nog niet met je delen, vermits het bedoeling is dat je zelf wat nadenkt en oplossing vind

[Svr]

Code:

Private Sub Command1_Click()
txtuitkomst.Text = ""

For i = 1 To Len(naam.Text)
   For x = 1 To Mid(getal.Text, i, 1)
	  txtuitkomst.Text = txtuitkomst.Text & Mid$(naam.Text, i, 1)
   Next x
Next i
End Sub

[houthalen]

Citeren

vermits het bedoeling is dat je zelf wat nadenkt en oplossing vind

Ik heb zeker geprobeerd een oplossing te vinden. De code dat ik getoond heb
is een van de vele pogingen (ook als verkeerd is.)
Ik had ook het gevoel dat een dubbel loop moet tussen getal en Naam om de twee te verbinden;

[houthalen]

Ik heb pas nu uw oplossing gezien, Svr, (ik had gisterenavond geen verbinding  meer)
Dubbel dank, eerste voor de oplossing (die uiteraard werkt)  maar vooral omdat ik heb nu begrepen  
hoe ik dat moest doen.
dank je
En dank ook aan Damic die ook gezegd had dat ik met 2 loop moest het doen, maar ik kon niet uit.