Lire un fichier texte à partir d'une certaine ligne

Question

Salut, voila mon probleme, je souhaiterais lire un fichier texte à partir d'une ligne X. 
J'ai recherché ds le forum mais j'ai pas trouvé mon bonheur. 


 

Dim f As Integer 
Dim lig As Integer 

lig = 0 

Open "c:\ED.txt" For Input As #1 

While Not EOF(1) 

Line Input #1, var 

    lig = lig + 1 

Wend 

Close #1 

mess = MsgBox(lig) 

 

Ce que je fais ici c'est lire le nombre de ligne du fichier, et now je voudrais, en sachant ce nombre le lire à partir de la ligne 22 par exemple. 



Dim var As String 
Dim strTab() As String 
Open "c:	est3.txt " For Input As #1 'Ouverture en lecture seule du fichier texte 

Do While (EOF(1) = False)  'Tant que le fichier n'est pas lu en entier 

            Line Input #1, var 
            strTab = Split(var, ",") 'delimite les colonnes qui sont separée par des virgules 
                For j = 0 To UBound(strTab) Step 1     'Parcourt les colonnes 
                    tableau.Col = j 
                    tableau.Text = strTab(j) 
                Next j 
   On Error Resume Next 
   tableau.Row = tableau.Row + 1 'Parcourt les lignes 
    
Loop 
 


Ceci ecrit le contenu du texte dans un tableau. 

J'avais pensé à un truc genre 



Open "c:\ED.txt" For Input As #1

for i =21 to EOF(1)
Line Input #1, var
...
next i

Close #1



Mais ca ne fonctione pas.

Merci d'avance

crenaud76 · Answer

Pour lire la Xieme ligne du fichier, tu fais ca :

Function LireLigne(ByVal Fic as String, byval Xas long) as String
Dim Fn as Long,L as string

Fn = Freefile
Open Fic for input as #Fn
While not (Eof(Fn) Or X = 0)
  X = X -1
  Line input #Fn, L
Wend
Close #Fnif X 0 Then LireLigne L Else Err.Raise vbObjectError+1000,"Pas assez de ligne"
End Function

Cette fonction (appel avec le nom du fichier et le Num de ligne a lire) te renvoie la ligne en question et génère une erreur s'il n'ty a pas assez de ligne dans le fichier

Christophe R.

crocmorts · Answer

Merci bcp, je vais essayer ca demain matin, et je te dirais quoi.

crocmorts · Answer

Ca fonctionne vraiment bien. merci

hmdola · Answer

bonsoir, est-ce-que me donnée ce code en java .
puisque j'ai un problème du lecture d'un fichier texte a partir d'un ligne précise par l&#8217;utilisateur 
ET merci 
[size=300]
/size

ucfoutu · Answer

Bonjour,
va donc sur le forum dédié à java !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

hmdola · Answer

je n'trouve pas dans le forum est-ce-que me donnée exacte le lien ?
puisque je suis urgent 
et merci

acive · Answer

Bonjour,
Visual Basic & VB.NET > Archives Visual Basic > VBA 
Tu développes ce bout de code dans une macro VBA ou dans une form en vb.net?

Si c'est en vb.net toutes ces méthodes sont obsolètes.

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

hmdola · Answer

est -ce que c'est possible de données le code en java

acive · Answer

Oui... pour la deuxième fois qu'on te le dit...
Pose ta question ICI


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Lire un fichier texte à partir d'une certaine ligne

9 réponses

Discussions similaires