Questione : Devo trasformare questa lima del PHP in un foglio elettronico

Ho giocato intorno con alcuni metodi differenti, ma nessun stanno producendo il genere di risultati che sono needing.

per esempio, dò un'occhiata al rel= " nofollow " " del _blank " " del target= " di http://hihatwebdesign.com/Rainmaker/adm/report_student.php?id=1/report_student.xls del href= di Rainmaker/adm/report_student.php di http://hihatwebdesign.com/? id=1/report_student.xls. Voglio trasformare quello in un foglio elettronico che ha lo stesso genere di colori e di fonts.

How?

ora sto usando il fp (codice è attaccato) e mentre posso convincere i dati per rivelare, ho avuto una difficoltà in cui la I che fanno i cicli all'interno di altre domande e l'estetica sono di meno che che cosa sono for.

Suggestions? class= del

Risposta : Devo trasformare questa lima del PHP in un foglio elettronico

LOL! Ho pensato che potreste chiedere quello.  Così ho avuto re-osservo il mio codice ed ora lo ho reso molto più dinamico, dove dovete soltanto specificare le lettere che di azionamento volete in arrDrives.  Potete aggiungere o sottrarre altretante lettere di azionamento come desiderate.

Riguardi,

Rob.
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:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:

strInputFile = “computers.txt„
strOutputFile = “hard_disk_space.csv„
arrDrives fiochi
arrDrives = allineamento (“C„, “D„, “E„, “F„)

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Const che intForReading = 1

Const = 200 adVarChar
Const MaxCharacters = 255


DataList fioco
Regolare DataList = CreateObject (“ADOR.Recordset„)
DataList.Fields.Append “assistente„, adVarChar, MaxCharacters
Per ciascuno strDrive in arrDrives
	DataList.Fields.Append strDrive & “formato„, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & “spazio libero„, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & “le percentuali liberano„, adVarChar, MaxCharacters
Dopo
DataList.Open

objInputFile stabilito = objFSO.OpenTextFile (strInputFile, intForReading)
Mentre non objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Regolar objOutputFile = objFSO.CreateTextFile (strOutputFile, allineare)
""" dell'ASSISTENTE dello strHeader = del """
Per ciascuno strDrive in arrDrives
	lo strHeader = lo strHeader & “, """ & strDrive &„ GRADUANO il "", il """ & il "" dello SPAZIO strDrive & “LIBERO, il """ & il """ secondo la misura LIBERO delle PERCENTUALI„ & strDrive
Dopo
strHeader di objOutputFile.WriteLine
DataList.MoveFirst
Mentre non DataList.EOF
	strLine = """" & DataList (“assistente„) & """"
	Per ciascuno strDrive in arrDrives
		strLine = strLine & “, """ & DataList (strDrive &„ formato ") & """, """ & spazio strDrive & “libero„ di DataList () & """, """ & DataList (strDrive &„ le percentuali liberare ") & """"
	Dopo
	strLine di objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

MsgBox “fatto. Vedere prego„ & strOutputFile
'==============

Get_Free_Space_Details secondario (strComputer)

	DataList.AddNew
	DataList (“assistente„) = strComputer
	Se il rumore metallico (strComputer) = allora allinea 
		Sul riassunto di errore dopo
		Regolare il objWMIService = GetObject (“winmgmts: {impersonationLevel=impersonate}! \ \„ & strComputer & “\ radice \ cimv2„)
		Se Err.Number = 0 allora
			Err.Clear
			Sull'errore 0 di avanzamento
			Per ciascuno strDrive in arrDrives
				Regolare i colDisks = objWMIService.ExecQuery (“FreeSpace prescelto, formato da Win32_LogicalDisk dove DriveType = 3 e DeviceID = “„ & strDrive & “: „ ")
				Per ogni objDisk nei colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive & “formato„) = rotondo (intTotalSpace/1024/1024/1024, 2) &„ GB "
					Spazio di DataList (strDrive & “libero„) = rotondo (intFreeSpace/1024/1024/1024, 2) &„ GB "
					DataList (strDrive & “le percentuali liberare„) = FormatPercent (pctFreeSpace)
				Dopo
			Dopo			
			Regolare il objDisk = niente
			Regolare i colDisks = niente
			Regolare il objWMIService = niente
		Altrimenti
			Per ciascuno strDrive in arrDrives
				DataList (strDrive & “formato„) = “ERRORE di WMI„
				Spazio di DataList (strDrive & “libero„) = “ERRORE di WMI„
				DataList (strDrive & “le percentuali liberare„) = “ERRORE di WMI„
			Dopo
		Concluder se
	Altrimenti
		Per ciascuno strDrive in arrDrives
			DataList (strDrive & “formato„) = “FUORI LINEA„
			Spazio di DataList (strDrive & “libero„) = “FUORI LINEA„
			DataList (strDrive & “le percentuali liberare„) = “FUORI LINEA„
		Dopo
	Concluder se
	DataList.Update
Concludere il sommergibile

Rumore metallico di funzione (strComputer)
	objShell fioco, boolCode
	Regolare il objShell = CreateObject (“WScript.Shell„)
	boolCode = objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare)
	Se boolCode = 0 allora
		Il rumore metallico = allinea
	Altrimenti
		Rumore metallico = falso
	Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us