Alimenter une liste déroulante a partir d'un fichier TXT.

**ToNy.T** · 06/06/2008, 18h54

Bonjour a tous et a toutes, Je débute en programmation je suis actuellement en 1ere année de BTS Informatique de gestion... Bref.
J'ai besoin, dans le cadre de mon stage, d'alimenter une liste déroulante crée en html a partir d'un fichier texte.
c'est a dire que dans mon fichier texte j'ai le nom d'un fournisseur,le prix:
Ex: ASVO,6.55
bien sur j'en aurait plusieurs...
Je pensais metre dans un tableau mes donné puis ensuite les afficher dans ma liste mais la probleme, cela ne fonctionne pas.
regarder ce que j'ai fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<SCRIPT language="VBscript">
<----! Declaration du tableau des fournisseurs ---->
Dim TabF(50)
i=1
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject")
Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\listefournisseur.txt")
Do While Not Ftxt.AtEndOfStream
	TabF(i)=Ftxt.Readline
	i=i+1
loop 
Ftxt.close

ensuite pour l'afficher dans mon code html dans ma liste déroulante j'ai fais:

Code :

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

1
2
<td align="center"><b>Fournisseurs ?</b><SELECT NAME="type_four">
  <OPTION SELECTED VALUE="Fournisseurs"><SCRIPT language="VBscript">Response.Write(i & " : " & tableau(i))</script></td>

pouvez-vous m'aidez?
Merci d'avance

**SfJ5Rpw8** · 06/06/2008, 20h31

Je connais pas l'ASP... mais pour créer ta liste de choix je pense qu'il te faut faire une boucle pour parcourir les éléments de ton tableau...

