Récupération d'une liste de fichier dans un Array

Marsh Posté le 07-09-2005 à 10:23:28

Bonjour à tous !

Voilà, j'ai essayé de faire ce que je voulais en vbscript, mais vu le résultat final que je souhaite, on m'a conseillé le hta. Je viens à peine de commencer et je suis déjà bloqué :-(

Cette première fonction doit me permettre de parcourir un dossier et d'en lister tous les fichiers avec une extension .cmd. Ca j'arrive à le faire. Maintenant, et ceci dans le but d'une utilisation ultérieure, j'aimerais qu'au lieu de m'aficher bêtement cette liste, ces données soient stockées dans un array ou quelque chose de similaire afin de pouvoir les récupérer dans l'interface html avec une "case à cocher" devant chaque nom, et c'est là que je bloque. J'ai essayé plusieurs versions, soit il m'affiche tout d'un bloc, soit il ne m'affiche que le dernier.

Voici le code que j'essaye de faire fonctionner :

Code :

<html>
<head>
<title>Random</title>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs
Dim Markets()
ReDim Markets(30)
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For i = 1 to 30
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
Markets(i) = CMDs.name
End If
Next
Next
txtOutput.innerhtml = Markets(1)
document.title = "List of Markets"
End Sub
</script>
</head>
<body onload='List()'>
<div id='txtOutput'></div>
</body>
</html>

Merci de votre aide :-)

Reply

Marsh Posté le 07-09-2005 à 10:23:28

Reply

Marsh Posté le 07-09-2005 à 11:45:13

Bonjour,

A mon avis, cette ligne

txtOutput.innerhtml = Markets(1)

devrait se trouver dans la boucle For

Reply

Marsh Posté le 07-09-2005 à 11:55:55

C'est bien dans ce sens là que je suis parti. J'ai avancé un peu depuis tout à l'heure, mais c'est pas encore ça.

Voici le nouveau code :

Code :

<html>
<head>
<title>Random</title>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
For i = 0 to UBound(Markets) - 1
Market = "<INPUT type='checkbox' name='nom' value=''> " & Markets(i)
Next
txtOutput.innerhtml = Market
document.title = "List"
End Sub
</script>
</head>
<body onload='List()'>
<div id='txtOutput'></div>
</body>
</html>

