Programación General > Visual Basic para principiantes

 Analizando Textos (jojo)

(1/2) > >>

Nuker:
:o Hola, necesito saber como analizar texto.. osea...

si yo en una variable tengo esto:

"holacomoandascomenzarprobando123456789"

quiero saber si ahi en ese texto dice... "probando" y si lo dice, como obtener los 4 caracteres siguientes a "probando"


Muchas gracias

cpmario:

--- Código: Text ---    Dim strA As String    Dim strB As String    Dim lngX As Long    strA = "holacomoandascomenzarprobando123456789"    strB = "probando"    lngX = InStr(strA, strB)    Text1.Text = Mid$(strA, lngX + Len(strB), 4)   :comp:

Mollense:
Bueno. cpmario estaba escribiendo junto a mi y ya te dio la solución.-

Saludos

Nuker:
:lol:  wow, me esta gustando este foro, q rapido me ayudaron!  :)  Muchas gracias!!!!


lo estube mirando y me quedo algo en el tintero, aprobecho a postearlo aca, asi no hay tantos post.


Si tengo en una variable "holacomoandasprobando12345678"

y yo analize de ahi probando, como le quitaria a esa variable el probando?

osea tengo esto: "holacomoandasprobando12345678" y quiero q quede asi

holacomoandas12345678

Muchas gracias

Mollense:

--- Cita de: "Nuker" --- lo estube mirando y me quedo algo en el tintero, aprobecho a postearlo aca, asi no hay tantos post.


Si tengo en una variable "holacomoandasprobando12345678"

y yo analize de ahi probando, como le quitaria a esa variable el probando?

osea tengo esto: "holacomoandasprobando12345678" y quiero q quede asi

holacomoandas12345678

Muchas gracias
--- Fin de la cita ---
Bueno, siguiendo con el código de cpmario.

Mediante la variable lngX vos podés saber donde comienza la palabra probando. ¿No es así?  :rolleyes: ...

...entonces...

Podrías obtener una nueva cadena formada por todos los caracteres que se encuentren antes de lngX concatenados a los posteriores a lngX + el largo de la palabra a eliminar, en este caso 8.

Traduciendo, debería ser algo así (No tengo Visual Basic pero mejuego  :P ):
 

--- Código: Text ---Text1.Text = Mid$(strA, 1, lngX-1) & Mid$(strA, IngX + Len(strB) , Len(strA) - IngX - Len(strB)+1) 
...en fin, si no es así, es muy parecido  :comp:

Saludos :beer:

PD:
--- Citar ---wow, me esta gustando este foro
--- Fin de la cita ---
Obvio

Navegación

[0] Índice de Mensajes

[#] Página Siguiente