Lire une ligne précise d'un .txt

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 559 fois - Téléchargée 37 fois

Contenu du snippet

Salut à tous je suis nouveau sur le réseau et ceci est un petit code pour lire une certaine ligne (précise) d'un fichier txt et l'afficher dans un label par exemple

Source / Exemple :


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

Conclusion :


J'ai mis ce code à dispo pour les débutants surtout alors ne m'assassinez pas si il y en a d'autres qui lui ressemblent car aucun n'était précis et commenté comme celui là (enfin je pense :) )a

A voir également

Ajouter un commentaire Commentaires
Messages postés
38
Date d'inscription
mardi 1 août 2006
Statut
Membre
Dernière intervention
9 juillet 2013

Merci à Elenwa_Luva

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.
Messages postés
32
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
13 janvier 2009

ok je vais essayer ca
merci pour le code bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
bibinutz>> Créé un groupe de controle MaTextBox()
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
++
Messages postés
32
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
13 janvier 2009

salut tout le monde
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
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
lol ca faisait lgtp qu'on avais pas vu ca
Afficher les 9 commentaires

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.