checkbox - hta

**ml71200** · 06/02/2013, 16h03

Bonjour,
Cela fait deux jours que je cherche un peu partout et une question me trotte dans la tête.
Un bout de mon script est ainsi :

Code HTML :

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

1
2
3
4
5
6
7
8
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="Acrobat">Acrobat<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="Firefox">Firefox<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="FlashIE">Flash IE<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="FlashFF" >Flash pour firefox<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="IZARC">IZARC<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="OPEN">Open office<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="pdfcreator" >pdfcreator<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="thunderbird">Thunderbird<BR>

Ma question est la suivante :
Est ce que la valeur saisie après le supérieur (ce qui correspond au mot en rouge) doit forcément être saisie manuellement ou peut on faire référence à un fichier texte par exemple.

Si oui comment faire. Bonne journée.

l'idée serait que j'aurai une liste de logiciel qui alimenterait ces checkbox et ainsi mon programme serait évolutif ou dynamique.

Réalisable ou pas ? Faut changer le langage d'avance merci.

Le bout de code précédément saisie est un bribre d'un hta couplé à du VBS.

Je débutes et suis ouvert à toute proposition.

Merci pour vos réponses. J'espère que mon POST est au bon endroit

**ProgElecT** · 06/02/2013, 17h43

Salut

Dans ce tutoriel
Donner une interface à vos script VBS , HTA : Html Application il y a toutes les réponses

.

**hackoofr** · 06/02/2013, 18h29

Voila un autre exemple : HTA input exemple

**ml71200** · 06/02/2013, 21h26

