Página 1 de 1

El asterisco extraviado

Publicado: Sab Jun 11, 2005 12:36 am
por LOOKYES
Una duda disculpen:
¿Alguien sabe como buscar el caracter asterisco?
Por ejemplo en una base de datos en access

Publicado: Dom Jun 12, 2005 6:28 pm
por gonzalo_aizpun
Lo que necesitas, es usar funciones de STRINGS en vb.

Te hago un ejemplo para buscar un asterisco en una Cadena

Private Sub Buscar_Click()

' Declaración de Variables
Dim Cadena_Original As String
Dim Cadena_a_Buscar As String
Dim Posicion As Integer
Dim Encontro_Cadena As Boolean

' Inicialización de Variables
Cadena_Original = "Hola * mi nombre es Carlos"
Cadena_a_Buscar = "*"

' Buscamos...
Posicion = InStr(1, Cadena_Original, Cadena_a_Buscar)

' Resultados...
If Posicion <> 0 Then
Encontro_Cadena = True
MsgBox "Se encontró un Asterisco en Posicion: " & Posicion
Else
Encontro_Cadena = False
MsgBox "No hay un Asterisco en esta Cadena"
End If

End Sub