Liste deroulante avec fichier txt

Version imprimable

05/04/2016, 11h52
yoyo-tns

Liste deroulante avec fichier txt

Bonjour

J'ai une petite question, surtout un problème
je souhaiterais faire une liste déroulante a partir d'un fichier txt
ce fichier txt contiendrait une liste du genre:

toto
tata
titi
tutu

je souhaiterait que lorsque titi est sélectionner dans la liste déroulante par un bouton OK
pouvoir récupérer titi dans une variable pour lancer une commande du genre

dwrcc.exe -m:titi

avec mes remerciements

Salut yoyo-tns !

Voici un exemple (vite fait) pour t'exposer le principe.

Liste.txt

Code:

1
2
3
4
toto
tata
titi
tutu

Fichier.hta

Code:

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
<head>
<title>MonTitre</title>
<HTA:APPLICATION
APPLICATION="Liste déroulante"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="no"
WINDOWSTATE="normal">
</head>
<script language="VBScript">
	Sub Window_onLoad
	Me.ResizeTo 100,150
	Me.MoveTo ((Screen.Width / 2) - 200),((Screen.Height / 2) - 150)
	Dim Valeur(), oFSO
	Liste = "./Liste.txt"
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set lect = oFSO.OpenTextFile(Liste, 1)
	Set oFl = oFSO.GetFile(Liste)
	ts = lect.ReadAll
	Nbr_Valeurs = lect.Line -1
	Redim Valeurs(Nbr_Valeurs)
	lect.close
	Set lect = oFSO.OpenTextFile(Liste, 1)
	i = 0
	while Not lect.AtEndOfStream
	Valeurs(i) = lect.Readline
	i = i + 1
	Wend
	lect.Close
	For i = 0 to Nbr_Valeurs
	Set oOption = Document.createElement("OPTION")
	oOption.Text = Valeurs(i)
	oOption.Value = Valeurs(i)
	Liste_Valeurs.Add(oOption)
	Next
	End Sub
 
	Sub Clic_OnClick
	MsgBox Liste_Valeurs.Value
	End Sub
</script>
<body STYLE="font:12 pt calibri; color:white;filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">
</SELECT>
<SELECT NAME="Liste_Valeurs" SIZE=1>
</SELECT></p>
<p align="left"><input type="button" value="Clic_Me" name="Clic"></p>
</body>

:salut:
J'ai modifié un peu depuis un ancien projet :

Code:

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
101
102
103
104
105
106
107
108
<html>
<head>
<title>Create a dynamic listbox from file by Hackoo</title>
<HTA:APPLICATION 
ID="IPTV"
APPLICATIONNAME="IPTV"
SCROLL="no"
ICON="Winver.exe"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
<style>
body {
color:white;
background-color:lightblue;
background-image:url(http://financialtribune.com/sites/default/files/field/image/11_IRIB.jpg);
background-repeat:repeat;
background-size: 100%;
}
 
select{
margin:0px;
padding:0px;
background: lightblue;
color:#000H;
text-shadow:0 1px 0 rgba(0,0,0,0.4);
}
option:not(:checked) { 
background-color: #FFF0; 
}    
 
Span
        {
 
            border:2px solid lightblue;
            background-color:Red;
            display: inline;
        }
        Span:hover
        {
            background-color:fuchsia;
            Cursor:hand;
        }
</style>
</head>
<body> 
    <script type="text/vbscript">
    Sub Window_OnLoad()
    Dim MyFile
    MyFile = "List.txt"
        Call LoadFile(MyFile)
    End Sub
    '**********************************************************************************************
Sub LoadFile(strFile)
    Const ForReading = 1
    Const ForWriting = 2
    Call ClearListbox()
    Dim fso,f,i,Count,Title
    Title = "Create a dynamic listbox from file by Hackoo"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(strFile) Then 
        MsgBox "Erreur "& vbcr & "Vérifier si le fichier "& DblQuote(strFile) & " existe ?",VbCritical,Title
        Exit Sub
    End If
    Count = 0
        Set f = fso.OpenTextFile(strFile,ForReading)
        Do Until f.AtEndOfStream
            strLine = f.Readline
            strLine = Trim(strLine)
            If Len(strLine) > 0 Then
                strNewContents = strNewContents & strLine & vbCrLf
            End If
        Loop
        f.Close
        Tab = split(strNewcontents,vbcrlf)
        For i = lbound(Tab) to ubound(Tab) 
                Count = Count + 1
                Set objOption = Document.createElement("OPTION")
                objOption.Text = Count & " - " & Tab(i)
                k = i+1
                If k > UBound(tab) Then Exit For
                objOption.Value = Tab(i)
                List.Add(objOption)        
        Next
End Sub
'***********************************************************************************************
Sub ClearListbox()
    For Each objOption in List.Options
        objOption.RemoveNode
    Next 
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
Sub Run()
Dim Command
    Command = "dwrcc.exe -m:"
    Msgbox Command & List.Value
End Sub
'**********************************************************************************************
    </script>
    <center><select size="1" name="List"></select><br><br>
    <input type="Button" name="submit" Value="Exécuter" onclick='Run()'>
    </center>
</body>
</html>

05/04/2016, 13h51
yoyo-tns

Bonjour CachLab,

je rame complètement, mais ou je défini ma commande

dwrcc.exe -m: ( variable )

Merci pour ton aide

Bonjour hackoofr

cela fonctionne parfaitement merci

J'ai juste une question sur l'exécution du fichier dwrcc.exe, le fichier HTA et le fichier liste.txt se trouvent au même endroit
pourtant il ne s'exécute pas.
Code:

1 2 3 4 5 6 7 8 9 Function DblQuote(Str) DblQuote = Chr(69) & Str & Chr(69) End Function '********************************************************************************************** Sub Run() Dim Command Command = "dwrcc.exe -c: -v: -u:frsofly-admin -p:*Mazter2004 -m:" Msgbox Command & List.Value End Sub
Merci pour votre aide

Citation:

Envoyé par yoyo-tns

Bonjour hackoofr

cela fonctionne parfaitement merci

J'ai juste une question sur l'exécution du fichier dwrcc.exe, le fichier HTA et le fichier liste.txt se trouvent au même endroit
pourtant il ne s'exécute pas.

Function DblQuote(Str)
DblQuote = Chr(69) & Str & Chr(69)
End Function
'**********************************************************************************************
Sub Run()
Dim Command
Command = "dwrcc.exe -c: -v: -u:frsofly-admin -p:*Mazter2004 -m:"
Msgbox Command & List.Value
End Sub

Merci pour votre aide

Oui, il ne s'exécute pas car juste c'est un Msgbox pour vérifier toi-même si la syntaxe est bonne ou non ?
Code:

1 2 3 4 5 6 7 Sub Run() Dim Command,ws set ws = CreateObject("wscript.shell") Command = "dwrcc.exe -c: -v: -u:frsofly-admin -p:*Mazter2004 -m:" Msgbox Command & List.Value ws.run Command & List.Value End Sub
http://support.dameware.com/kb/article.aspx?ID=300002

05/04/2016, 16h01
yoyo-tns

Super :P

Un grand merci pour votre aide