Nb de lignesRésolu

Question

existe-t-il une fonction permettant d'obtenir le nombre de ligne d'un fichier text.txt ?
d'avance merci, même si la réponse est "non" :))

drikce06 · Accepted Answer

Normalement oui, il y a aucun problème, je dirai même que c'est sur, c'est possible.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Google is my friend:

http://ooo.developpez.com/faq/?page=FichierTexte,

----

 





 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Salut,
Autre possibilité:
Option Explicit

Private Sub Form_Load()
   MsgBox GetNumLignes("C:\TraceAutomate.txt")
   
End Sub<hr />
Private Function GetNumLignes(ByVal Fichier As String) As Long
Dim NumFile As Integer
Dim Contenu As String
NumFile = FreeFile
   'Récupère le contenu entier du fichier
   Open Fichier For Binary As NumFile
   Contenu = String(LOF(NumFile), 0)
   Get #NumFile, , Contenu
   Close #NumFile
   GetNumLignes = UBound(Split(Contenu, vbCrLf)) + 1

End Function , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Nb de lignes

3 réponses

Votre réponse

Discussions similaires