tiens un exemple, à mettre dans un .html (j'ai pas utilisé de tableau intermédiaire) ..

Code html :

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
 
<HTML>
<HEAD>
<TITLE>Passez votre commande</TITLE>
</HEAD>
 
<td align="center"><b>Fournisseurs ?</b><SELECT NAME="type_four">
 
  <SCRIPT language="VBscript">
  <!--
        Dim FSO
        Set FSO=CreateObject("Scripting.FileSystemObject")
        Set Ftxt=FSO.OpenTextFile("d:\tmp\scores.txt")
        i=0
        Do While Not Ftxt.AtEndOfStream
                Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")
                i=i+1
        loop 
        Ftxt.close
        --></script></td>
 
  </BODY>
 
</HTML>

**ToNy.T** · 06/06/2008, 22h13

La zone de liste apparait bien mais reste vide, mon fichier texte comporte pourtant 4 entrées :s.
La boucle que tu ma donné en faite, sa fonction est juste de parcourir mon fichier ? et sinon es ce que tu sais comment faire pour justement remplir ma zone de liste. je connais les differents <option>value=...</option>
mais ce que je veut justement c'est l'alimenter grace a mon fichier texte. Pour enfaite avoir qu'a modifier le .txt si jammais les fournisseurs change leur prix...
Merçi.

**SfJ5Rpw8** · 06/06/2008, 22h19

ben as-tu essayé mon code ... ( en le plaçant dans un .html..) ?

tu dois effectuer une boucle qui "génère" une ligne option .. par ligne de ton fichier ...

**ToNy.T** · 06/06/2008, 22h22

Voila ce que j'ai fais : ceci est dans mon .html.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<td align="center"><b>Fournisseurs ?</b><SELECT NAME="type_four">
   <SCRIPT language="VBscript"> 
	Dim FSO
	Dim
	Set FSO=CreateObject("Scripting.FileSystemObject")
	Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\listefournisseur.txt")
	i=0
	Do While Not Ftxt.AtEndOfStream
		Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")
		i=i+1
	loop 
	Ftxt.close
	</script></td>

Mais toujours rien dans ma liste déroulante :s.

**SfJ5Rpw8** · 06/06/2008, 22h24

tu le met ou ton script ? quel type de fichier ? tu le "lance comment"?

**ToNy.T** · 06/06/2008, 22h35

Mon script est dans ma partie html... j'ai bien mis <SCRIPT language="VBscript">
en début pour qu'il prenne en compte mon script justement. c'est dans un fichier html que jance avec Internet explorer.

**SfJ5Rpw8** · 06/06/2008, 22h37

Envoyé par bbil

ben as-tu essayé mon code ... ( en le plaçant dans un .html..) ?

change juste le nom du fichier texte à lire déjà ...

**ToNy.T** · 06/06/2008, 22h39

listefournisseur.txt il va pas aimer ? j'ai pas trop compris ce que tu voulais me dire.

**tcr54** · 09/06/2008, 09h40

Bonjour,

Débutant en VBS et ASP, j'ai récemment fait quelque chose dans le même genre, excepté que ma liste de choix est alimentée par des noms de fichiers, à adapter à ton besoin...

En gros, les déclarations et affectations sont faites en haut de page (ainsi elles sont accessibles dans toute la page) et la boucle qui alimente la liste est dans la balise <select>.

Note : dans l'évènement "onchange", la fonction Javascript "open_awstats(this.value)" récupère la valeur sélectionnée et ouvre une autre page...

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
<%@ Language = "VBScript" %>
<% Response.Buffer = True %>
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html> 
 
<%
' Prepare variables.
dim fs,fo,x,sep1,sep2,wordarray,mystring,choicearray()
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:/temp/")
sep="."
%>    
  <head>
....
  </head>
    <body>

La liste de choix (SELECT) :

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
<asp:compute-select-field>
              <select name="site_name" onchange="open_awstats(this.value)">
              <option value=""></options> <!-- Première option = vide-->
                <%
                for each x in fo.files
                  ' Fill options to select field
                  ' Return and split (at each ".") the config files name (create a words array)
                  ' File name as "awstats.site-name.conf"  
                  wordarray = Split(x.Name,sep)
                  ' Get the second value of array = the site name
                  sitename = wordarray(1)
                  ' Fill options
                    Response.write("<option value='" & sitename & "'>" & sitename & "</option>")
                next           
                set fo=nothing
                set fs=nothing
                %>
            </asp:compute-select-field>

Voili, voilo,

Thierry

**RadPAT** · 09/06/2008, 09h56

Salut,

voici un extrait d'une appli qui va lire les config des routeurs Cisco.
J'ai un fichier texte CiscoLst.Txt qui contient toutes les adresses IP des routeurs avec une adresse par ligne. Pour afficher les adresses dans une liste déroulante, j'ai fait comme ca :

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
 
Sub DDList
 
   Set objFile = objFSO.OpenTextFile("CiscoLst.Txt", ForReading)
   Cisco_classes.InnerHTML = ""
   strHTML = "<select style=""width:270px;"" onChange=""ChgIP()"" name=IPPulldown>" & _
                "<option value=""PulldownMessage"">Choose a switch... "
   Do Until objFile.AtEndOfStream
      strLine = objFile.ReadLine
      strHTML = strHTML & "<option value= " & Chr(34) & strLine & Chr(34) & ">" & strLine
   Loop
 
   strHTML = strHTML & "</select>"
   Cisco_classes.InnerHTML = strHTML
 
   objFile.Close
 
End Sub

Code :

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

<span id="Cisco_classes"></span></td>

A++

**ToNy.T** · 16/06/2008, 15h36

Merci a tous de votre aide, cela ma apporté pas mal de renseignements.
Cependant j'aurais une 2nd question... Comment faire pour que lorsque je sélectionne une "option" dans ma liste déroulante cela m'affiche la valeur (de cette "option") dans une zone de texte?
J'espere que je me suis pas trop mal exprimé.
Merci

**tcr54** · 16/06/2008, 16h11

Bonjour,

Envoyé par ToNy.T

Comment faire pour que lorsque je sélectionne une "option" dans ma liste déroulante cela m'affiche la valeur (de cette "option") dans une zone de texte?
J'espere que je me suis pas trop mal exprimé.
Merci

Dans l'événement "onchange" de la balise "<SELECT....>" tu peux utiliser un p'tit code JavaScript comme ceci :

Code :

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

1
2
// Affecte la valeur sélectionnée à un champ de type texte
document.forms['nom du Form'].nom_du_champ_texte.value = this.value

Si ta liste de choix à une valeur (value) affecté aux options c'est cette valeur qui sera retournée

Code :

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

<option value="valeur">texte affiché</option>

Si le texte affiché est différent de la valeur, il te faudra utiliser ceci :

Code :

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

1
2
// Affecte la valeur affichée sélectionnée à un champ de type texte
document.forms['nom du Form'].nom_du_champ_texte.value = this.options[this.selectedIndex].text

this.selectedIndex = retourne l'index sélectionné (selectedIndex est uniquement valable si la liste est à choix unique)
this.options[this.selectedIndex].text = retourne la valeur texte affiché correspondant à l'option sélectionné...

Suis-je clair ?

Thierry

**ToNy.T** · 16/06/2008, 16h31

Bonjour thierry, j'ai un peu de mal a comprendre alors peut tu me dire si ce que je fais est correct. J'ai donc une liste déroulante alimenté a partir un fichier texte.
le fichier texte ressemble a ceci:
NOM (séparation par 2tabulation) Valeurs
la liste déroulante est alimenté comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
</b><SELECT NAME="type_four">
<SCRIPT language="VBscript">
	Dim FSO
	Set FSO=CreateObject("Scripting.FileSystemObject")
	Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\fournisseurs.txt")
	i=0
	Do While Not Ftxt.AtEndOfStream
		Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")
		i=i+1
	loop 
	Ftxt.close
	</script></td>

donc tu me conseil de crée l'evenement "Onchange"
je fais donc comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
</b><SELECT NAME="type_four" Onchange=document.forms['nom du Form'].type_four.value = this.options[this.selectedIndex].text>
<SCRIPT language="VBscript">
	Dim FSO
	Set FSO=CreateObject("Scripting.FileSystemObject")
	Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\fournisseurs.txt")
	i=0
	Do While Not Ftxt.AtEndOfStream
		Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")
		i=i+1
	loop 
	Ftxt.close
document.forms['nom du Form'].type_four.value = this.options[this.selectedIndex].text
	</script></td>

"nom du Form" je ne sait pas a quoi sa correspond chez moi...C:\Prix de vente 05\fournisseurs.txt ?
sinon es ce que ma syntaxe est correct pour ce que tu me dis ?
Merci

**tcr54** · 16/06/2008, 16h50

Envoyé par ToNy.T

"nom du Form" je ne sait pas a quoi sa correspond chez moi...C:\Prix de vente 05\fournisseurs.txt ?
sinon es ce que ma syntaxe est correct pour ce que tu me dis ?
Merci

1) nom_du_form est égale au nom du formulaire dans lequel se trouve ton champ "type_four", en plus clair, la valeur de l'attribut name de la balise form :

