Discussion :

[marieo]

Bonjour à tous,

Je cherche un moyen de relire la première ligne d'un fichier txt après avoir compté le nombre de lignes de ce même fichier .txt

Voici le code que j'ai écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
option explicit
 
Public Function CompteLigne(Fichier as integer) As Integer
   Dim Texte As String 
   Dim NbLignes As Integer 
   While Not EOF(fichier)
      Line Input #Fichier, Texte
      NbLignes = NbLignes + 1
   Wend
   CompteLigne = NbLignes
End Function
 
Private Sub Command1_Click()
   Dim Lignes as Integer
   Dim h as integer
   h=freefile
   open "c:\fichier.txt" for input as #h
 ' compte le nombre de lignes dans le fichier
   Lignes = CompteLigne(h)
 ' relit la première ligne du fichier 
   '?????????????????????????????
 
  'ferme le fichier
  close #h
End sub

Merci à tous pour l'aide.

MarieO

[LeForestier]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
option explicit
 
Public Function CompteLigne(Fichier as integer) As Integer
   Dim Texte As String 
   Dim NbLignes As Integer 
   While Not EOF(fichier)
      Line Input #Fichier, Texte
      NbLignes = NbLignes + 1
   Wend
   CompteLigne = NbLignes
End Function

Si tu ne veux que la 1ère ligne une variable suffit, si toutes les lignes doivent êtres reprises il faut un tableau...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
option explicit
Dim TxtLignes()
Public Function CompteLigne(Fichier as integer) As Integer
   Dim Texte As String 
   Dim NbLignes As Integer 
   dim i as integer
   While Not EOF(fichier)
      Line Input #Fichier, Texte
      redim Preserve TxtLignes(i)
      TxtLignes(i) = Texte
      i = i + 1
      NbLignes = NbLignes + 1
   Wend
   CompteLigne = NbLignes
End Function
Private Sub Command1_Click()
   Dim Lignes as Integer
   Dim h as integer
dim a$
   h=freefile
   open "c:\fichier.txt" for input as #h
 ' compte le nombre de lignes dans le fichier
   Lignes = CompteLigne(h)
 ' relit la première ligne du fichier 
   a$ = TxtLignes(0)
 
  'ferme le fichier
  close #h
End sub

J'ai mis l'exemple avec toutes les lignes.
A+
EDIT:
tu peu aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 h=freefile
   open "c:\fichier.txt" for input as #h
 ' compte le nombre de lignes dans le fichier
   Lignes = CompteLigne(h)
      ' relit la première ligne du fichier 
      close #h
      open "c:\fichier.txt" for input as #h
      Line Input #Fichier, Texte
      a$ = Texte
  'ferme le fichier
  close #h

[marieo]

Merci beaucoup,

C'est exactement ce que je veux faire.

MarieO

Juste une petite question, à quoi sert le $ après a$ ?

[ThierryAIM]

le $ est une ancienne convention de typage de variable, qu'il est préférable de ne plus utiliser (je sais, les vielles habitudes sont tenaces )

Dim a$
est équivalent à
Dim A As String

mais il n'existe pas de symbole pour tous les types de variables

Juste pour info, en complément à la question initiale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Const ForReading = 1, ForWriting = 2
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\test1.txt", ForReading)
  ts = f.ReadAll '-- Lit la totalité du fichier
  MsgBox f.Line    '-- Récupère le nombre de lignes
  Set f = Nothing
  Set oFso = Nothing

[Vld44]

J'ajoute que le fait d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ma_variable

tout court, sans type défini, a pour conséquence d'affecter par défaut un type "Variant"

Cela implique une perte de performances assez notable dès lors qu'on manipule la variable de façon répétée.