pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "
fijar fs = CreateObject (“Scripting.FileSystemObject”)
fijar el objLog = fs.CreateTextFile (“c:\temp\output.log ")
Amortiguar el oShell
Fijar el oShell = WScript.CreateObject (“WScript.Shell”)
oShell.run “mkdir de /c del cmd” y extractTo
Fijar el oShell = nada
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar la carpeta = fso.getfolder (el extractTo)
Para cada uno oFile en carpeta. Archivos
oFile.Delete (verdad)
Después
fijar sa = CreateObject (“Shell.Application”)
fijar ns = sa.NameSpace (pathToZipFile)
fijar el filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip)
extractTo de EnumCSV
objLog.Close
EnumCSV secundario (targetdir)
Fso dévil
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar la carpeta = fso.getfolder (el targetdir)
Para cada archivo en Folder.Files
Si fso.GetExtensionName (archivo) = " csv " entonces
ParseCSV (archivo)
Terminar si
Después
submarino del extremo
ParseCSV secundario (csv_file)
fijar fs = CreateObject (“Scripting.FileSystemObject”)
fijar objTextFile = fs.OpenTextFile (csv_file)
amortiguar el arrStr, líneas, lastdate, lasttime
lines=0
Hacer mientras que NO objTextFile.AtEndOfStream
el arrStr = partió (objTextFile.ReadLine, “, ")
lines=lines+1
Lazo
el lastdate = substituye (arrStr (0), """", el "")
el lasttime = substituye (el arrStr (1), """", el "")
archivo de objLog.WriteLine “: ” y csv_file
líneas totales de objLog.WriteLine “: ” y líneas
objLog.WriteLine la “fecha pasada: ” y lastdate
objLog.WriteLine “vez última: ” y lasttime
objLog.WriteLine
objTextFile.Close
submarino del extremo
|