Bonjour,
Je voudrais récupérer des données dans un fichier texte.
Je m'explique...
J'ai un fichier HTA avec un champ déroulant.
Celui-ci est incrémenté par la lecture d'un fichier texte.
Fichier texte liste.txt :
Valeur1-Valeur2
Valeur3-Valeur4
Je souhaite récupérer les valeurs après le séparateur "-".
Fichier HTA :
J'ai trouvé chemin faisant ce code :
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 <script language="VBScript"> Sub Window_Onload ForReading = 1 strNewFile = "printers.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 AvailablePhrases.Add(objOption) Loop objFile.Close XPos = 400 YPos = 300 intLeft = (intHorizontal - XPos) / 2 intTop = (intVertical - YPos) / 2 self.ResizeTo Xpos,YPos 'window.moveTo intLeft, intTop End Sub Sub TESTSUB on error resume next Selection = AvailablePhrases.Value strPrinter = txt_printer.value
Set Selection = Mid(Ligne, 1, (InStr(Ligne, "-")-2))
Malheureusement, je ne sais pas du tout comment l'utiliser...
Pouvez-vous m'aider s'il vous plait ?
Partager