Función para reemplazar una cadena de texto dentro de otra

Lenguaje de programación Visual Basic

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 ".".

Publicado el: 2006-06-12