Frage : Ich muss diese PHP-Akte zu einen Verteilungsbogen machen

Ich gespielt herum mit einigen verschiedenen Ansätze, aber keine produzieren die Art von Resultaten, die ich needing.

zum Beispiel, nehme einen Blick http://hihatwebdesign.com/ Rainmaker/adm/report_student.php bin? id=1/report_student.xls. Ich möchte den zu einen Verteilungsbogen machen, der die gleiche Art der Farben und des fonts.

How hat?

im Augenblick verwende ich fp (Code angebracht) t und während ich die Daten erhalten kann, um zu zeigen, gehabt ich die schwere Zeit, als I, das Schleifen innerhalb anderer Fragen tun und die Ästhetik kleiner als ist, was ich gehendes for.

Suggestions bin?

Antwort : Ich muss diese PHP-Akte zu einen Verteilungsbogen machen

LOL! Ich dachte, dass Sie um um das bitten konnten.  So hatte ich Re-schaue auf meinen Code, und ich gebildet ihn jetzt viel dynamischer, wo Sie nur die Antriebsbuchstaben spezifizieren müssen, die Sie in den arrDrives wünschen.  Sie können so viele Antriebsbuchstaben addieren oder subtrahieren, Sie wünschen.

Respekt,

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:
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:
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“
Schwache arrDrives
arrDrives = Reihe („C“, „D“, „E“, „F“)

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
Const, das = 1 intForReading ist

Const adVarChar = 200
Const MaxCharacters = 255


Schwaches DataList
DataList = CreateObject („ADOR.Recordset“) einstellen
DataList.Fields.Append „Bediener“, adVarChar, MaxCharacters
Für jedes strDrive in den arrDrives
	DataList.Fields.Append strDrive u. „Größe“, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive u. „freier Raum“, adVarChar, MaxCharacters
	DataList.Fields.Append, die strDrive sind u. „Prozente freigeben“ n, adVarChar, MaxCharacters
Zunächst
DataList.Open

Gesetztes objInputFile = intForReading objFSO.OpenTextFile (strInputFile,)
Während nicht objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

objOutputFile einstellen = objFSO.CreateTextFile (strOutputFile, zutreffend)
strHeader = """ BEDIENER """
Für jedes strDrive in den arrDrives
	strHeader = strHeader u. „, """ u. strDrive u.“ SORTIEREN "", """ u. strDrive u. „FREIER RAUM "", """ u. strDrive u.“ PROZENTE FREIES """
Zunächst
objOutputFile.WriteLine strHeader
DataList.MoveFirst
Während nicht DataList.EOF
	strLine = """" u. DataList („Bediener“) u. """"
	Für jedes strDrive in den arrDrives
		strLine = strLine u. „, """ u. DataList (strDrive u.“ Größe ") u. """, """ u. DataList (strDrive u. „freier Raum“) u. """, """ u. DataList (strDrive u.“ Prozente freigeben ") u. """"
	Zunächst
	objOutputFile.WriteLine strLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

MsgBox „getan. Bitte sehen“ u. strOutputFile
'==============

VorGet_Free_Space_Details (strComputer)

	DataList.AddNew
	DataList („Bediener“) = strComputer
	Wenn Klingeln (strComputer) = dann ausrichten 
		Auf Störungs-Zusammenfassung zunächst
		objWMIService = GetObject einstellen („winmgmts: {impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
		Wenn Err.Number = 0 dann
			Err.Clear
			Auf Störung Goto- 0
			Für jedes strDrive in den arrDrives
				colDisks = objWMIService.ExecQuery („auserwähltes FreeSpace, Größe einstellen von Win32_LogicalDisk, wo DriveType = 3 und DeviceID = „“ u. strDrive u. „: “ ")
				Für jedes objDisk in den colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive u. „Größe“) = rund (intTotalSpace/1024/1024/1024, 2) u.“ GB "
					DataList (strDrive u. „freier Raum“) = rund (intFreeSpace/1024/1024/1024, 2) u.“ GB "
					DataList (strDrive u. „Prozente freigeben“), = FormatPercent (pctFreeSpace)
				Zunächst
			Zunächst			
			objDisk einstellen = nichts
			colDisks einstellen = nichts
			objWMIService einstellen = nichts
		Sonst
			Für jedes strDrive in den arrDrives
				DataList (strDrive u. „Größe“) = „WMI STÖRUNG“
				DataList (strDrive u. „freier Raum“) = „WMI STÖRUNG“
				DataList (strDrive u. „Prozente freigeben“), = „WMI STÖRUNG“
			Zunächst
		Beenden wenn
	Sonst
		Für jedes strDrive in den arrDrives
			DataList (strDrive u. „Größe“) = „INDIREKT“
			DataList (strDrive u. „freier Raum“) = „INDIREKT“
			DataList (strDrive u. „Prozente freigeben“), = „INDIREKT“
		Zunächst
	Beenden wenn
	DataList.Update
Unterseeboot beenden

Funktions-Klingeln (strComputer)
	Schwaches objShell, boolCode
	objShell = CreateObject („WScript.Shell“) einstellen
	boolCode = objShell.Run („Klingeln - n 1 - w 300“ u. strComputer, 0, zutreffendes)
	Wenn boolCode = 0 dann
		Klingeln = ausrichten en
	Sonst
		Klingeln = falsch
	Beenden wenn
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us