VBS - contenu fichier dans combo
Bonjour !
j'ai une question concernant le vbs
J'aurais besoin de récuperer le contenu d'un fichier pour le stocker dasn une combo ...
est-ce clair ?
merci d'avance
j'ai une question concernant le vbs
J'aurais besoin de récuperer le contenu d'un fichier pour le stocker dasn une combo ...
est-ce clair ?
merci d'avance
8 réponses
-
Contributeurbonjour
Il faut ouvrir ton fichier :
Open "C:\TextFile.txt" For Input As #1
puis le lire et si c'est un fichier texte c'est :
Line Input #1, NomDeVariable
puis comme d'habitude :
additem NomDeVariable
puis :
close #1
est-ce suffisant pour t'aider ?
-
Bonjour,
merci pour ta réponse ... Or, cela ne fonctionne pas ...
est-ce en Vbs ce que tu m'a donné ?
j'ai trouvé cela :
Dim fso, fichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("C:\pelican\utilitaire\site.ini", ForReading, True)
ReadAllTextFile = fichier.ReadAll
fichier.Close
et cela fonctionne
par contre pour ajouter dans ma combo box je n'y arrive pas mais j'ai essayé un truc comme :
oIE.Document.FormHtml.combo_site.AddItem ("test")
Mais cela ne fonctionne pas ...
Voila !
Merci ! -
Bonjour,
exemple :
Set fso = CreateObject("Scripting.FileSystemObject")
Set MonFichier = fso.OpenTextFile(CheminFichier, ForReading,True)
While Not MonFichier.AtEndOfStream
Texte = MonFichier.ReadLine
MonCombo.AddItem Texte
Wend
MonFichier.Close
Lupin
-
Cette solution plante mon application ...
Tu n'aurais pas une autre solution svp ??
Merci d'avance !-
re:
j'ai besoin de plus d'info !
Le contenu du fichier texte ressemble à quoi ? saut de ligne présent ? etc ...
Ton objet [ combo ] est localisé dans quel application ?
La solution proposé devrait fonctionner, il ne s'agit
que de bien connaître les objets en cause pour établir
la bonne syntaxe.
Lupin
-
-
Les gens confondent le VBS avec le VB et c'est pas la même chose ;)
Le VBS est bien un petit script (Visual Basic Script) qui se fait dans un petit document texte que vous sauvegarder en tant que *.vbs
Tandisque le VB (Visual Basic) se fait en utilisant les logiciels Visual Basic 6.0 ou autres et se sauvegarde en *.vbp et même que le logiciel permet de compresser le programme en *.exe
Alors faites attention quand vous parler de VBS et de VB
- Magnux -
oui ! c'est bien vrai ca !! On confond tout !!!
perso je parle de VBS donc mon petit programme qui lance une page HTML.
Mon fichier est un fichier .txt ou ini (je m'en fiche), il comprendra des sauts de lignes.
Ma combo est donc dans ma page Html ..
voila ;-) -
Rebonjour ultimate,
bon je suis quelque peu trop occupé par les temps qui courent,
mais enfin voici la suite :
Voici donc l' exemple de lecture du fichier, la ligne qui ajoute
dans la combo n'est pas testé, car je n'ai jamais réalisé ce type
de manoeuvre personnellement.
***************************************************
Dim fso, FichierSource, Texte
Set fso = CreateObject("Scripting.FileSystemObject")
Set FichierSource = fso.OpenTextFile("C:\Fichier1.txt", ForReading)
While Not FichierSource.AtEndOfStream
..Texte = FichierSource.ReadLine
..ObjetCombo.AddItem Texte ??? Syntaxe a trouver ...
Wend
FichierSource.Close
***************************************************
Exception de la ligne qui ajoute dans le combo, le reste fonctionne
très bien en VBS, ceci dit il y a peut-être quelque chose sous une
page HTML qui m'échappe car je n'en ai pas fait à part quelques
petits tests.
Comme tu peux le voir, je récupère ligne par ligne que j'affecte
à une variable. Bon si je retrouve mes petits fichiers html de tests
je te reviens avec.
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~ -
re:
en fouillant, j'ai trouvé un exemple de test que j'avais essayé.
J'ai retiré beaucoup de code, mais cette partie fonctionne ainsi.
*****************************************************
<HTML>
<HEAD>
<BODY BGCOLOR="#fffff0">
<SCRIPT LANGUAGE="VBScript">
<!--
'=========================================
'
'
Function Main()
' Ici, le code pour récupérer le fichier texte
End Function
'
'=========================================
' Fin du traitement VBScript
</SCRIPT>
</HEAD>
<BODY onload="Main">
<H1>Client de la CIE</H1>
<BR>
Quel est le nom du client?
<FORM>
<select name="Client" size="1">
<option value="Premier" selected>M. Untel</option>
<option value="Second" selected>M. Letel</option>
<option value="Troisieme" selected>M. Matel</option>
</select>
</FORM>
</BODY>
</HTML>
*****************************************************
Il semble que je n'ai pas trouvé non plus comment insérer
dans le combo, mais peut-être que cela te donneras une piste.
Lupin
