Вопрос : Dos & Vbs

Hi,

Iam имея архив застежка-молнии. Сценарием должен сделать следуя за works
1), котор для этого нужно unzip то file
2) под архивами, много архивов .csv будет сценарий present.
3) должен прочитать каждое & каждым архиву и он нужны даты в архивах, полные линии grep в архивах и он должен быть перенаправлен к другому архиву. Все архивы, котор выход должен быть прилагают в 1 ом file.


This будут грубы для того чтобы сделать в vbs DOS.So сценарий может сделать эту работу более легкую. По мере того как iam новое к vbs угождает объясните briefly.
class=

Ответ : Dos & Vbs

попытка теперь:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58:

pathToZipFile= " C:\temp\test.zip " extractTo= " C:\temp\unzip " установите fs = CreateObject («Scripting.FileSystemObject») установите objLog = fs.CreateTextFile («c:\temp\output.log ") Затемните oShell Установите oShell = WScript.CreateObject («WScript.Shell») oShell.run «mkdir /c cmd» & extractTo Установите oShell = ничего Установите fso = CreateObject («Scripting.FileSystemObject») Установите скоросшиватель = fso.getfolder (extractTo) Для каждого oFile в скоросшивателе. Архивы oFile.Delete (поистине) Затем установите sa = CreateObject («Shell.Application») установите ns = sa.NameSpace (pathToZipFile) установите filesInzip = ns.items sa.NameSpace (extractTo) .CopyHere (filesInzip) extractTo EnumCSV objLog.Close sub EnumCSV (targetdir) Тусклое fso Установите fso = CreateObject («Scripting.FileSystemObject») Установите скоросшиватель = fso.getfolder (targetdir) Для каждого архива в Folder.Files Если fso.GetExtensionName (архив) = " csv " после этого ParseCSV (архив) Закончитесь если Затем подводная лодка конца sub ParseCSV (csv_file) установите fs = CreateObject («Scripting.FileSystemObject») установите objTextFile = fs.OpenTextFile (csv_file) затемните arrStr, линии, lastdate, lasttime lines=0 Сделайте пока НЕ objTextFile.AtEndOfStream arrStr = разделило (objTextFile.ReadLine, «, ") lines=lines+1 Петля lastdate = заменяет ть (arrStr (0), """", "") lasttime = заменяет ть (arrStr (1), """", "") архив objLog.WriteLine «: » & csv_file линии objLog.WriteLine «полные: » & линии objLog.WriteLine «последняя дата: » & lastdate последний раз objLog.WriteLine «: » & lasttime objLog.WriteLine objTextFile.Close подводная лодка конца