Mensajes

[[MOD]: Está prohibido hacer doble post.]

Elektro excelente código ya que con el mio no conseguía tan buen resultado. Estoy intentando entenderlo aun ya que contiene un camión de cosas que nunca he usado porque te repito mi nivel es muy básico.
No se si notaste que use:

Código [Seleccionar] Expandir

Fichero = "C:\Ejemplo\" & i &".txt"
Esto se debe que estamos probando solo con 3 archivos pero en la practica son aproximadamente 1 000 000 de txt.
Como te puedes dar cuenta esto es un problema a la hora de:
CScript.exe ".\Script.vbs" ".\Archivo1.txt" ".\Archivo2.txt" "etc..."



Creo que resuelvo con esto:

Código [Seleccionar] Expandir

On Error Resume Next
For i = 1 To 100000
Set crack = CreateObject("WScript.Shell")
crack.Run "cscript.exe .\Script.vbs .\input\"&i&".txt",vbhide
wscript.sleep 500
next
MsgBox "Tarea Finalizada",0,"Prueba"

Cual seria la modificación a realizar en tu excelente código Elektro para poder sacar el valor de un Archivo1.txt que contenga:

<b>Cash Out: </b> 1.97x </p>
<b>Cash Out: </b> 212.34x </p>

Pensé que no seria un problema con el ejemplo que puse que Archivo1.txt era

asdadasdasdasd asdsadas asdasdasd cash out: 1.97 asdasdas asdasda
asdadasdasdasd asdsadas asdasdasd cash out: 212.34 asdasdas asdasda

para no complicar mucho las cosas.

Pero si es un problema a la hora de aplicarlo al Archivo1.txt en cuestion:

<b>Cash Out: </b> 1.97x </p>
<b>Cash Out: </b> 212.34x </p>

[MOD]: Está prohibido hacer doble post.

casi completo de mucha ayuda me sirvio esto

Código [Seleccionar] Expandir

salida.WriteLine (Mid(tmpStr,899,5)) &" "& (Mid(tmpStr,934+4,25))

Voy por aquí pero me faltan aun que los ficheros de salida contengan solo el pedazo que me interesa:
Salida1.txt
Cash Out: 232.45

Salida2.txt
Cash Out: 123232.35

Salida3.txt
Cash Out: 42.40

De ahí solo tendría que pasar el bat anteriormente expuesto que lo que hace es pasar todo los ficheros de salida del 1 al 3 en un text 4.

Código (vb) [Seleccionar] Expandir

On Error Resume Next
Dim Cadena
Set Carpeta = CreateObject("Scripting.FileSystemObject")
Carpeta.CreateFolder ".\output"
For i = 1 To 3
Fichero = "C:\Ejemplo\" & i &".txt"
'MsgBox Fichero,0,"Muestra"
'Set texto = CreateObject("Scripting.FileSystemObject")
'texto.CopyFile Fichero,".\Salida.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = Fichero
substrToFind = "CashOut:"
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.ReadLine
If InStr(tmpStr, substrToFind) <= 0 Then
  WScript.Echo "No se encontro la cadena en " & i &".txt"
Else
Set texto = CreateObject("Scripting.FileSystemObject")
Set salida = texto.CreateTextFile (".\output\Salida" & i &".txt", True)
salida.WriteLine i
salida.Close
End if
Next


Ok ya estoy de nuevo en ello, gracias por avisar que el find y findstr no puedo hacer capturas de una linea.

Se ve muy bueno esta ayuda lo leere con calma http://www.w3schools.com/vbscript/vbscript_ref_functions.asp

Intente algo como esto pero no me sirve aun

Código [Seleccionar] Expandir

@echo off
(
findstr "Cash out:" 1.txt
findstr "Cash out:" 2.txt
findstr "Cash out:" 3.txt
) > "4.txt"

Esperaba algo de salida como
Cash out:
Cash out:
Cash out:

Pero nada lo que obtuve no es mas que el contenido de 1.txt+2.txt+3.txt todo uno a continuacion de otro y no es lo deseado.

Tampoco se como tomar el valor numérico que sigue a continuación porque como expuse anteriormente son variables los numeros van desde 0.00 a infinito siempre conservando dos lugares despues del . (.00)

Saludos

Hola!

Revisa esto (vbs).

Saludos!

Lo lei pero no aplica a mi caso, ahi solo dicen como leer un fichero y yo tengo varios y no necesito todo el contenido de la primera linea sino solo una parte para luego darlos todos juntos en un solo fichero. No se si me explique.

Lo hare muchas gracias tengo este tema duplicado por error como puedo borrar uno de los dos o hablar con el moderador, pues cuando le doy a la cruz de eliminar no me deja y me dice que hay alguien visitando el tema.

En Windows Xp Sp3

Partiendo de:
Fichero1.txt
Fichero2.txt
Fichero3.txt

Con contenido de tipo y solo una sola linea por fichero como muestra el ejemplo
Fichero1.txt
asdadasdasdasd asdsadas asdasdasd cash out: 1.97 asdasdas asdasda

Fichero2.txt
asdadasdasdasd asdsadas asdasdasd cash out: 212.34 asdasdas asdasda

Fichero3.txt
asdadasdasdasd asdsadas asdasdasd cash out: 1232.97 asdasdas asdasda

Como seria un bat o vbs que como resultado diera un fichero

Fichero4.txt

Con contenido:
cash out: 1.97
cash out: 212.34
cash out: 1232.97

Alguna recomendación, tengo conocimientos muy básicos en programación
Estoy por leer mas sobre el comando find o findstr en windows el cual pocas veces he utilizado y luego seria algo como
>Fichero4.txt

Mas no se como hacer en bat o vbs para que abran los fichero uno a uno en orden.

Gracias por leer igual estoy buscando sobre el tema, cualquier comentario, ayuda o etc es bienvenida.

El escenario es el siguiente.
Servidor
201.10.10.10 Server OpenSSH puerto 443
Windows Xp Pro Sp3 Spanish

Cliente
190.3.2.1 Cliente SSH Putty puerto dinámico 9010
Privoxy apuntando al sock del tunnel SSH creado con putty y prestando servicio por el 8118.
Windows 7 Ultimate Sp1 Spanish


Sin Privoxy
El tunnel ssh entre 190.3.2.1 y 201.10.10.10 creado por el puerto dinámico 9010 funciona y al consultar el cliente (190.3.2.1) su ip en http://readip.info/ le dice que el mismo es  201.10.10.10 (server).

Con Privoxy
Ahora sucede que no todas las aplicaciones de internet soportan socks4 o socks4a o socks5, por lo que se decidió montar privoxy detras del tunnel ssh en el cliente (190.3.2.1). Las conexiones una vez mas funcionan exitosamente pero al consultar la ip el  en  cliente (190.3.2.1) en http://readip.info/ sale 190.3.2.1 y no 201.10.10.10 (server) como en el caso anterior.

Pregunta  
¿Alguien sabe porque sucede esto, alguna recomendacion para el config.txt del privoxy?

Anexo.
Privoxy esta pensado para funcionar con TOR de ahi su configuracion por defecto 127.0.0.1:9050 pero no veo que en TOR comprometa el IP del cliente, porque sucede asi cuando se pone detrás de un tunnel ssh.

Gracias por leer y es bienvenido cualquier comentario, igual sigo buscando la respuesta.