[Tutorial] Codigo De Fuente Para reemplazar una cadena de texto dentro

Amigos ojala a los que tiene conocimiento avanzado en este lenguaje le sirva esta FUNCION


Esta función de Visual Basic permite reemplazar una cadena de texto dentro de otra. Utiliza la función "replace" de Visual Basic 6. A continuación os mostramos el código fuente en Visual Basic la función:
Function reemplazarTexto(textoCompleto As String, textoBuscar As String,
textoReemplazar As String) As String
Dim resultado As String

resultado = Replace(textoCompleto, textoBuscar, textoReemplazar, , , vbTextCompare)
reemplazarTexto = resultado
End Function
Un ejemplo de utilización: ...
Dim NumPro as String

'quitamos el signo "+"
NumPro = reemplazarTexto(NumPro, "+", "")

'cambiamos la "," por "."
NumPro = reemplazarTexto(NumPro, ",", ".")

molProtocolo.Value = NumPro
molTransmitente.Value = TraNom
molAdquirente.Value = AdqNom
...
El resultado será, en el primer caso, si la variable "NumPro" tiene algún carácter "+" será eliminado, pues lo reemplazamos por "" (vacío).
En el segundo caso, la función reemplazará todos los caracteres "," de la variable "NumPro" por ".".


BUENO AMIGOS OJALA LES SIRVA ESTE APORTE
Como siempre agradecimientos a Ajdsoft