Frage : Der Index, zum aller Maschinenbordbücher in 1 zu kombinieren übertreffen Akte. Wie pro die Vorwähleren in einem UNC.

Hallo, übertreffen das

Script, zum aller Maschinenbordbücher in 1 zu kombinieren Akte. Wie pro die Vorwähleren in einem UNC.

The tatsächlichen Index zur Verfügung gestellt von Joe
Its ein HTA, das auf Software capturing.
Original Q.
http://www.experts-exchang e.com/Prog ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 bezogen
Related Lösungen: HTA Code, das alle Software in einer Maschine verzeichnen kann und ein Kästchen hat, zum von Anmerkungen in… einzutragen

Antwort : Der Index, zum aller Maschinenbordbücher in 1 zu kombinieren übertreffen Akte. Wie pro die Vorwähleren in einem UNC.

Und wenn Sie Excel wünschen, möglicherweise dieses:
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:
6:
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:

'Weg zu den Reports
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Weg zur XLS Akte
strXLS= " c:\report.xls "


objExcel = CreateObject („Excel.Application“) einstellen
objExcel.DisplayAlerts = falsch
objExcel.Visible = ausrichten en
objWorkbook = objExcel.Workbooks.Add einstellen

fso=CreateObject („Scripting.FileSystemObject“) einstellen

'Existiert das XLS?
Wenn fso.FileExists (strXLS) dann
	ret=msgbox („Akte existiert:  “ u. überschreiben strXLS u. vbCrLf u. vbCrLf u. „? “, vbYesNo+vbQuestion, „XLS Report-Hersteller“)
	Wenn ret=vbNo dann 
		wscript.quit
	Sonst
		fso.DeleteFile (strXLS)
		Wenn fso.FileExists (strXLS) dann
			msgbox „konnte Akte nicht überschreiben:  “ u. strXLS, vbExclamation, „XLS Report-Hersteller“
			wscript.quit
		Beenden wenn
	Beenden wenn
Beenden wenn

'Durch TXT Reports schlingen
Für jedes oFile in fso.GetFolder (strReportPath). Akten
	Wenn lcase (fso.GetExtensionName (oFile))= " txt " dann
		MakeWorksheet oFile
	Beenden wenn
Zunächst

Für jedes Blatt in objWorkbook.Worksheets
	Wenn Sie verlassen (Blatt. Name, 5)= " Blatt " bedecken dann. Löschung
Zunächst

objExcel.DisplayAlerts = ausrichten en
'objExcel.save strXLS
objWorkbook.SaveAs strXLS

VorMakeWorksheet (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	objWorksheetNew = objWorkbook.Worksheets.Add einstellen
	objWorksheetNew.Name=strWorksheet
	
	oFile=fso.OpenTextFile einstellen (oFile)
	text=oFile.ReadAll
	oFile.close
	
	arrText = aufspaltete (Text, vbCrLf)
	
	'Überschriften schreiben
	intRow=1
	objWorksheetNew.Cells (intRow, 1).Value= " Software-Titel "
	objWorksheetNew.Cells (intRow, 2).Value= " Software-Anmerkung "
	
	Für jede Linie im arrText
		Wenn instr (Linie, vbTab) dann
			arrLine=split (Linie, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1).Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2).Value=arrLine (1)
		Beenden wenn
	Zunächst
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	objWorksheetNew einstellen = nichts
	Das oFile=Nothing einstellen
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us