[VB6] Functie meerdere keren in sub

[ViNyL]

Misschien beetje brakke titel maar ok...

Ik heb een functie:

code:

Public Function ReplaceString(StringToUse As String, CharacterToSearch As String, ReplacementCharacter As String) As String
    ReplaceString = ""
    For i = 1 To Len(StringToUse)
        If Mid(StringToUse, i, 1) = CharacterToSearch Then
            ReplaceString = ReplaceString & ReplacementCharacter
        Else
            ReplaceString = ReplaceString & Mid(StringToUse, i, 1)
        End If
    Next i
End Function

ik pak de input van een text box een haal die erdoor heen

code:

txtOutput.Text = ReplaceString(txtInput, "A", "a")

Maar wat nou als ik meerdere dingen wil vervangen bijvoobeeld ook nog de e ? Kan je bv de functie 2 keer iets laten doen en dat met de zelfde string als input ??

Als ik namelijk die regel 2 keer onder elkaar zet en het gene wat ie moet vervangen bij de 2de regel aanpas doet ie namelijk alleen die.....

[pkouwer]

...

[ Voor 100% gewijzigd door pkouwer op 13-12-2002 22:12 ]

[Phenomenon]

Je zou de vervangende letters in een array kunnnen proppen en dan die array doorlopen in je functie todat je alles hebt gehad.

Moet je anders ff op Ubound zoeken in je help.

[ViNyL]

hmm ben nog maar net met VB bezig dus dat over arrays etc zegt me niet heel veel...zal het eens kunnen opzoeken..

[pkouwer]

ViNyL schreef op 13 December 2002 @ 22:08:
hmm ben nog maar net met VB bezig dus dat over arrays etc zegt me niet heel veel...zal het eens kunnen opzoeken..

als je toch gaat zoeken kijk dan eens bij replace, is een standaard VB-functie die volgens mij doet wat jij wilt

[ViNyL]

Met die replace functie kan ik ook niet meerdere characters aanpassen.

ik roep hem aan met

code:

txtOutput.Text = Replace(txtInput.Text, "e", "E")

Maar ook als je deze 2 keer onder mekaar zet:

code:

txtOutput.Text = Replace(txtInput.Text, "e", "E")
txtOutput.Text = Replace(txtInput.Text, "a", "A")

pakt ie alleen de laatste regel.....

[PolarBear]

Als je nu het volgende probeert:

code:

dim sTemp as string

sTemp = Replace(txtInput.Text, "e", "E")
sTemp = Replace(sTemp , "a", "A")
txtOutput.Text = sTemp

[E-RIC]

Misschien ff in een variabele zetten?

Visual Basic:

private sub replace_onclick (oid)

Private tmpstring As String
let tmpstring = txtOutput.Text
let tmpstring = Replace(tmpstring, "a", "A")
let tmpstring = Replace(tmpstring, "e", "E")
let txtOutput.Text = tmpstring

end sub

Trouwens, met F8 kan je goed debuggen, want je kan stap voor stap bekijken wattie doet en kijken welke waarde variabelen hebben. Zo zie je precies waar het fout gaat.

[ Voor 39% gewijzigd door E-RIC op 13-12-2002 22:37 ]

[ViNyL]

Thanks, dit werkt idd prima !

Weer wat geleerd !

[Verwijderd]

aan je laatste paar topix te zien ben je nu duz bezig met vb6.
de dingen die je vraagt zijn best wel erg basic, dus ik wil je egt aanmoedigen om een boek te halen in de bieb of om te kopen.

zo leer je de basis egt goed en dit zal nog heel veel voordeel opleveren.

[ViNyL]

Ja idd, in de bieb hier waar ik woon hadden ze alleen een basic boek over VB5...

In de stad hebben ze veel meer, daar moet ik maar even heen...

[Squall-sX]

Ik raad je aan van zelf een te kopen, aangezien je er toch altijd naar gaat terugkeren voor een paar dingen. Dat is ook normaal, zelfs als je al lang met VB bezig bent wil je af en toe wel eens iets extra weten, of zien warom iets fout is, en dan een naslagwerk in de buurt hebben is altijd handig.

[Adion]

Als naslagwerk zou ik persoonlijk geen boek aanraden, daar is de msdn library veel handiger voor vind ik zelf ( http://msdn.microsoft.com/library )
Dat zoek namelijk toch wat handiger als een boek vind ik.