pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "
einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
objLog = fs.CreateTextFile („c:\temp\output.log ") einstellen
oShell verdunkeln
oShell = WScript.CreateObject („WScript.Shell“) einstellen
oShell.run „cmd /c mkdir“ u. extractTo
oShell einstellen = nichts
Fso = CreateObject („Scripting.FileSystemObject“) einstellen
Faltblatt = fso.getfolder (extractTo) einstellen
Für jedes oFile im Faltblatt. Akten
oFile.Delete (zutreffend)
Zunächst
einstellen sa = CreateObject („Shell.Application“)
einstellen ns = sa.NameSpace (pathToZipFile)
filesInzip = ns.items einstellen
sa.NameSpace (extractTo) .CopyHere (filesInzip)
EnumCSV extractTo
objLog.Close
VorEnumCSV (targetdir)
Schwaches fso
Fso = CreateObject („Scripting.FileSystemObject“) einstellen
Faltblatt = fso.getfolder (targetdir) einstellen
Für jede Akte in Folder.Files
Wenn fso.GetExtensionName (Akte) = " csv " dann
ParseCSV (Akte)
Beenden wenn
Zunächst
Endenunterseeboot
VorParseCSV (csv_file)
einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
objTextFile einstellen = fs.OpenTextFile (csv_file)
arrStr, Linien, lastdate, lasttime verdunkeln
lines=0
Tun während NICHT objTextFile.AtEndOfStream
arrStr = aufspaltete (objTextFile.ReadLine, „, ")
lines=lines+1
Schleife
lastdate = ersetzen (arrStr (0), """", "")
lasttime = ersetzen (arrStr (1), """", "")
objLog.WriteLine „Akte: “ u. csv_file
objLog.WriteLine „Gesamtlinien: “ u. Linien
objLog.WriteLine „letztes Datum: “ u. lastdate
objLog.WriteLine „letztes Mal: “ u. lasttime
objLog.WriteLine
objTextFile.Close
Endenunterseeboot
|