Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Función para reemplazar una cadena de texto dentro de otra - Visual Basic
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A