Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+