Detectar Palabra entre caracteres VB6

[Ciberdanny]

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!!

[lucord]

Hola Ciberdanny, puedes usar estos dos metodos:

Código vb:

cadena = "holaprueba>lo que sea lo que sea"
posicion = InStr(1, cadena, ">")
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.

[Ciberdanny]

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???

[Ciberdanny]

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!!!

[lucord]

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:

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

En todo caso me alegro que te sirviera la ayuda.


Salu2.