|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função Para Substituir Strings
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Private Function Subst(ByVal Texto _
As String, ByVal Isto As String, _
ByVal PorIsto As String) As String
Dim i As Long
If Len(Isto) < 1 Then
Subst = Texto
Exit Function
End If
For i = 1 To Len(Texto)
If Mid(Texto, i, Len(Isto)) = Isto Then
Subst = Subst & PorIsto
i = i + (Len(Isto) - 1)
Else
Subst = Subst & Mid(Texto, i, 1)
End If
Next i
End Function
P/ usar, digamos que o TextBox Text1 contenha um texto como "Eu sei lá como isto funciona". Então, depois dessa linha:
Text1.Text Subst(Text1.Text, "sei lá", "não sei")
Text1 passará a conter "Eu não sei como isto funciona"
Detalhe: Neste Subst, você pode fazer algo como Subst("Texto","-/-","*") que ele substituirá sem problemas!!!!!!!!
No VB6 utilize a função REPLACE nativa do VB.
|
|
|
|
|
