Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 520 fois - Téléchargée 36 fois
Open "C:/bidule.txt" For Input As #1 'ouvre le txt i = 0 'déclare i ki representera le numero de la ligne Do Until EOF(1) 'avant EOF (=la fin du fichier) : Line Input #1, texte 'on met la valeur texte = la ligne i = i + 1 'augmenter i de 1 ce ki symboliz la ligne 1 et au loop suivant la 2 etc... 'on lit la ligne 2 et non la 1 grace au code do until eof(1) If i = 2 Then Label1.Caption = texte: Close: Exit Sub 'si i = 2 donc ligne 2 alors on mark dans le label '------------------------------------------------------------------------ 'IL Y A DONC JUSTE A CHANGER LE NOM DU FICHIER ET LA VALEUR DE I DANS LA DERNIERE LIGNE DE CODE ci dessus '-------------------------------------------------------------------------- Loop 'recomencer
Certains on peut être la prétention de juger ce petit bout de code come une plaisenterie mais je pense qu'ils ont oublié qu'ils ont commencé avec rien comme tout le monde !
En ce qui me concerne, je débute et ce genre de petite astuce me sert à apprendre, a comprendre certains mecanismes et à me "faire les dents".
Ces petits bouts de codes en apparence naîve sont de surcroît très bien commentés. Alors s'il vous plaît messieurs les programmateurs confirmés ne découragez pas des membres comme Elenwa_Luva. Gardez vos commentaires scabreux qui ne font que polluer les forums !
Merci.
merci pour le code bouv
Puis
Dim i As Integer
Dim Temp As String
Open MonFichier For Input as #1
Do While Not EOF(1)
i = i + 1
LineInput #1, Temp
MaTextBox(i).Text = Temp
Loop
Close #1
Bonne prog
++
mon probleme à moi est que je voudrais tester un fichier texte contenant plusieurs données les unes en dessous des autres afin de les afficher dans plusieurs txtbox.
par exemple ligne 1 = 12 je met la valeur 12 dans ma textbox1
ligne 2 =13 je met 13 dans la textbox2
et ainsi de suite
merci de votre attention
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.