Pergunta : Eu preciso de transformar esta lima do PHP em um spreadsheet

Eu joguei ao redor com algumas aproximações diferentes, mas nenhuns estão produzindo o tipo dos resultados que eu sou needing.

por exemplo, olho o rel= " nofollow " do " _blank " " do target= de " http://hihatwebdesign.com/Rainmaker/adm/report_student.php?id=1/report_student.xls do href= do o Rainmaker/adm/report_student.php de http://hihatwebdesign.com/? id=1/report_student.xls. Eu quero transformar aquele em um spreadsheet que tenha o mesmo tipo das cores e do fonts.

How? o

agora eu estou usando o fp (o código é unido) e quando eu puder conseguir os dados aparecer, eu tive uma dificuldade em que I que fazem laços dentro de outras perguntas e a estética forem menos do que o que eu sou for.

Suggestions? class= do

Resposta : Eu preciso de transformar esta lima do PHP em um spreadsheet

LOL! Eu pensei que você pôde pedir aquele.  Assim eu tive re-olho em meu código, e eu tenho-o feito agora muito mais dinâmico, onde você precisa somente de especific as letras que de movimentação você quer nos arrDrives.  Você pode adicionar ou subtrair tantas como letras de movimentação como você deseja.

Considerações,

Roubo.
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 não ofuscantes
arrDrives = disposição (“C”, “D”, “E”, “F”)

Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Const que intForReading = 1

Const = 200 adVarChar
Const MaxCharacters = 255


DataList não ofuscante
Ajustar DataList = CreateObject (“ADOR.Recordset”)
DataList.Fields.Append “usuário”, adVarChar, MaxCharacters
Para cada um strDrive nos arrDrives
	DataList.Fields.Append strDrive & “tamanho”, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & “espaço livre”, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & os “por cento livram”, adVarChar, MaxCharacters
Em seguida
DataList.Open

objInputFile ajustado = objFSO.OpenTextFile (strInputFile, intForReading)
Quando não objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Ajustar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdadeiro)
""" do USUÁRIO do strHeader = do """
Para cada um strDrive nos arrDrives
	o strHeader = o strHeader & “, """ & strDrive &” FAZEM SOB MEDIDA o "", o """ & o "" do ESPAÇO strDrive & “LIVRE, o """ & o """ LIVRE strDrive &” dos POR CENTO
Em seguida
strHeader de objOutputFile.WriteLine
DataList.MoveFirst
Quando não DataList.EOF
	strLine = """" & DataList (“usuário”) & """"
	Para cada um strDrive nos arrDrives
		strLine = strLine & “, """ & DataList (strDrive &” tamanho ") & """, """ & espaço strDrive & “livre” de DataList () & """, """ & DataList (strDrive &” por cento livrar ") & """"
	Em seguida
	strLine de objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

MsgBox “feito. Ver por favor” & strOutputFile
'==============

Get_Free_Space_Details secundário (strComputer)

	DataList.AddNew
	DataList (“usuário”) = strComputer
	Se o sibilo (strComputer) = retifica então 
		No resumo do erro em seguida
		Ajustar o objWMIService = o GetObject (“winmgmts: {impersonationLevel=impersonate}! \ \” & strComputer & “\ raiz \ cimv2”)
		Se Err.Number = 0 então
			Err.Clear
			No erro 0 empreendedores
			Para cada um strDrive nos arrDrives
				Ajustar colDisks = objWMIService.ExecQuery (“FreeSpace seleto, tamanho de Win32_LogicalDisk onde DriveType = 3 e DeviceID = “” & strDrive & “: ” ")
				Para cada objDisk nos colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive & “tamanho”) = redondo (intTotalSpace/1024/1024/1024, 2) &” GB "
					Espaço strDrive & “livre” de DataList () = redondo (intFreeSpace/1024/1024/1024, 2) &” GB "
					DataList (strDrive & “por cento livrar”) = FormatPercent (pctFreeSpace)
				Em seguida
			Em seguida			
			Ajustar o objDisk = nada
			Ajustar colDisks = nada
			Ajustar o objWMIService = nada
		Mais
			Para cada um strDrive nos arrDrives
				DataList (strDrive & “tamanho”) = de “ERRO WMI”
				Espaço strDrive & “livre” de DataList () = de “ERRO WMI”
				DataList (strDrive & “por cento livrar”) = de “ERRO WMI”
			Em seguida
		Terminar se
	Mais
		Para cada um strDrive nos arrDrives
			DataList (strDrive & “tamanho”) = “FORA DE LINHA”
			Espaço strDrive & “livre” de DataList () = “FORA DE LINHA”
			DataList (strDrive & os “por cento livrar”) = “FORA DE LINHA”
		Em seguida
	Terminar se
	DataList.Update
Terminar o submarino

Sibilo da função (strComputer)
	objShell não ofuscante, boolCode
	Ajustar o objShell = o CreateObject (“WScript.Shell”)
	boolCode = objShell.Run (“sibilo - n 1 - w 300” & strComputer, 0, verdadeiros)
	Se boolCode = 0 então
		O sibilo = retifica
	Mais
		Sibilo = falso
	Terminar se
Terminar a função
Outras soluções  
 
programming4us programming4us