A voir également:
- VBS - contenu fichier dans combo
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir fichier .bin - Guide
8 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 685
14 févr. 2005 à 19:15
14 févr. 2005 à 19:15
bonjour
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 ?
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 !
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 !
Utilisateur anonyme
15 févr. 2005 à 17:14
15 févr. 2005 à 17:14
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
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 !
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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 ;-)
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 ;-)
Utilisateur anonyme
16 mars 2005 à 00:45
16 mars 2005 à 00:45
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~
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~
Utilisateur anonyme
16 mars 2005 à 01:12
16 mars 2005 à 01:12
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
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
