Inače, pošto imaš tako velik broj fajlova, a VBScript usporava, verovatno zbog podizanja Cscript.exe (ne vidim šta drugo), ako ti Perl nije prihvatljiv, moraćeš da malo prepraviš onu moju skriptu tako da sama nalazi fajlove. Ne bi trebalo biti teško (hint: FSO).
Pozdrav
UPDATE:
Evo rašo, da ne bude da sam te ostavio na cedilu skroz :)
Citat:
Set fso = CreateObject("Scripting.FileSystemObject")
Do While Not WScript.StdIn.AtEndOfStream
InputFile = WScript.StdIn.ReadLine
Set f = fso.OpenTextFile(InputFile, 1)
Input = f.ReadAll
f.Close
Set regEx = New RegExp
regEx.Pattern = "STRINGSTART.*?STRINGEND"
regEx.IgnoreCase = False
regEx.Global = True
Set objMatches = regEx.Execute(Input)
For Each objMatch in objMatches
s = ObjMatch.Value
s = Replace(s,"STRINGSTART", "")
s = Replace(s,"STRINGEND", "")
WScript.Stdout.Write s & ","
Next
Loop
I teraj sa:
dir /s /b *.txb | cscript //nologo skripta.vbs >> izlaz.txt
Trebalo bi da je brže od onog prvog. Stvar je, kao što sam i napisao, što se svaki put podizao cscript, a ovako smo to sveli na samo jedno podizanje. Nije šampion brzine, ali mislim da je prihvatljivo. Vidi sam.
Ako nije dovoljno brzo, kupi brži kompjuter, lakše ti nego da učiš Perl :))) ili da čekaš čitav dan da se neko igra i testira pa onda poredi to sa nečim što sam ja postavio nakon 10 minuta.
(Primećujem da je i Časlav uradio isto, koristio je find, za razliku od prošlog puta gde je koristio baš For petlju. Zato je verovatno njegovo rešenje i kasnilo malo :) Pošteno, nema šta. Časlave, za ovakvo nepošteno poređenje, imaš od mene lično crveni karton za duže. Ja takvo što ne bih uradio ni na Advocacy forumu).
[Ovu poruku je menjao degojs dana 29.08.2004. u 14:30 GMT]
Commercial-Free !!!