Output, input txtRésolu

Question

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

Mayzz · Accepted Answer

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:	est1.doc"

    ' Open "C:	est1.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.

rsx602 · Answer

Merci beaucoup!! sa marche a merveille!

Output, input txt

2 réponses

Votre réponse

Discussions similaires