VBS - contenu fichier dans combo

ultimate -  
 Utilisateur anonyme -
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

8 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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 ?

    0
  2. ultimate
     
    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 !
    0
  3. Utilisateur anonyme
     
    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
    0
  4. ultimate
     
    Cette solution plante mon application ...

    Tu n'aurais pas une autre solution svp ??

    Merci d'avance !
    0
    1. Utilisateur anonyme
       
      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
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Daniel Lévesque
     
    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
    0
  7. ultimate
     
    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 ;-)
    0
  8. Utilisateur anonyme
     
    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~
    0
  9. Utilisateur anonyme
     
    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
    0

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse