Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Agosto 21, 2008, 02:43:27
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Buscar palabra en el medio de un texto ? 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Buscar palabra en el medio de un texto ?  (Leído 151 veces)
The Bonus
Colaborador
*****
Desconectado Desconectado

Mensajes: 739



Ver Perfil
« en: Julio 02, 2006, 02:28:18 »
Holas.. como va ?
Una preg. como se hace para buscar dentro de un textbox una palabra.. es decir que al validar el form, se le pueda decir al boton que

If text1.text CONTIENE LA PALABRA "gay" then
msgbox "palabra no permitida"
end if

ya que si pongo

If text1.text = "gay" then
msgbox "palabra no permitida"
end if

Ai le estoy diciendo k solo este la palabra gay y al principio.. yo lo que quiero es en un textbox donde uno peude escribir un texcto largo ejemplo alguien escriba.. "Hola me llamo Carlos y mi tieo es muy gay, no me .." al validarlo que te diga k ese textbox ocontiene la palabra gay, como se hace Tongue ?

Byes
En línea
El ancho de tu firma excede el tamaño máximo permitido por el foro, porfavor redúcela.
[http://img50.imageshack.us/img50/9937/hack7tw.gif[/img]

"...No sabiendo que era imposible, fue y lo HIZO..."


Antes de postear busca, si no encuentras, usa google, si tampoco lo encuentras alli, buscalo entre los msg's del foro y si no tienes resultado postealo  en el foro!
Hendrix
Visitante
« Respuesta #1 en: Julio 02, 2006, 04:15:41 »
Te pondre un kodigo ke hice y no pense a postearlo aki...xD xD asi ke aki va:

Citar
esto sirve para buskar una determinada palabra en una frase o texto y lo elimina:

Citar
Dim a As String

a = "Hendrixholapunker"

For i = 1 To Len(a)
If Mid(a, i, 4) = "hola" Then
Text1.Text = Mid(a, 1, (i - 1)) & Mid(a, (i + 4))
End If
Next

Bien, nos tenemos ke fijar en lo siguiente:

Citar
If Mid(a, i, 4) = "hola" Then

Si os fijais, pongo 4 porke son las letras ke tiene la palabra hola

Citar
Text1.Text = Mid(a, 1, (i - 1)) & Mid(a, (i + 4))

Y aki lo mismo..... Afro Afro Afro

Lo ke hace esto es koger desde el principio hasta un caracter antes desde donde lo esta buskando y despues le agrega el resto, kitando lo ke keremos.....

Espero ke esto te sirva....

Salu2
En línea
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #2 en: Julio 02, 2006, 08:29:16 »
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Buscar palabra en el medio de un texto ? « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC