Excelente decididamente eres un duro en el tema funciona a la perfección. No pensé que creara tantos obstáculos desde el principio no dar el ejemplo del fichero en cuestión así como no hice mucho casos a que fuera txt o html pero ya veo cuan equivocado estaba.

Ok te voy diciendo como queda todo:
Asi descargo el 1000000 de resultados separados en carpetas de 100000.

On Error Resume Next
For i = 1 To 100000
Set crack = CreateObject("WScript.Shell")	
crack.Run "wget -r -nd -P 100000 -A .html -e robots=off --no-check-certificate https://www.xxxxx.com/game/"&i&".html",vbhide
wscript.sleep 500
next
MsgBox "Tarea Finalizada",0,"Download"

Asi paso tu script de ayuda a los 100000 resultados

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

Tu script

' Example: RegEx capture in textfile, By Elektro
'CScript.exe ".\Script.vbs" ".\1.html" ".\2.html" "etc...
 
Option Explicit
 
Dim args, arg, _
    outPath, fullpath, fileName, fileExt, _
    fso, file, fileContent, _
    rgx, rgxMatches, rgxMatch, rgxValue
Set args = WScript.Arguments
If args.Count = 0 Then
   Wscript.Echo("Any filepath specified.")
   Wscript.Quit(1)
End If
 
outPath = ".\Output\100000\"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(outPath) Then
   Call fso.CreateFolder(outPath)
End If
 
' El primer grupo de esta expresión captura el string "cash out:" plus el valor decimal.
' El cuarto grupo de esta expresión captura el valor decimal.
Set rgx = New RegExp
    	rgx.Pattern = "Cash.+Out.+\s+<\/\w+>\s+([\w\.]+)"
    rgx.IgnoreCase = True
    rgx.Global     = True
 
For Each arg in args
 
   fullPath    = fso.GetAbsolutePathName(arg)
   fileName    = fso.GetBaseName(fullPath)
   fileExt     = fso.GetExtensionName(fullPath)
   fileContent = fso.OpenTextFile(fullPath, 1).ReadAll
 
   Set rgxMatches = rgx.Execute(fileContent)
   Set file       = fso.CreateTextFile(outPath & "\" & fileName & ".txt")
 
   Wscript.Echo("[+] Processing file: " & fullPath)
   For Each rgxMatch in rgxMatches
      rgxValue = rgxMatch.Submatches(0)
      Wscript.Echo(rgxValue)
      Call file.WriteLine("Cash Out: " & rgxValue)
   Next
 
   file.Close
 
Next
 
Wscript.Quit(0)

Así uno todas las salidas de tu script en un solo fichero con 100000 lineas

On Error Resume Next
For i = 1 To 100000
Fichero = "C:\Play\output\100000\" & i &".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = Fichero
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.ReadLine
Set texto = CreateObject("Scripting.FileSystemObject")
Set salida = texto.CreateTextFile (".\Salida100000.txt", True)
salida.WriteLine (Mid(tmpStr,1,50)) & n
Next
MsgBox "Tarea Finalizada",0,"Play"

Y después puedo realizar el análisis importando Salida100000.txt  a excel pero realmente todo es para ver esto que pregunte aqui http://foro.elhacker.net/scripting/ayuda_con_excel-t430543.0.html, ya que puedo ver mas cosas pero la que mas me interesa aun no se jajajajajajaj.


Que tengo un script en python que lo hace pero me gustaría ver igual como se soluciona en excel .

Aquí la versión en español de lo que pasaste para los que no dominen mucho el ingles: http://es.wikipedia.org/wiki/Expresi%C3%B3n_regular
Gracias por todo.

Creo que esto ayuda full a entender la parte mas compleja de tu codigo al menos para mi

http://www.tutorialspoint.com/vbscript/vbscript_reg_expressions.htm
https://www.addedbytes.com/blog/code/vbscript-regular-expressions/

Moderador disculpe por el doble post pero cada vez que le daba eliminar en la cruz me decía que no se podía porque alguien lo estaba viendo, de todas maneras aceptada por mi parte la alerta de que no se acepta doble post.

Increíble funciona a la perfección para con x y sin x


Pero al pasarselo a 1.html no funciona alguna idea:

No se si esto va aquí pero no encuentro un mejor lugar para ponerlo:
Se tiene:

Se desea conocer la mayor salida de números consecutivos inferiores a < 2


La Respuesta seria 4 ya que:

4>2 para la tirada que antecede:

Estoy leyendo =CONTAR.SI(B2:B1000;"<2") pero daria una cuenta de todos los valores menors que 2.
Cualquier recomendacion es bienvenida siguo en google y con la ayuda de Excel.

Gracias.

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

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

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


para no complicar mucho las cosas.

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

---

[MOD]: Está prohibido hacer doble post.

casi completo de mucha ayuda me sirvio esto

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.

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


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