Code :

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

<form name="nom_du_form" action="...">

donc si ton form s'appelle "selection_type_four" (c'est un exemple...) tu auras :

Code :

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

onchange="[document.forms['selection_type_four'].type_four.value = this.options[this.selectedIndex].text"

2) Apparement tu veux "pousser" le texte affiché de ta liste de choix dans ton champ texte ("Ftxt.Readline")... j'ai bon ?

Code :

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

1
2
Do While Not Ftxt.AtEndOfStream
		Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")

Si oui il te faudra, utiliser :

document.forms['nom_du_form'].type_four.value = this.options[this.selectedIndex].text

3) Autre chose

Code :

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

1
2
3
4
5
...
 	loop 
	Ftxt.close
document.forms['nom du Form'].type_four.value = this.options[this.selectedIndex].text
</script></td>

Ce que j'ai mis en rouge dans ton code, tu peux l'enlever... ici cela ne sert à rien (sinon générer une erreur... )

Pour ton cas, dans le "onchange" cela suffit

Voili, voilo,

keep smile !

Thierry

**ToNy.T** · 17/06/2008, 15h13

Bah en faite en faisant ca

Code :

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

1
2
Do While Not Ftxt.AtEndOfStream
		Document.Write("<Option Value=" & i & ">" & Ftxt.Readline & "</OPTION>")

Je remplis ma liste déroulante.

J'ai compris ce que tu ma dis mais en faite ce que j'ai pas tout a fait saisie c'est ou es ce qu'il va savoir ou me l'afficher...
Quand je vais selectionné une option dans ma liste je veut qu'il me mette la valeur dans une caze a coté...

mon nom_from s'appel aussi type_four donc je vais avoir:

Code :

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

onchange="[document.forms[type_four].type_four.value = this.options[this.selectedIndex].text"

c'est bien ca ?
Merci

regarde stp http://img187.imageshack.us/my.php?image=screenco6.jpg

**tcr54** · 17/06/2008, 16h59

Si ta "caze a coté" c'est le champ "Frais de port" qui côté HTML doit ressembler à cela :

Code :

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

<input type="text" name="type_four">

