Comment connaître le nombre de ligne dans un fichier Texte
Mettez ce code dans un Bouton_Click :
Source / Exemple :
Dim strLigne As String
Open "C:\autoexec.bat" For Input As #1
Do While Not EOF(1)
Line Input #1, strLigne
Loop
MsgBox "La dernière ligne est :" & Chr(10) & strLigne
3 déc. 2009 à 14:35
Close #f
3 déc. 2009 à 11:28
Sub NoubliPasdeFermerleFichierOuvert ()
Dim f As Integer
Open "C:\autoexec.bat" For Input As #f
... Code
Close # 'Quand on a fin de manipuler le fichier, il faut tjs le fermer.
End Sub
26 oct. 2006 à 18:12
Merci
13 janv. 2004 à 19:31
ex:
Dim strLigne As String
Dim nbligne As Integer
Open CheminFichier For Input As #1
Do While Not EOF(1)
Line Input #1, strLigne
nbligne = nbligne + 1
Loop
MsgBox "La dernière ligne est :" & Chr(10) & strLigne & Chr(13) & "Le nombres de ligne est : " & nbligne
Merci du taffe
15 mars 2003 à 12:07
Function numline(ByVal filename As String)
Dim n As Integer
Open filename For Input As #1
Do While Not EOF(1)
debut:
Line Input #1, buff
If buff = "" Then
GoTo fini
Else
n = n + 1
GoTo debut
End If
Loop
fini:
numline = n
End Function
et merci encore ;-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.