Output, input txt

Résolu
Signaler
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
Bon voila! je fais un petit programme et je veux que quand la form load qui vérifie si la première ligne du TXT = Default , si c'est défaut, Alor msgbox "Allo1", si la ligne du TXT c'est Default2, Alor msgbox "Allo2" je me souviens qu’avant j'utilisais Open App.Path & "\Skin.txt" For Input As #1 mais je me souviens pu de la suite! Aidez-moi s.v.p.! Merci à l'avance

2 réponses

Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
BONJOUR également,

Tu n'es pas dispensé de rechercher il doit y avoir une floppé de source ici qui traitent (directement ou non) du sujet, sans compter l'aide de Visual Basic.

Voila un exemple :

    Dim Valeur As Variant
    Dim nomFichier As String
    Dim numFic As Integer

    numFic = FreeFile
    nomFichier = "C:\test1.doc"

    ' Open "C:\test1.doc" For Input Read Shared  As #1

    Open nomFichier For Input Shared As #numFic

    Do While Not EOF(numFic)
        Input #numFic, Valeur
        'Récupère ta valeur ici, è l'aide de la variable Valeur.
    Loop

    Close #numFic
 
PS: cet exemple vient d'un forum, j'ai mis 30 seconde à trouvé ! La prochaine fois cherche avant de poster. Merci.

Mayzz.
                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Merci beaucoup!! sa marche a merveille!