{Resuelto} [vbs] find? xD

[xassiz_]

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

Pense en algo artesanal con readall pero como que no  

[Novlucker]

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

Ej:

Código (vb) [Seleccionar] Expandir

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

Saludos

[xassiz_]

Gracias 

Mira lo que consegui sin preguntar

Código [Seleccionar] Expandir


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

[Novlucker]

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

Saludos

[xassiz_]

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

[Novlucker]

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

Saludos

[xassiz_]

Si ok entendido