elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Buscar y reemplazar cadenas, necesito ayuda
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Buscar y reemplazar cadenas, necesito ayuda  (Leído 4,096 veces)
katanaia

Desconectado Desconectado

Mensajes: 51



Ver Perfil
Buscar y reemplazar cadenas, necesito ayuda
« en: 4 Septiembre 2008, 02:52 am »

Necesito algun codigo sencillo de ejemplo. Lo que quiero hacer es lo siguiente:

Teniendo una cadena "El resultado es (4+1), y el otro es (6+2)" lo que quiero es convertirla en "El resultado es 5, y el otro es 8"

O sea, quiero una rutina que me busque y sume lo que hay entre parentesis y luego me de la nueva cadena.

PD: Ya se que el ejemplo es tonto, no lo voy a usar para eso, es para entender el funcionamiento y aplicarlo en otro codigo.


« Última modificación: 4 Septiembre 2008, 02:54 am por katanaia » En línea

yerson

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #1 en: 4 Septiembre 2008, 03:02 am »

Mmm haber este  algorimto
mientras no sea fin de cadena buscar
preguntar si es un parentesis, si es un parentesis entonces preguntar si el que sigue es un numero, si el caracter que sigue es un operador convertir en numero y guardarlo en una variable si el q sigue cierra el parentesis repetir todo de nuevo...xD!!! jajaj estaba casi dormido pero asi es la idea


« Última modificación: 4 Septiembre 2008, 03:14 am por yerson » En línea

Kerber0

Desconectado Desconectado

Mensajes: 142

Yo me Amo!


Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #2 en: 4 Septiembre 2008, 06:03 am »

Código:
Dim i, j As Integer
Dim cadena, cadR, sI, sJ As String

cadena = "El resultado es (4+1), y el otro es (6+2)"

i = InStr(cadena, "(") + 1
sI = Mid(cadena, i, 1) 'aca tenes el 4

cadR = Mid(cadena, i + 1, Len(cadena)) ' mi nueva cadena
j = InStr(cadR, ")") - 1

sJ = Mid(cadR, j, 1) 'aca tenes el 1

MsgBox Int(sI) + Int(sJ) 'la suma

Ahi ya tienes la suma de los primeros numeros, si siguies haciendo lo mismo tendras la suma del segundo numero. Informate sobre mid , instr, replace, split, etc te van a ayudar mucho.

Saludos
« Última modificación: 4 Septiembre 2008, 06:10 am por Kerber0 » En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #3 en: 4 Septiembre 2008, 07:00 am »

Que ego  :xD

a simple vista, colocas un signo negativo después del parentesis y adios aplicación que te acabaste  :-(
En línea

Kerber0

Desconectado Desconectado

Mensajes: 142

Yo me Amo!


Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #4 en: 4 Septiembre 2008, 07:04 am »

Que ego  :xD

a simple vista, colocas un signo negativo después del parentesis y adios aplicación que te acabaste  :-(
Exacto pasa casi siempre cuando cambias por ejemplo en una variable alguna letra la aplicacion seguro que no va a funcionar. solamente por una letra!
Q cosa!!!!
En línea

katanaia

Desconectado Desconectado

Mensajes: 51



Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #5 en: 4 Septiembre 2008, 07:59 am »

Buen intento, pero como dice cΔssiΔnі ... si le agregas un signo menos luego del parentesis ya no funciona. Ademas te falta todavia la otra suma y poner la cadena como estaba antes solo que reemplazando con los nuevos valores.
En línea

Kerber0

Desconectado Desconectado

Mensajes: 142

Yo me Amo!


Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #6 en: 4 Septiembre 2008, 08:10 am »

katania, fue una sugerencia de como se podria hacer. El codigo es muy sencillo y funciona para tu ejemplo(si funciona si). Tu trabajo seria adaptarlo, no el mio.
En todo programa si te equivocas en un caracter podria resultar desastrozo todavia no entiendo por que aclaran eso. Por dios...

En línea

katanaia

Desconectado Desconectado

Mensajes: 51



Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #7 en: 4 Septiembre 2008, 08:31 am »

No te enfades Kerber0, se agradece tu aporte. Tu ejemplo funciona pero solo parcialmente, todavia falta lo demas que creeme que si supiera como hacerlo o lo encontrase facilmente en google no andaria preguntando por el foro. :-\
En línea

Kerber0

Desconectado Desconectado

Mensajes: 142

Yo me Amo!


Ver Perfil
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #8 en: 4 Septiembre 2008, 08:44 am »

No te enfades Kerber0, se agradece tu aporte. Tu ejemplo funciona pero solo parcialmente, todavia falta lo demas que creeme que si supiera como hacerlo o lo encontrase facilmente en google no andaria preguntando por el foro. :-\
Perdon pero no me enfado katania, si necesitas mayor ayuda enviame el cod. fte en un pm que trato de resolverlo completo.
En línea

cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Buscar y reemplazar cadenas, necesito ayuda
« Respuesta #9 en: 4 Septiembre 2008, 08:47 am »

Supongo que lo que queres es un evaluador de expresiones o una variacion del mismo, aca te dejo un ejemplo que te puede servir de guia.

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=21856&lngWId=1
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines