Foros del Web » Programación para mayores de 30 ;) » .NET »

Detectar Palabra entre caracteres VB6

Estas en el tema de Detectar Palabra entre caracteres VB6 en el foro de .NET en Foros del Web. Hola, que tal, buen dia... no encontre foro de VB6 asi que lo puse aqui espero que no haya problema. mi duda es la siguiente ...
  #1 (permalink)  
Antiguo 29/10/2012, 14:05
Avatar de Ciberdanny  
Fecha de Ingreso: marzo-2005
Ubicación: Distrito Federal
Mensajes: 208
Antigüedad: 19 años
Puntos: 1
Detectar Palabra entre caracteres VB6

Hola, que tal, buen dia... no encontre foro de VB6 asi que lo puse aqui espero que no haya problema.

mi duda es la siguiente no he podido solucionarla a ver si me ayudan pls.

En una cadena de texto necesito saber que palabra hay antes de cierto caracter??

es decir asi:

supongamos que pongo esta adena de texto:

holaprueba>lo que sea lo que sea

Quisiera saber como le puedo hacer con un codig que m diga que dice antes del simbolo > eso que dice ahi puede cambiar asi que necesito saber como hacer que visual me diga que dice antes de ese simbolo??

alguna idea???

de antemano agradezco la ayuda!!
__________________
www.eris.com.mx
  #2 (permalink)  
Antiguo 29/10/2012, 15:38
Avatar de lucord  
Fecha de Ingreso: marzo-2010
Ubicación: San Jose, Costa Rica
Mensajes: 87
Antigüedad: 14 años
Puntos: 10
Respuesta: Detectar Palabra entre caracteres VB6

Hola Ciberdanny, puedes usar estos dos metodos:

Código vb:
Ver original
  1. cadena = "holaprueba>lo que sea lo que sea"
  2. posicion = InStr(1, cadena, ">")
  3. salida = Mid(var, 1, posicion - 1)

La función InStr encuentra la posición donde se encuentra el carácter delimitador (devuelve un valor numérico )

Luego la función Mid extrae una cadena de caracteres hasta la posición que tu le indiques, en este caso la posición que delimitamos inicialmente.

La variable salida, almacena el valor final obtenido en este caso "holaprueba"

El -1 es para que no nos muestre dentro de la cadena el caracter especial que separa las cadenas.


Espero la información te sirva.


Salu2.


Luis C.
  #3 (permalink)  
Antiguo 29/10/2012, 15:58
Avatar de Ciberdanny  
Fecha de Ingreso: marzo-2005
Ubicación: Distrito Federal
Mensajes: 208
Antigüedad: 19 años
Puntos: 1
Respuesta: Detectar Palabra entre caracteres VB6

hola lucord te agradezco la ayuda, creo que si funciona aunque tengo un detalle o no se si lo meti mal:

esto haciendole asi:

cadena = "pruebaprueba>lo que sea lo que sea"
posicion = InStr(1, cadena, ">")
salida = Mid(Var, 1, posicion - 1)
MsgBox salida


cuando pruebo el codigo me arroja un msgbox en blanco, sin contenido, si le pongo msgbox posicion si me arroja la posicion correcta, pero si le pongo msgbox salida no me arroja información

es algo que estoy haciendo mal???
__________________
www.eris.com.mx
  #4 (permalink)  
Antiguo 29/10/2012, 16:21
Avatar de Ciberdanny  
Fecha de Ingreso: marzo-2005
Ubicación: Distrito Federal
Mensajes: 208
Antigüedad: 19 años
Puntos: 1
Respuesta: Detectar Palabra entre caracteres VB6

hola, creo que ya quedo jajajaa muchas gracias por tu ayua!!!!!

investigue un poco acerca de laforma en queme dices y logre esto:

salida = Left$(cadena, posicion - 1)

y ha funcionado perfecto!!!!




te agradezco la ayuda que fue muy buena...

Saludos!!!
__________________
www.eris.com.mx
  #5 (permalink)  
Antiguo 29/10/2012, 16:35
Avatar de lucord  
Fecha de Ingreso: marzo-2010
Ubicación: San Jose, Costa Rica
Mensajes: 87
Antigüedad: 14 años
Puntos: 10
Respuesta: Detectar Palabra entre caracteres VB6

correcto tenia un error, el problema estaba en que pasé mal la variable de la funcion MID, debe ser cadena en lugar de var...


Código vb:
Ver original
  1. cadena = "pruebaprueba>lo que sea lo que sea"
  2. posicion = InStr(1, cadena, ">")
  3. salida = Mid(cadena, 1, posicion - 1)
  4. MsgBox salida


En todo caso me alegro que te sirviera la ayuda.


Salu2.

Etiquetas: caracteres, palabra, vb, vb6, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:00.