lorsque tu vas sélectionner une option de la liste, elle va être envoyé dans le champ "type_four" du form "type_four" par l'évènement "onchange" :

Le nom du form doit être entre cote
document.forms['type_four'] = l'objet form
document.forms['type_four'].type_four l'objet champ de l'objet form
document.forms['type_four'].type_four.value = l'attribut à atteindre

this.options[this.selectedIndex].text = indique le texte (text) correspondant à l'option choisie (this.options)

P.S. : tout cela c'est du javascript http://www.w3schools.com/jsref/default.asp

**ToNy.T** · 18/06/2008, 09h51

La avec cette fonction il m'extrait toute ma chaine en faite,
comment faire pour qu'il extrait que la valeur numerique...
Mon tableau est composé de cette facon:

Code :

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

1
2
3
4
5
6
7
8
9
Aswo			4.50
Brandt			7.20
BSH			10.80
Crosnier		7.59
Electrolux		12.25
Energy France		8.50
Euro Sav		9.15
Europlex		7.45
Fagor			9.15

nom (2tabulation) valeur.
Merci

**tcr54** · 18/06/2008, 10h39

Bonjour,

Bah, fallait l'dire plus tôt, en fait tu veux voir la marque affichée dans la liste et poussez la valeur numérique correspondante dans le champ "Frais de port"

(je m'en doutais un peu

)

Tu peux faire cela en JS (côté client) mais je te conseil plutôt de le faire au niveau de l'alimentation de la liste (côté serveur) ce sera plus "propre", il faut alimenter les options de ta liste ainsi :
value = valeur numérique
text = marque

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
 
	Dim FSO, Ftxt, Ftxt_array,  Ftxt_marque, Ftxt_fraisport
	Set FSO=CreateObject("Scripting.FileSystemObject")
	Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\listefournisseur.txt")
 
	Do While Not Ftxt.AtEndOfStream
		' Crée un tableau de valeurs (séparées par un espace)
                Ftxt_array = Split(Ftxt.Readlines," ")
		' Retourne la marque  (première valeur)
	 	Ftxt_marque =  Ftxt_array(0) 
		' Retourne les frais de port (seconde valeur)
 		Ftxt_fraisport = Ftxt_array(1)
                         ' Alimente les options de la liste : value = frais de port, texte affiché = marque 
		Document.Write("<Option Value=" & Ftxt_fraisport & ">" & Ftxt_marque & "</OPTION>")
	loop 
 
	Ftxt.close

Le JS du "onchange" :

Code :

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

document.forms['type_four'].type_four.value = this.value

qui va bien pousser la valeur numérique (value) dans ton champ...

Attention, j'ai fait cela à "la louche" à toi de tester et d'adapter si besoin était (peut-être le séparateur au niveau de la fonction Split() http://www.jalix.org/ressources/inte...tml/vbs196.htm)

Cordialement,

Thierry

P.S. : Si j'ai bon, j'aurais droit à une réduction sur l'achat d'un four ?

**ToNy.T** · 18/06/2008, 14h52

Merci beaucoup Thierry de ton aide.
J'ai toujours un souci... :s
avec ton code ma liste déroulante reste vide.. n'est pas alimenté.
j'essai avec des msgbox pour voir ou sa coince et par exemple lorsque j'en fait juste la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim FSO
	Set FSO=CreateObject("Scripting.FileSystemObject")
	Set Ftxt=FSO.OpenTextFile("C:\Prix de vente 05\fournisseurs.txt")
	i=0
	Do While Not Ftxt.AtEndOfStream
	msgbox(i)
		Ftxt_array = Split(Ftxt.Readline," ")
		Ftxt_marque = ftxt_array(0) 
		msgbox(Ftxt_marque)
		Ftxt_fraisport = ftxt_array(1)
		Document.Write("<Option Value=" & Ftxt_fraisport & ">" & Ftxt_marque & "</OPTION>")
		i=i+1
	loop 
	Ftxt.close

le msgbox de i m'indique que le i ne s'incrémente pas il reste donc a 0
et le msgbox(Ftxt_marque) ne s'exécute pas.

toute la programmation se fait coté client en vbscript, javascript et html pour l'affichage.(j'ai bien compris que les scripts sont indépendants les uns des autres).

Alimenter une liste déroulante a partir d'un fichier TXT.

VBScript

Discussions similaires

Partager

Partager