Vraag : Ik moet dit PHP dossier in een spreadsheet veranderen

Ik heb rond met sommige verschillende benaderingen gespeeld, maar veroorzaakt niets het soort resultaten ik bijvoorbeeld needing.

, neem een blik bij http://hihatwebdesign.com/ Rainmaker/adm/report_student.php ben? id=1/report_student.xls. Ik wil dat in een spreadsheet veranderen die het zelfde soort kleuren en fonts.

How heeft?

gebruik ik op dit ogenblik vriespunt (in bijlage is de code) en terwijl ik de gegevens kan ertoe brengen om te verschijnen, heb ik een harde tijd gehad wanneer I die lijnen doen binnen andere vragen en esthetica minder dan is wat ik het gaan van for.

Suggestions ben?

Antwoord : Ik moet dit PHP dossier in een spreadsheet veranderen

LOL! Ik dacht u dat zou kunnen vragen.  Zo had ik een re-blik bij mijn code, en ik heb nu het dynamischer gemaakt, waar u slechts de aandrijvingsbrieven moet specificeren u in arrDrives wilt.  U kunt zo vele aandrijvingsbrieven toevoegen of aftrekken aangezien u dit wenst.

Achting,

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“
Schemerige arrDrives
arrDrives = Serie („C“, „D“, „E“, „F“)

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Const die = 1 intForReading

adVarChar Const = 200
Const MaxCharacters = 255


Schemerige DataList
Vastgestelde DataList = CreateObject („ADOR.Recordset“)
DataList.Fields.Append „Server“, adVarChar, MaxCharacters
Voor elk strDrive in arrDrives
	strDrive DataList.Fields.Append & „Grootte“, adVarChar, MaxCharacters
	strDrive & „Vrije Ruimte“ van DataList.Fields.Append, adVarChar, MaxCharacters
	strDrive DataList.Fields.Append & „Vrije Percenten“, adVarChar, MaxCharacters
Daarna
DataList.Open

Vastgestelde objInputFile = objFSO.OpenTextFile (strInputFile, intForReading)
Terwijl niet objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Vastgestelde objOutputFile = objFSO.CreateTextFile (strOutputFile, Waar)
strHeader = """ SERVER """
Voor elk strDrive in arrDrives
	strHeader = strHeader & „, """ & strDrive &“ GROOTTE "", """ & strDrive & „VRIJE RUIMTE"", """ & strDrive &“ PERCENTEN VRIJE """
Daarna
objOutputFile.WriteLine strHeader
DataList.MoveFirst
Terwijl niet DataList.EOF
	strLine = """" & DataList („Server“) & """"
	Voor elk strDrive in arrDrives
		strLine = strLine & „, """ & strDrive DataList (&“ Grootte ") & """, """ & van DataList (strDrive & „Vrije Ruimte“) & """, strDrive """ & DataList (&“ Vrije Percenten ") & """"
	Daarna
	strLine objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

Gedaane MsgBox „. Gelieve te zien“ & strOutputFile
'==============

Sub Get_Free_Space_Details (strComputer)

	DataList.AddNew
	DataList („Server“) = strComputer
	Als (strComputer) = Waar toen pingel 
		Op Fout hervat daarna
		Plaats objWMIService = GetObject („winmgmts: {impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“)
		Als Err.Number = 0 toen
			Err.Clear
			Op Fout GoTo 0
			Voor elk strDrive in arrDrives
				Reeks colDisks = objWMIService.ExecQuery („Uitgezochte FreeSpace, Grootte van Win32_LogicalDisk waar DriveType = 3 en DeviceID = „“ & strDrive & „: “ „)
				Voor Elke objDisk in colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					strDrive DataList (& „Grootte“) = Ronde (intTotalSpace/1024/1024/1024, 2) &“ GB "
					De strDrive & „Vrije Ruimte“ van DataList () = Ronde (intFreeSpace/1024/1024/1024, 2) &“ GB "
					strDrive DataList (& „Vrije Percenten“) = FormatPercent (pctFreeSpace)
				Daarna
			Daarna			
			Reeks objDisk = niets
			Reeks colDisks = niets
			Vastgestelde objWMIService = niets
		Anders
			Voor elk strDrive in arrDrives
				strDrive DataList (& „Grootte“) = „FOUT WMI“
				De strDrive & „Vrije Ruimte“ van DataList () = „FOUT WMI“
				strDrive DataList (& „Vrije Percenten“) = „FOUT WMI“
			Daarna
		Eind als
	Anders
		Voor elk strDrive in arrDrives
			strDrive DataList (& „Grootte“) = „OFFLINE“
			De strDrive & „Vrije Ruimte“ van DataList () = „OFFLINE“
			strDrive DataList (& „Vrije Percenten“) = „OFFLINE“
		Daarna
	Eind als
	DataList.Update
Sub van het eind

De functie pingelt (strComputer)
	Schemerige objShell, boolCode
	Reeks objShell = CreateObject („WScript.Shell“)
	boolCode = objShell.Run („pingel - n 1 - w 300“ & strComputer, Ware 0,)
	Als boolCode = 0 toen
		Pingel = Waar
	Anders
		Pingel = Vals
	Beëindig als
Beëindig Functie
Andere oplossingen  
 
programming4us programming4us