Implémentation d'un menu déroulant à partir d'un fichier txt

**1MrchB** · 14/02/2012, 15h05

Bonjour,

Sur ce petit exemple, je cherche, lorsque l'on clique sur "Add Project" ou "Add Customer", à implémenter un fichier texte. Chaque élément ajouté devra venir à la suite de ceux deja présent dans le fichier (trié par Customer et Project...bien evidemment

)
Ce fichier texte devra contenir tous les precedemment éléments ajouté avec les commandes "Add". Et pour finir, tous ces éléments devront figurer dans la liste de menu déroulant situer à gauche de chaque bouton. Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<head>
<title>blabla</title>
<HTA:APPLICATION
      APPLICATION="htaControles"
 > 
 </head>
 <script language="VBScript">
 
 window.setTimeout "Size",5
 
 Sub Size
 ResizeTo 850,580
 MoveTo 100,100
 End Sub
 
	Dim Master
	Dim Master1
 
	Titre = "blabla"
 
 
	Sub SetProject
	end sub
 
	Sub AddProject
		ask1 = inputBox("Enter the name of the new project",Titre)
	end sub
 
	Sub SetCustomer
	end sub
 
	Sub AddCustomer
		ask1 = inputBox("Enter the name of the new customer",Titre)
	end sub
 
 </script>
 <body>
 <BODY BGCOLOR="CFD6D2">
 
<b>CUSTOMER :</b> &nbsp &nbsp &nbsp &nbsp &nbsp
<SELECT NAME="LstCustomer" SIZE=1 onChange="SetCustomer">
&nbsp &nbsp
<OPTION VALUE="">
<OPTION VALUE="toto">toto
<OPTION VALUE="tata">tata
<input type = "button" value = "ADD CUSTOMER" onClick="AddCustomer" /><br><br>
 
<b>PROJECT NAME : &nbsp &nbsp</b>
<SELECT NAME="LstProject" SIZE=1 onChange="SetProject">
&nbsp &nbsp &nbsp &nbsp
<OPTION VALUE="">
<OPTION VALUE="titi">titi
<OPTION VALUE="tutu">tutu
<input type = "button" value = "ADD PROJECT" onClick="AddProject" /><br><br>
 
</form>
</body>

**ProgElecT** · 14/02/2012, 18h13

Salut

Je pense que ces quelques liens te seront utiles
Donner une interface à vos script VBS , HTA : Html Application surtout III-F. Liste de choix de données dynamique

et la FAQ VBScript, Accès aux Fichiers

**1MrchB** · 15/02/2012, 12h08

Bonjour,

Merci pour ces premiers éléments de réponse, j'ai pu bien avancer. Par contre il me manque une certaine culture des attributs, je m'explique :
La fonction ci dessous est appelée via un clic sur un bouton. Or lorsqu'on clique deux fois sur ce bouton, la liste dans le menu déroulant apparait deux fois. Je ne connais pas la commande permettant de la réinitialiser. Pour moi, il faudrait ajouter un genre de lstDynCustomer.Clear(oOption) avant le début de ma boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub LoadCustomer
		cpt = 0
		dim filesys, text, readfile, contents 
		set filesys = CreateObject("Scripting.FileSystemObject") 
		set readfile = filesys.OpenTextFile("ListCustomer.txt", 1, false)
		Set oOption = Document.createElement("OPTION")
		lstDynCustomer.Add(oOption)
			do while readfile.AtEndOfStream=false 
				contents = readfile.ReadLine
				cpt = cpt + 1
			loop 
		readfile.close 	
		For i = 1 to cpt
			Set oOption = Document.createElement("OPTION")
			oOption.Text = ReadFunction("ListCustomer.txt",i)
			oOption.Value = ReadFunction("ListCustomer.txt",i)
			lstDynCustomer.Add(oOption)
		next	
	End Sub
 
	Function ReadFunction(file,line)
		'dim filesys, text, readfile, contents 
		set filesys = CreateObject("Scripting.FileSystemObject") 
		set readfile = filesys.OpenTextFile(file, 1, false) 
			for j = 1 to line
					contents = readfile.ReadLine
			next
		readfile.close
		ReadFunction = contents
	End Function

**ProgElecT** · 15/02/2012, 12h23

Salut
Il est possible qu'il y ai une autre solution, pour ma part je procéderai ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = lstDynCustomer.length To 0 Step -1: lstDynCustomer.Remove (V): Next
For i = 1 to cpt
......

avant que de la remplir

**1MrchB** · 15/02/2012, 15h05

Réponse rapide et résultat au rendez vous! Parfait! Merci

**ProgElecT** · 15/02/2012, 16h28

Envoyé par 1MrchB

Réponse rapide et résultat au rendez vous! Parfait! Merci

Bien, donc tu peux utiliser le bouton

en bas du dernier post de la discussion.

Implémentation d'un menu déroulant à partir d'un fichier txt

VBScript

Discussions similaires

Partager

Partager