excusez moi mais je me suis trompé dans ma demande.
Je voudrais que le nom correspondant à la checkbox ne soit pas saisie manuellement (ce qui apparait à l'écran). Je ne par le pas du type ni du name et pas value non plus. J'ai beau relire je ne trouves pas comment faire

.

j'aurai donc un fichier de type

a
b
c
d
e
f
g
h

ce qui me donnerai ce résultat :

Code html :

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

1
2
3
4
5
6
7
8
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="Acrobat">a<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="Firefox">b<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="FlashIE">c<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="FlashFF" >d<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="IZARC">e<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="OPEN">f<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="pdfcreator" >g<BR>
<INPUT TYPE="checkbox" NAME="optLogiciel" VALUE="thunderbird">h<BR>

Mais ce n'est peut être pas réalisable ?

en tout cas merci pour vos réponses et de vos précieuses lumières.

**ProgElecT** · 06/02/2013, 22h58

Re

Pas super mon code

, mais cela fonctionne

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
<head>
  <title> Un HTML Application </title>
  <hta:application
     id="NbrElementDynamique"
     applicationname="NbrElementDynamique"
     version="1" >
</head>
	<SCRIPT language="VBScript" type="text/VBScript" >
	'------------------------------------------------------------------------------------------------------------------
	Sub Window_Onload()
		Dim FSO, LeFichier, PourTbl
		Dim DossierDuProg 
		Dim WshShell
 
		Set WshShell = CreateObject("WScript.Shell")
		DossierDuProg = WshShell.CurrentDirectory & "\"
		Set WshShell = Nothing
 
		Set FSO = CreateObject("Scripting.FileSystemObject")
		Set LeFichier = FSO.OpenTextFile(DossierDuProg & "FichierArray.txt",1)
		PourTbl = LeFichier.ReadAll: LeFichier.Close
		Set FSO = Nothing
 
		Dim MeTbl
		MeTbl = split(PourTbl,vbNewLine)
		N0.innerText = MeTbl(0)
		N1.innerText = MeTbl(1)
		N2.innerText = MeTbl(2)
		N3.innerText = MeTbl(3)
		N4.innerText = MeTbl(4)
		N5.innerText = MeTbl(5)
		N6.innerText = MeTbl(6)
		N7.innerText = MeTbl(7)
 
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
	</SCRIPT>
<body>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:10px; height:22px"
		NAME="optLogiciel" VALUE="Acrobat"> <Div Id="N0" style="position:absolute; left:50px; top:10px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:40px; height:22px"
		NAME="optLogiciel" VALUE="Firefox"> <Div Id="N1" style="position:absolute; left:50px; top:40px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:70px; height:22px"
		NAME="optLogiciel" VALUE="FlashIE"> <Div Id="N2" style="position:absolute; left:50px; top:70px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:100px; height:22px"
		NAME="optLogiciel" VALUE="FlashFF" > <Div Id="N3" style="position:absolute; left:50px; top:100px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:130px; height:22px"
		NAME="optLogiciel" VALUE="IZARC"> <Div Id="N4" style="position:absolute; left:50px; top:130px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:160px; height:22px"
		NAME="optLogiciel" VALUE="OPEN"> <Div Id="N5" style="position:absolute; left:50px; top:160px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:190px; height:22px"
		NAME="optLogiciel" VALUE="pdfcreator" > <Div Id="N6" style="position:absolute; left:50px; top:190px; height:22px" > </Div>
<INPUT TYPE="checkbox" style="position:absolute; left:10px; top:220px; height:22px"
		NAME="optLogiciel" VALUE="thunderbird"> <Div Id="N7" style="position:absolute; left:50px; top:220px; height:22px" > </Div>
</body>

Le fichier FichierArray.txt et dans le dossier du HTA, il a 8 lignes, de a à h.

**ml71200** · 07/02/2013, 09h24

Merci beaucoup ProgElecT,
Dans notre cas le nombre d'entrée de notre fichier atteint un total de 8.
Si le nombre d'entrée du fichier est indéfini et sera donc aléatoire (par exemple un coup 2, 20, 25, 1, etc....)
Comment gérer l'intitulé des checkbox et leur affichage en fonction de ce nombre aléatoire.
En tout cas merci de votre aide.

**hackoofr** · 07/02/2013, 10h33

un exemple avec une ListBox qui se charge dynamiquement depuis un fichier :

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
<html>
<head>
  <title> Un HTML Application </title>
  <hta:application
     id="NbrElementDynamique"
     applicationname="NbrElementDynamique"
     version="1" >
</head>
    <SCRIPT language="VBScript" type="text/VBScript" >
    Sub Window_Onload
          ForReading = 1
          strNewFile = "list.txt"
          Set objFSO = CreateObject("Scripting.FileSystemObject")
          Set objFile = objFSO.OpenTextFile _
              (strNewFile, ForReading)
          Do Until objFile.AtEndOfStream
              strLine = objFile.ReadLine
              Set objOption = Document.createElement("OPTION")
              objOption.Text = strLine
              objOption.Value = strLine
              List.Add(objOption)
          Loop
          objFile.Close
      End Sub
</script>
<HR>
  <FONT SIZE=2><B><I>Lire depuis un fichier</I></B></FONT><BR>
  <select size="1" name="List">
  <option>Hackoo</option>
  </select>
<HR>
</html>

**ProgElecT** · 07/02/2013, 12h33

Envoyé par ml71200

Merci beaucoup......
Si le nombre d'entrée du fichier est indéfini et sera donc aléatoire (par exemple un coup 2, 20, 25, 1, etc....)
Comment gérer l'intitulé des checkbox et leur affichage en fonction de ce nombre aléatoire......

Je pense que le choix du checkbox n'est pas judicieux pour l'ergonomie (programmation et confort pour l'utilisateur de ton programme).

Pourquoi ne pas utiliser une liste à multi-selection.
III-E. Liste de choix
Voir la propriété : "MULTIPLE"
et pour le remplissage dynamique de la liste
III-F. Liste de choix de données dynamique

En reprenant/t'inspirant du code proposé par hackoofr , tu devrais pouvoir avancer utilement.

**ml71200** · 07/02/2013, 13h06

je crois que je n'ai plus que cela à faire malheureusement.
Merci à vous deux pour ces bons conseils.
Bonne journée.

**hackoofr** · 07/02/2013, 14h49

et si par hasard vous préférez toujours les CheckBox voila une proposition

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
<head>
<title>MULTI-CheckBox TEST</title>
<HTA:APPLICATION
ICON=""
APPLICATIONNAME=""
SCROLL="NO"
SINGLEINSTANCE="yes"
NAVIGABLE="yes"
CAPTION="YES"
>
</HTA:APPLICATION>
</head>
<script language="VBScript">
SUB bodyLoaded()
	ForReading = 1
	strNewFile = "list.txt"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(strNewFile, ForReading)
	LireTout = objFile.ReadAll
	Ligne = Split(LireTout,VBNewLine)
	For i = LBound(Ligne) to Ubound(Ligne)
		msg = msg & vbcr & "<input type=""checkbox"" id=" & Ligne(i) & " name=" & Ligne(i) & " value=" & Ligne(i) & ">" & Ligne(i) & "<br>"
	Next
	CheckBox.InnerHTML = msg
END SUB
 
</script>
<body onLoad="bodyLoaded()" STYLE="font:13 pt arial; color:black" bgcolor="buttonface">
<span  id="CheckBox"></span>
</body>

**ml71200** · 08/02/2013, 18h55

merci. J'utilise le même principe en utilisant un dictionnaire.

Merci beaucoup et bonne journée

checkbox - hta

VBScript

Discussions similaires

Partager

Partager