Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: xassiz_ en 21 Septiembre 2009, 22:41 pm

Título: {Resuelto} [vbs] find? xD
Publicado por: xassiz_ en 21 Septiembre 2009, 22:41 pm

Hay en vbs algo como el find en batch? Para buscar strings en archivos ?

Pense en algo artesanal con readall pero como que no ;D

Título: Re: [vbs] find? xD
Publicado por: Novlucker en 22 Septiembre 2009, 03:18 am

Instr
:http://msdn.microsoft.com/es-es/library/8460tsh1(VS.80).aspx

Ej:

Código

eltexto = "Aqui tenemos un texto cualquiera"
Msgbox instr(1,eltexto,"cualquiera",1)

Saludos

Título: Re: [vbs] find? xD
Publicado por: xassiz_ en 22 Septiembre 2009, 16:26 pm

Gracias :D

Mira lo que consegui sin preguntar

Código:

eltexto = "Aqui tenemos un texto cualquiera"
var = instr (1,eltexto,"cualquiera",1)

if var = 23 then
	msgbox"Yes",99,"Find"
else
	msgbox"No",99,"Find"
end if

¬¬ xDD

Título: Re: {Resuelto} [vbs] find? xD
Publicado por: Novlucker en 22 Septiembre 2009, 16:31 pm

El if no debería de ser con un = 23 ... sino si > 0 .. si es mayor a cero .. se encontró .. sino no :P

Saludos

Título: Re: {Resuelto} [vbs] find? xD
Publicado por: xassiz_ en 22 Septiembre 2009, 18:49 pm

Ah, es que tu code cuando lo probe me devolvio 23.. okis jejej xD

Título: Re: {Resuelto} [vbs] find? xD
Publicado por: Novlucker en 22 Septiembre 2009, 19:02 pm

Es que debes de mirar que es lo que devuelve la función .. en el lugar 23 es donde hay coincidencia

Saludos

Título: Re: {Resuelto} [vbs] find? xD
Publicado por: xassiz_ en 22 Septiembre 2009, 20:37 pm

Si ok entendido ::)