Compter les enregistrements d'un fichier texte

cs_eren Messages postés 38 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 27 novembre 2008 - 2 févr. 2003 à 09:40
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 2 févr. 2003 à 11:30
Bonjour,
Je souhaite compter le nombre d'enregistrements dans un fichier texte avant d'effectuer d'autres opérations
Hormis ce qui suit :
Do While Not EOF(2)
Line Input #2, CONTENU_LIGNE
j = j + 1
Loop
Close 2

Existe t'il une fonction qui dès que l'on ouvre un fichier, peut renvoyer le nb d'enrregistrement

1 réponse

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 2
2 févr. 2003 à 11:30
Si tes enregistrements ont tous les mêmes tailles, alors il te suffit de récupérer la taille de ton fichier et la diviser par celle d'un enregistrement...

Type Enregistrement
Nom As String * 25
Prénom As String * 10
DateNaissance As Date
End Type

Function NbreEnregistrements() As Integer
NbreEnregistrements = Len(NomFichier) / Len(Enregistrement)
End Function
0
Rejoignez-nous