Cuestión : La escritura para combinar todos los registros en 1 sobresale el archivo. Según las selecciones en un UNC.

Hola, el

Script para combinar todos los registros en 1 sobresale el archivo. Según las selecciones en UNC.

The una escritura real fue proporcionada por Joe
Its un HTA relacionado con el href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " del software capturing.
Original Q.
el ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 del e.com/Prog de http://www.experts-exchang class= > " claro " del
soluciones >Related class= código de HTA del title= " de " /Programming/Languages/Q_26309499.html del href= " del HTA que puede enumerar todos los softwares en una máquina y tiene una pequeña caja para incorporar comentarios… a

Respuesta : La escritura para combinar todos los registros en 1 sobresale el archivo. Según las selecciones en un UNC.

Y si usted quiere Excel, quizá esto:
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:

'Trayectoria a los informes
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Trayectoria al archivo de XLS
strXLS= " c:\report.xls "


Fijar el objExcel = CreateObject (“Excel.Application”)
objExcel.DisplayAlerts = falso
objExcel.Visible = verdad
Fijar el objWorkbook = objExcel.Workbooks.Add

Fijar el fso=CreateObject (“Scripting.FileSystemObject”)

¿'el XLS existe?
Si fso.FileExists (strXLS) entonces
	ret=msgbox (el “archivo existe:  ¿” y el strXLS y el vbCrLf y el vbCrLf y “sobreescriben? ”, de vbYesNo+vbQuestion, “de XLS fabricante del informe”)
	Si ret=vbNo entonces 
		wscript.quit
	
		fso.DeleteFile (strXLS)
		Si fso.FileExists (strXLS) entonces
			el msgbox “no podía sobreescribir el archivo:  ” y strXLS, vbExclamation, “fabricante del informe de XLS”
			wscript.quit
		Terminar si
	Terminar si
Terminar si

'Colocar con informes de TXT
Para cada uno oFile en fso.GetFolder (strReportPath). Archivos
	Si lcase (fso.GetExtensionName (oFile))= " txt " entonces
		MakeWorksheet oFile
	Terminar si
Después

Para cada hoja en objWorkbook.Worksheets
	Si está ido (hoja. El nombre, 5)= " hoja " entonces cubre. Cancelación
Después

objExcel.DisplayAlerts = verdad
'strXLS de objExcel.save
strXLS de objWorkbook.SaveAs

MakeWorksheet secundario (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Fijar el objWorksheetNew = objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Fijar oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	el arrText = partió (texto, el vbCrLf)
	
	'Escribir los jefes
	intRow=1
	objWorksheetNew.Cells (intRow, 1).Value= " título del software "
	objWorksheetNew.Cells (intRow, 2).Value= " comentario del software "
	
	Para cada línea en arrText
		Si instr (línea, vbTab) entonces
			arrLine=split (línea, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1).Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2).Value=arrLine (1)
		Terminar si
	Después
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Fijar el objWorksheetNew = nada
	Fijar oFile=Nothing
Terminar el submarino
Otras soluciones  
 
programming4us programming4us