[VB5] Replace non funziona!!!

[skyhunter]

Salve!
Ho intenzione di creare un programma che mi sostituisca delle lettere in una textbox. Ho provato in questa maniera:

Replace(Text1.Text, "e", "z")

ma non ne vuole sapere... infatti mi restituisce il messaggio:

"Errore di Compilazione. Sub o Function non definita"

Qualcuno saprebbe aiutarmi?
Grazie

[PUNKABBESTIA]

Così...

Text1.Text = Replace(Text1.Text, "e", "z")

[skyhunter]

stesso problema...

[vonkranz]

Originariamente inviato da skyhunter
Salve!
Ho intenzione di creare un programma che mi sostituisca delle lettere in una textbox. Ho provato in questa maniera:

Replace(Text1.Text, "e", "z")

ma non ne vuole sapere... infatti mi restituisce il messaggio:

"Errore di Compilazione. Sub o Function non definita"

Qualcuno saprebbe aiutarmi?
Grazie

...ehm..... :quipy: ...in VB5 la funzione Replace() non esiste...

[skyhunter]

va beh... non c'è un metodo per vb5???

[Vegait]

 
Public Function Sostituisci(ByVal MyText As String, ByVal Trova as Sting, ByVal CambiaIn As String)

    Dim i As Long
    Dim a As String

    If Trova = "" OR CambiaIn = "" OR Trova = CambiaIn Then
       Sostituisci = MyText 
    Else
        a = MyText 
        i = InStr(i, a, Trova)
        While i <> 0
            a = Left$(a, i - 1) & CambiaIn & Mid$(a, i + 1)
            i = i -1 + Len(CambiaIn)
            i = InStr(i, a, Trova)
        Wend
        Sostituisci= a
    End If
End Function

[Toeke]

 Public Function Replace(sIn As String, sFind As String, _
            sReplace As String, Optional nStart As Long = 1, _
            Optional nCount As Long = -1, Optional bCompare As _
            VbCompareMethod = vbBinaryCompare) As String

          Dim nC As Long, nPos As Integer, sOut As String
          sOut = sIn
          nPos = InStr(nStart, sOut, sFind, bCompare)
          If nPos = 0 Then GoTo EndFn:
          Do
              nC = nC + 1
              sOut = Left(sOut, nPos - 1) & sReplace & _
                 Mid(sOut, nPos + Len(sFind))
              If nCount <> -1 And nC >= nCount Then Exit Do
              nPos = InStr(nStart, sOut, sFind, bCompare)
          Loop While nPos > 0
      EndFn:
          Replace = sOut
      End Function 

Identica a quella in vb6

[skyhunter]

Grazie raga, solo ora sto leggendo le vostre risposte...
Le proverò e vi farò sapere...

[skyhunter]

Funziona tutto alla perfezione!
1000 grazie