Lecture d'un fichier texte

**DuncanMcLeod** · 09/02/2018, 17h01

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 :

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

J'ai trouvé chemin faisant ce code :
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 ?

**ProgElecT** · 09/02/2018, 17h15

Salut

Une façon de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
          Dim TblStr
          Do Until objFile.AtEndOfStream
              strLine = objFile.ReadLine
              Set objOption = Document.createElement("OPTION")
              TblStr = Split(strLine, "-")
              objOption.Text = TblStr(0)       'strLine
              objOption.Value = TblStr(0)      'strLine
              AvailablePhrases.Add (objOption)
              Set objOption = Document.createElement("OPTION")
              objOption.Text = TblStr(1)       'strLine
              objOption.Value = TblStr(1)      'strLine
              AvailablePhrases.Add (objOption)
          Loop

**DuncanMcLeod** · 12/02/2018, 10h42

Bonjour ProgElecT,
Merci pour cette réponse rapide.
Malheureusement ce n'est pas tout à fait ce que je cherche.
au lieu de récupérer "Valeur1-Valeur2" dans ma liste déroulante, avec ton code cela me donne ceci :
Valeur1
Valeur2
Valeur3
...

Ce que je cherche c'est sélectionner "Valeur1-Valeur2" dans la liste et que le paramètre pris en compte soit "Valeur2"
Si , par exemple, je fais une Msgbox derrière, en validant "Valeur1-Valeur2" je dois pouvoir afficher "Valeur2"

**ProgElecT** · 12/02/2018, 10h59

Salut

Code :

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

1
2
3
4
5
6
7
8
         ' ----------------- Dim TblStr n'est plus utile ----------------------
          Do Until objFile.AtEndOfStream
              strLine = objFile.ReadLine
              Set objOption = Document.createElement("OPTION")
              objOption.Text = strLine
              objOption.Value = Split(strLine, "-")(1)
              AvailablePhrases.Add (objOption)
          Loop