Вопрос : Сценарий для того чтобы совместить все журналы в 1 первенствует архив. Согласно выборам в UNC.

Hi,

Script для того чтобы совместить все журналы в 1 первенствует архив. Согласно выборам в UNC.

The фактический сценарий был обеспечен Joe
Its HTA отнесенное к href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " средства программирования capturing.
Original Q.
ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
e.com/Prog http://www.experts-exchang class= " ясное " >

Related: Кодий HTA " title= " " /Programming/Languages/Q_26309499.html href= HTA может перечислить все средства программирования в машине и имеет малую коробку для того чтобы вписать комментарии в…

Ответ : Сценарий для того чтобы совместить все журналы в 1 первенствует архив. Согласно выборам в UNC.

И если вы хотите Эксел, то, возможно это:

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: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72:

'Курс к рапортам strReportPath= " \ \ SERVER1 \ MYSHARE " 'Курс к архиву XLS strXLS= " c:\report.xls " Установите objExcel = CreateObject («Excel.Application») objExcel.DisplayAlerts = ложно objExcel.Visible = True Установите objWorkbook = objExcel.Workbooks.Add Установите fso=CreateObject («Scripting.FileSystemObject») 'XLS существует? Если fso.FileExists (strXLS) после этого ret=msgbox («архив существует: » & strXLS & vbCrLf & vbCrLf & «переписывают? », vbYesNo+vbQuestion, «XLS создатель рапорта») Если ret=vbNo после этого wscript.quit Еще fso.DeleteFile (strXLS) Если fso.FileExists (strXLS) после этого msgbox «не smogло переписывать архив: » & strXLS, vbExclamation, «создатель отчете о XLS» wscript.quit Закончитесь если Закончитесь если Закончитесь если 'Закрепите петлеть через отчеты о TXT Для каждого oFile в fso.GetFolder (strReportPath). Архивы Если lcase, то (fso.GetExtensionName (oFile))= " txt " после этого MakeWorksheet oFile Закончитесь если Затем Для каждого листа в objWorkbook.Worksheets Если о, то (лист. Имя, 5)= " лист " после этого покрывает. Delete Затем objExcel.DisplayAlerts = true 'strXLS objExcel.save strXLS objWorkbook.SaveAs Sub MakeWorksheet (oFile) strWorksheet = fso.GetBaseName (oFile) Установите objWorksheetNew = objWorkbook.Worksheets.Add objWorksheetNew.Name=strWorksheet Установите oFile=fso.OpenTextFile (oFile) text=oFile.ReadAll oFile.close arrText = разделило (текст, vbCrLf) 'Напишите коллекторы intRow=1 objWorksheetNew.Cells (intRow, 1).Value= " название средства программирования " objWorksheetNew.Cells (intRow, 2).Value= " комментарий средства программирования " Для каждой линии в arrText Если instr (линия, vbTab) после этого arrLine=split (линия, vbTab) intRow=intRow+1 objWorksheetNew.Cells (intRow, 1).Value=arrLine (0) objWorksheetNew.Cells (intRow, 2).Value=arrLine (1) Закончитесь если Затем objWorkSheetNew.Cells.EntireColumn.AutoFit Установите objWorksheetNew = ничего Установите oFile=Nothing Закончите подводную лодку