Lecture de fichier avec peek - pbl de boucle

Question

Bonjour, 

Je lis un fichier avec le code suivant

Dim sr As New StreamReader(Chemin & "\" & selection)        Do Until sr.Peek = -1            i = 1            Do Until i = 15                ligne = sr.ReadLine()                Ar(i) = ligne                i = i + 1            Loop        Loop

Les lignes de 1  à 15 sont stockées dans un tableau.
Mon probleme est que la boucle' do until i = 15 n'est pas reconnue ce qui ne me permet pas de récupérer les lignes que je souhaite.

Sauriez-vous pourquoi ?

ucfoutu · Answer

Bonjour,
Je ne comprends pas la nécessite de la seconde boucle, si tu ne veux lire que les 15 premières lignes. Lis-les donc une par une (en incrémentant i) et arrête lorsque i = 15.

collargol123 · Answer

J'ai supprimé la premiere boucle

 Do Until sr.Peek = -1...        Loop

cs_ShayW · Answer

Bonjour
Explique ce que tu veux faire

collargol123 · Answer

en fait je veux récupérer certaines données de chaque ligne et les mettres dans un tableau pour les exploiter par la suite

cs_ShayW · Answer

certaines données de chaque ligne

c'est quel genre de fichier ?

collargol123 · Answer

Bonjour,

C'est un fichier .txt et donc chaque ligne contient du texte (qq mots).
Je souhaite donc récuperer les mots de certaines lignes (ex la ligne 2 , puis 4 ) entre les lignes 1 et 15.

D'ou le code :

Dim sr As New StreamReader(Chemin & "\" & selection)        Do Until sr.Peek = -1            i = 1            Do Until i = 15                ligne = sr.ReadLine()                Ar(i) = ligne                i = i + 1            Loop        Loop

la 1re boucle Do Until sr.Peek = -1 ne fonctionne pas. Lorsque i arrive 15, i est réinialisé à 0 et c'est reparti jusq'à la derniere ligne du fichier. Et donc dans mon tablau ce n'est pas les bonnes données qui sont stockées.

J'ai donc supprimé cette première boucle ce qui me permet de récupérer les bonnes données. 

Sur le principe, je ne comprend pas pourquoi cette 1ere boucle ne fonctionne pas.

cs_ShayW · Answer

D'abord il faut employer les termes exactes
chaque ligne de ton fichier text est un string qui se termine par deux caractères cr lf ce ne sont pas quelques mots (bien que tu interprètes ainsi )

Je souhaite donc récuperer les mots de certaines lignes (ex la ligne 2 , puis 4 ) entre les lignes 1 et 15. 

Quel interet de dire que la ligne 2 se trouve entre 1 et 15 ?

tout simplement

private ar as new list(of string)private sub ReadFile(path as string)  try      ar = System.IO.File.ReadAllLines(path).ToList   Catch ex As Exception            'en cas d'exception affiche l'erreur             MessageBox.Show(ex.Message)  End Tryend sub

après fais ce que tu veux avec ar
'ar(0) représente la premiere ligne de ton fichier
'ar(ar.count -1) est la derniere ligne de ton fichier
dim ligne as stringligne = ar(ar.count -1)

Bonjour Ucfoutu
Ou as tu mis ta boule de cristalle ?

collargol123 · Answer

Et si mon fichier txt contient par exemple plus de 100 lignes, et que l'on doit mettre toutes les lignes dans un tableau, est ce que cela ne va pas prendre trop de temps ?

Dim Chaine As String        Dim Ar(15) As String        Dim ligne As String        Dim i As Integer        Dim selection As String        selection = HPRIMfile.SelectedItem        Dim sr As New StreamReader(Chemin & "\" & selection & ".txt")        'While sr.Peek <> -1        i = 1        Do Until i = 15            ligne = sr.ReadLine            Ar(i) = ligne            i = i + 1        Loop        'End While        sr.Close()        bou = UCase(Ar(2))        bii = StrConv(Ar(3), vbProperCase)        baa = Ar(7)         Dada = Ar(10) 


J'au supprimer la boucle, j'ai pu ainsi recuperer les données.

Lecture de fichier avec peek - pbl de boucle

8 réponses

Votre réponse

Discussions similaires