Lors de l'affichage, il ne m'affiche que le dernier enregistrement, il ne tient pas compte des précédants :-( Où est mon erreur ?

Reply

Marsh Posté le 07-09-2005 à 12:25:07

Re,

Et si tu fais :

For i = 0 to UBound(Markets) - 1
Market = "<INPUT type='checkbox' name='nom' value='" & Markets(i) & "'>"
Next

Reply

Marsh Posté le 07-09-2005 à 12:48:56

J'ai un bel écran tout blanc avec une case à cocher unique et orpheline de son texte :-(

Reply

Marsh Posté le 07-09-2005 à 12:51:34

Re,

Et ça ?

For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='nom' value='" & Markets(i) & "'>" & vbCrlf
Next

Reply

Marsh Posté le 07-09-2005 à 13:53:42

Non, plus, mais grâce à toi, j'ai pu mettre ça :

Code :

For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='nom' value=''> " & Markets(i) & "<br>"
Next

et là ça marche nickel... je m'attaque à la suite

Reply

Marsh Posté le 07-09-2005 à 15:28:05

Bon un nouveau problème :-(

Voici le code :

Code :

<html>
<head>
<title>Random</title>
<script language="javascript">
<!--
function CheckAll()
{
for (var c=0;c<document.forms[0].elements.length;c++)
{
var e = document.forms[0].elements[c];
if (e.name != 'allbox')
e.checked = document.MarketList.allbox.checked;
}
}
//-->
</script>
<script language="vbscript">
Sub List()
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='" & Markets(i) & "'> " & Markets(i) & "<br>"
Next
Market = Market & "<BR> <input name='allbox' type='checkbox' value='Check All' onClick='CheckAll();' /><B>Select/Unslect All</B>"
Market = Market & "<BR><BR> <input type=button value='Start DFS Replication' onClick=StartDFSReplication()> <input type=button value=Cancel onClick=window.close()>"
txtOutput.innerhtml = Market
document.title = "List"
End Sub
Sub StartDFSReplication()
End Sub
</script>
</head>
<body onload='List()'>
<form name="MarketList">
<div id='txtOutput'></div>
</form>
</body>
</html>

Donc tout s'ouvre bien, je peux sélectionner les cases que je veux, la case à cocher "Select/Unselect All" fonctionne bien aussi. Le bouton "Cancel", pas de soucis. On arrive au bouton "Start DFS Replication". J'ai compris qu'il fallait créer un nouveau "Sub... End Sub", ce que j'ai fait.

Maintenant, ce que je n'arrive pas à faire, c'est de faire un check des cases qui sont cochées et de les récupérer pour lancer une nouvelle commande. En gros, je veux que le fichier .cmd associé à chaque case à cocher activée soit exécuté.

Merci

Reply

Marsh Posté le 07-09-2005 à 16:19:08

C'est encore moi,

Si tu fais une boucle sur ton tableau (For i = 0 to UBound(Markets) - 1), comme tes ChekBox portent le nom des variables du tableau, tu dois pouvoir faire un test du genre : si Markets(i).checked = true ...)

C'est juste une idée.

Reply

Marsh Posté le 07-09-2005 à 19:03:34

Ca a pas l'air de fonctionner malheureusement

Reply

Marsh Posté le 07-09-2005 à 19:03:34

Reply

Marsh Posté le 08-09-2005 à 12:25:50

Bon je sais toujours pas comment récupérer les valeurs qui me manquent, mais je chercherais plus tard, à moins que quelqu'un n'ait la solution.

Toujours dans le même script, je cherche à générer un popup web depuis le script de base afin de pouvoir y entrer un nom d'utilisateur et un mot de passe (c'est surtout pour lui l'interface web, car je peux masquer les lettres/chiffres entrés) et récupérer les variables.

J'ai pas mal cherché et j'ai trouvé plusieurs bout de code que j'ai essayé de mettre ensemble, mais cela ne colle pas voici ce que j'essaye de faire fonctionner en vain :

Code :

Sub StartDFSReplication()
On Error Resume Next
Set oIE = CreateObject("InternetExplorer.Application" )
With oIE
.RegisterAsDropTarget = False
.Resizable = False : .FullScreen = True
.width = 400 : .height = 200
.Menubar = True
.Navigate "about:blank"
.document.open
.document.write _
"<html><head><" & "SCRIPT LANGUAGE='VBScript'>" _
& "Sub RunScript" _
& "OKClicked.Value = 'OK'" _
& "End Sub" _
& "Sub CancelScript" _
& "OKClicked.Value = 'Cancelled'" _
& "End Sub" _
& "</" _
& "SCRIPT><title>Password _</title></head>" _
& "<BODY BGCOLOR='#C6D7DA'>" _
& "Please enter your administrative name and password :</p>" _
& "<font size='2' face='Arial'>" _
& "Username:    </font><font face='Arial'>" _
& "<input type='text' name='UserName' size='30'></p>" _
& "<font size='2' face='Arial'>" _
& "Password:    </font><font face='Arial'>" _
& "<input type='password' name='UserPassword' size='30'></font></p>" _
& "<input type='hidden' name='OKClicked' size = '20'>" _
& "<input id=runbutton class='button' type='button' value=' OK '" _
& "name='ok_button' onClick='RunScript'>" _
& "   " _
& "<input id=runbutton class='button' type='button' value='Cancel'" _
& "name='cancel_button' onClick='CancelScript'></body></html>"
.document.close
.document.all.user.focus
oSH.Appactivate "Password _"
document.Visible = True
Do While (.document.body.all.OKClicked.Value = "" )
Wscript.Sleep 250
Loop
strName = .document.body.all.UserName.Value
strPassword = .document.body.all.UserPassword.Value
strButton = .document.body.all.OKClicked.Value
oIE.Quit
Wscript.Sleep 250
End With
End Sub

Merci

Reply

Marsh Posté le 08-09-2005 à 14:00:43

C'est bizarre le VBS accepte aussi des entête de type sub / end sub
Pourquoi ne pas essayer de faire un fichier VBS à part et le lancer à partir du code HTML : ce n'est pas possible ??

Reply

Marsh Posté le 08-09-2005 à 14:29:32

Oui c'est possible, mais j'essaye de ne pas avoir trop de fichiers différent et comme je sais que le vbs peut générer des fenêtres html et récupérer leur valeur, autant le faire

En fait le code que j'ai mis ci-dessus fonctionne partiellement on va dire... en fait c'est un .hta à l'origine... Une fois initialisée, je clique sur un bouton et ce bouton effectue le sub ci-dessus. Quand je clique dessus, la fenêtre s'ouvre bien, je peux entrer le nom et le mot de passe, mais pendant ce temps, la fenêtre principale est inaccessible et quand je clique soit sur OK ou Cancel de la fenêtre popup, il n'y a pas de retour alors qu'il devrait y avoir une action pour chacun des boutons. Voilà le problème que je n'arrive pas à résoudre.

Reply

Marsh Posté le 09-09-2005 à 15:08:49

J'ai trouvé autre chose qui a fonctionné, mais finalement j'ai laissé tomber cette version (beaucoup plus compliqué que simplement lancer le .hta depuis une console CMD avec droit admin).

Il me reste toujours le problème de récupérer les cases que j'ai cochée et lancer une commande pour chaque case cochée

Voilà le code :

Code :

<script language="vbscript">
Dim DFSTempFolder
DFSTempFolder = "C:\TEMP\DFSReplication"
Sub OnLoad()
self.ResizeTo 0,0
Dim oShell, CMDFolder, oSys, CMD, CMDCollection, CMDs, Markets, Market, i
Set oShell = CreateObject("WScript.Shell" )
Set oSys = CreateObject("Scripting.FileSystemObject" )
CMDFolder = "C:\DFSCopyJob"
If Not oSys.FolderExists(CMDFolder) Then
MsgBox "The folder 'DFSCopyJob' doesn't exists." & VbCrLf & "The application will now quit !", VBCritical, "DFSCopyJob Folder Missing !"
Window.close
End If
self.Focus()
self.ResizeTo 375,700
Set CMD = oSys.GetFolder(CMDFolder)
Set CMDCollection = CMD.Files
For Each CMDs in CMDCollection
If UCase(Right(CMDs.name,3)) = UCase("cmd" ) Then
s = s & CMDs.name & "|"
End If
Next
Markets = Split(s,"|" )
Market = "<B>SELECT THE DESIRED MARKET(S)</B> <br><br>"
For i = 0 to UBound(Markets) - 1
Market = Market & "<INPUT type='checkbox' name='" & Markets(i) & "'> " & Markets(i) & "<br>"
Next
Market = Market & "<BR> <input name='allbox' type='checkbox' value='Check All' onClick='CheckAll();' /><B>Select/Unslect All</B>"
Market = Market & "<BR><BR> <input type=button value='Start DFS Replication' onClick=StartDFSReplication()> <input type=button value=Cancel onClick=window.close()>"
txtOutput.innerhtml = Market
document.title = "Make your choice"
End Sub
Sub Prepare()
Dim oSys
Set oSys = CreateObject("Scripting.FilesystemObject" )
If Not oSys.FolderExists(DFSTempFolder) Then
oSys.CreateFolder(DFSTempFolder)
Else
oSys.DeleteFolder(DFSTempFolder)
oSys.CreateFolder(DFSTempFolder)
End If
End Sub
Sub StartDFSReplication()
Dim oShell
Set oShell = CreateObject("WScript.Shell" )
Prepare
For i = 0 to End
oShell.Run "cscript.exe " & DFSTempFolder & "\Start_" & Markets(i) & ".vbs", 9, True
Next
Self.close
End Sub
</script>

Et ce que je n'arrive pas à faire se situe là plus précisement :

Code :

For i = 0 to End
oShell.Run "cscript.exe " & DFSTempFolder & "\Start_" & Markets(i) & ".vbs", 9, True
Next

Voici ce que j'aimerai faire en gros, j'ai juste mis un code pour donner la logique
Merci !

Reply

Récupération d'une liste de fichier dans un Array

Sujets relatifs:

Leave a Replay