Hvad hedder functionen \"Replace\" i VB?

det hedder det samme! - min virker hvertfald fint i mit VB6

label1.caption = replace(\"streng-med-data\", \"tegn-som-skal-skiftes\",\"erstat-tegn-med-dette\")

Jeg prøvede lige at lave en form:

med en label (label1)
og en kanp (command1)

med følgende funktion (knappen)
Private Sub Command1_Click()
  Label1.Caption = Replace(\"Wolla\",\"o\",\"X\")
End Sub

Og det gir\' følgende resultat i label-box\'n:
WXlla

præcis du skal bare have noget den kan placere værdien efter vfunktiuonen i..
i overload.dk\'s eks. label1.caption.....

I tilfælde du kører med en gammel version af VB, kan måske finde hjælp på http://www.planet-source-code.com

- rigtig go\' hvis man er newbie

Jo, jeg kører med en lidt ældre version af vb - vb4 pro.
Jeg har også prøvet overload.dk\'s functioner men som nævnt i spørgsmålet kan den ikke.... ellers tak!

Jeg har nu fundet ud af en lille stump kode der gør det(skrevet som hjælp til andre med samme problem som jeg havde):

I f.eks. en commandbutton:
----------------------------------
    oldstring = \"hello To the world\"
    newletter = \"YEAH\"
    oldletter = \"hello\"
    newstring = Replace(oldstring, newletter, oldletter)
    MsgBox newstring
----------------------------------
Også i declarations:
----------------------------------
Public Function Replace(oldstring, newletter, oldletter) As String
    Dim i As Integer
    i = 1


    Do While InStr(i, oldstring, oldletter, vbTextCompare) <> 0
        Replace = Replace & Mid(oldstring, i, InStr(i, oldstring, oldletter, vbTextCompare) - i) & newletter
        i = InStr(i, oldstring, oldletter, vbTextCompare) + Len(oldletter)
    Loop
    Replace = Replace & Right(oldstring, Len(oldstring) - i + 1)
End Function
----------------------------------

/MadD... ellers takker!

Mums, den havde jeg lige ledt efter. Takker
Hvis man pifter den lidt op, så man kan vælge CompareMode, bliver den til:

Public Function Replace(TheString, ReplaceThis, ReplaceWith, Optional CompareMode As VbCompareMethod = vbTextCompare) As String
    Dim i As Integer
    i = 1


    Do While InStr(i, TheString, ReplaceThis, CompareMode) <> 0
        Replace = Replace & Mid(TheString, i, InStr(i, TheString, ReplaceThis, CompareMode) - i) & ReplaceWith
        i = InStr(i, TheString, ReplaceThis, CompareMode) + Len(ReplaceThis)
    Loop
    Replace = Replace & Right(TheString, Len(TheString) - i + 1)
End Function



Så kan den også kende forskel på w og W, hvis man sætter den til vbBinaryCompare.

Det var så lidt :P

Lukker spørgsmålet....