Test Foro de elhacker.net SMF 2.1

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 (vb) [Seleccionar]
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


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 ::)