Lire une ligne spécifiée (par son N°) dans un fichier texte
Xaxa BN -
16 déc. 2015 à 15:16 - Dernière réponse :
ucfoutu
Modérateur Dernière intervention
11 avril 2018
- 16 déc. 2015 à 17:35
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Vb6 line input
- Lof vb6 - Meilleures réponses
- Ne pas lire une ligne lors de la lecture d'un fichier ✓ - Forum - C / C++ / C++.NET
- VB.Net Effacer un ligne dans un Tableau et dans un Fichier texte ✓ - Forum - PDA
- Lire un fichier texte ligne par ligne et le mettre dans un texte box - Codes sources - Visual Basic / VB.NET (Texte)
- Lire une ligne de fichier type texte (méthode simple) - Codes sources - C / C++ / C++.NET (Fichiers / Disque)
- Lire une ligne précise d'un .txt - Codes sources - Visual Basic / VB.NET (Texte)
7 réponses
- Messages postés
- 3
- Date d'inscription
- mercredi 16 décembre 2015
- Dernière intervention
- 16 décembre 2015
Private Sub lire_Click()
Dim i As Integer
Dim TextLine As String
Dim line1, line2, line3 As String
Open "\\-BUREAU-\Dossiers Stagiaires\2015 \Jeu de la Roulette.txt" For Input As #1
Line Input #1, TextLine 'Met la ligne dans la variable.
Text2.Text = TextLine 'Ajoute la ligne dans le textbox
End Sub
En fait ce code me permet de lire dans un fichier texte mais je souhaiterais uniquement lire la deuième ligne comment faire ?
Dim i As Integer
Dim TextLine As String
Dim line1, line2, line3 As String
Open "\\-BUREAU-\Dossiers Stagiaires\2015 \Jeu de la Roulette.txt" For Input As #1
Line Input #1, TextLine 'Met la ligne dans la variable.
Text2.Text = TextLine 'Ajoute la ligne dans le textbox
End Sub
En fait ce code me permet de lire dans un fichier texte mais je souhaiterais uniquement lire la deuième ligne comment faire ?
OK alors c'est simple, il suffit d'ignorer la ligne 1 , comme ceci:
Private Sub lire_Click()
Dim i As Integer
Dim TextLine As String
Dim line1, line2, line3 As String
Open "\\-BUREAU-\Dossiers Stagiaires\2015 \Jeu de la Roulette.txt" For Input As #1
Line Input #1, TextLine 'ignorer lecture ligne 1
'lecture ligne 2
Line Input #1, TextLine 'Met la ligne dans la variable.
Text2.Text = TextLine 'Ajoute la ligne dans le textbox
Close 'fermeture fichier
End Sub
Private Sub lire_Click()
Dim i As Integer
Dim TextLine As String
Dim line1, line2, line3 As String
Open "\\-BUREAU-\Dossiers Stagiaires\2015 \Jeu de la Roulette.txt" For Input As #1
Line Input #1, TextLine 'ignorer lecture ligne 1
'lecture ligne 2
Line Input #1, TextLine 'Met la ligne dans la variable.
Text2.Text = TextLine 'Ajoute la ligne dans le textbox
Close 'fermeture fichier
End Sub
- Messages postés
- 3
- Date d'inscription
- mercredi 16 décembre 2015
- Dernière intervention
- 16 décembre 2015
- Messages postés
- 3
- Date d'inscription
- mercredi 16 décembre 2015
- Dernière intervention
- 16 décembre 2015
Dans un fichier séquentiel (c'est le cas pour un fichier texte), on ne peut pas choisir la ligne, ou plutôt on ne peut pas aller à la ligne choisie du premier coup.
Par exemple, si on veut lire la ligne 10, on est obligé de lire les 9 premières avant, mais on n'est pas obligé de les traiter.
exemple avec une boucle for next:
Sinon il faut passer par un fichier à accès direct (type Random), mais ça c'est une autre histoire.
Par exemple, si on veut lire la ligne 10, on est obligé de lire les 9 premières avant, mais on n'est pas obligé de les traiter.
exemple avec une boucle for next:
Open "\\-BUREAU-\Dossiers Stagiaires\2015 \Jeu de la Roulette.txt" For Input As #1
'je veux la ligne 10
for i = 1 to 9
Line Input #1, TextLine 'ignorer
next
'ligne 10
Line Input #1, TextLine
Text2.Text = TextLine 'Ajoute la ligne dans le textbox
Sinon il faut passer par un fichier à accès direct (type Random), mais ça c'est une autre histoire.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
1) j'ai modifié le titre de cette discussion ("Problèmes VB6" ne révèle en rien la nature de la difficulté traitée ! Lire les règles de ce forum à ce sujet)
2) la réponse donnée par Mosca, que je salue, est tout-à-fait correcte.
Si toutefois ton appli est amenée à lire fréquemment telle ou telle autre ligne de ce fichier, il pourra être plus astucieux de prévoir une petite fonction, genre :
Appelable part exemple ainsi :
pour lire la ligne 3 du fichier D:\la.txt
Tu pourrais même gagner encore en vitesse en mettant dans une variable générale toto ( avec toto = Split(le_tout, vbNewLine) ) l'array résultant de l'éclatement du fichier. Cela pourrait être fait au chargement de l'appli.
Il te suffirait ensuite d'utiliser toto(0) pour la ligne 1, toto(8) pour la ligne 9, etc ...
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
1) j'ai modifié le titre de cette discussion ("Problèmes VB6" ne révèle en rien la nature de la difficulté traitée ! Lire les règles de ce forum à ce sujet)
2) la réponse donnée par Mosca, que je salue, est tout-à-fait correcte.
Si toutefois ton appli est amenée à lire fréquemment telle ou telle autre ligne de ce fichier, il pourra être plus astucieux de prévoir une petite fonction, genre :
Private Function lire_ligne(fic As String, ligne As Long) As String
Open fic For Input As #1
le_tout = Input$(LOF(1), 1)
Close #1
lire_ligne = Split(le_tout, vbNewLine)(ligne - 1)
End Function
Appelable part exemple ainsi :
MsgBox lire_ligne("D:\la.txt", 3)
pour lire la ligne 3 du fichier D:\la.txt
Tu pourrais même gagner encore en vitesse en mettant dans une variable générale toto ( avec toto = Split(le_tout, vbNewLine) ) l'array résultant de l'éclatement du fichier. Cela pourrait être fait au chargement de l'appli.
Il te suffirait ensuite d'utiliser toto(0) pour la ligne 1, toto(8) pour la ligne 9, etc ...
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
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.