Question : Je dois transformer ce dossier de PHP en bilan

J'ai joué autour avec quelques différentes approches, est-ce que mais aucun ne produit le genre de résultats que je suis needing.

par exemple, jette un coup d'oeil au rel= " nofollow " de " _blank " de target= de " http://hihatwebdesign.com/Rainmaker/adm/report_student.php?id=1/report_student.xls " de href= de le Rainmaker/adm/report_student.php de http://hihatwebdesign.com/ ? id=1/report_student.xls. Je veux transformer cela en bilan qui a le même genre de couleurs et de fonts.

How ? le

en ce moment j'emploie le point de gel (le code est-il joint) et tandis que je peux obtenir les données pour apparaître, ai-je eu une difficulté où I faisant des boucles dans d'autres questions et l'esthétique sont inférieurs ce que je suis for.

Suggestions ? class= de

Réponse : Je dois transformer ce dossier de PHP en bilan

LOL ! J'ai pensé que vous pourriez demander cela.  Ainsi j'ai eu re-regarde mon code, et je l'ai maintenant rendu beaucoup plus dynamique, où vous devez seulement spécifier les lettres d'entraînement que vous voulez dans les arrDrives.  Vous pouvez ajouter ou soustraire autant de lettres d'entraînement comme vous souhaitez.

Respect,

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 » Faibles arrDrives arrDrives = rangée (« C », « D », « E », « F ») Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») Const intForReading = 1 Const = 200 adVarChar Const MaxCharacters = 255 Faible DataList Placer DataList = CreateObject (« ADOR.Recordset ») DataList.Fields.Append « serveur », adVarChar, MaxCharacters Pour chacun strDrive dans les arrDrives DataList.Fields.Append strDrive et « taille », adVarChar, MaxCharacters DataList.Fields.Append strDrive et « espace libre », adVarChar, MaxCharacters DataList.Fields.Append strDrive et « pour cent libèrent », adVarChar, MaxCharacters Après DataList.Open objInputFile réglé = objFSO.OpenTextFile (strInputFile, intForReading) Tandis que pas objInputFile.AtEndOfStream strComputer = objInputFile.ReadLine Get_Free_Space_Details (strComputer) Wend Placer objOutputFile = objFSO.CreateTextFile (strOutputFile, vrai) """ de SERVEUR de strHeader = de """ Pour chacun strDrive dans les arrDrives le strHeader = le strHeader et « , """ et strDrive et » CLASSENT le "", le """ et "" de l'ESPACE strDrive et le « LIBRE, le """ et le """ LIBRE strDrive et » de POUR CENT Après strHeader d'objOutputFile.WriteLine DataList.MoveFirst Tandis que pas DataList.EOF strLine = """" et DataList (« serveur ») et """" Pour chacun strDrive dans les arrDrives strLine = strLine et « , """ et DataList (strDrive et » taille ") et """, """ et espace strDrive et « libre » de DataList () et """, """ et DataList (strDrive et » des pour cent libérer ") et """" Après strLine d'objOutputFile.WriteLine DataList.MoveNext Wend DataList.Close objOutputFile.Close MsgBox « fait. Voir svp » et strOutputFile '============== Get_Free_Space_Details secondaire (strComputer) DataList.AddNew DataList (« serveur ») = strComputer Si le cinglement (strComputer) = rectifient alors Sur le résumé d'erreur après Placer l'objWMIService = le GetObject (« winmgmts : {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ cimv2 ») Si Err.Number = 0 puis Err.Clear Sur l'erreur 0 GoTo Pour chacun strDrive dans les arrDrives Placer les colDisks = l'objWMIService.ExecQuery (« en espace libre choisi, taille de Win32_LogicalDisk où DriveType = 3 et DeviceID = «  » et strDrive et « :  » ") Pour chaque objDisk dans les colDisks intFreeSpace = objDisk.FreeSpace intTotalSpace = objDisk.Size pctFreeSpace = intFreeSpace/intTotalSpace DataList (strDrive et « taille ») = rond (intTotalSpace/1024/1024/1024, 2) et » gigaoctet " Espace de DataList (strDrive et le « libre ») = rond (intFreeSpace/1024/1024/1024, 2) et » gigaoctet " DataList (strDrive et des « pour cent libérer ») = FormatPercent (pctFreeSpace) Après Après Placer l'objDisk = rien Placer les colDisks = rien Placer l'objWMIService = rien Autrement Pour chacun strDrive dans les arrDrives DataList (strDrive et « taille ») = « ERREUR de WMI » Espace de DataList (strDrive et le « libre ») = « ERREUR de WMI » DataList (strDrive et des « pour cent libérer ») = « ERREUR de WMI » Après Finir si Autrement Pour chacun strDrive dans les arrDrives DataList (strDrive et « taille ») = « EN DIFFÉRÉ » Espace de DataList (strDrive et le « libre ») = « EN DIFFÉRÉ » DataList (strDrive et les « pour cent libérer ») = « EN DIFFÉRÉ » Après Finir si DataList.Update Finir le sous-marin Cinglement de fonction (strComputer) Faible objShell, boolCode Placer l'objShell = le CreateObject (« WScript.Shell ») boolCode = objShell.Run (« cinglement - n 1 - W 300 » et strComputer, 0, vrais) Si boolCode = 0 puis Le cinglement = rectifient Autrement Cinglement = faux Finir si Finir la fonction