LE NOMBRE DE LIGNE DANS UN FICHIER TEXTE
totoleheros
-
8 févr. 2001 à 14:38
thedizen Messages postés 2 Date d'inscription mardi 13 octobre 2009 Statut Membre Dernière intervention 3 décembre 2009 - 3 déc. 2009 à 14:35
thedizen Messages postés 2 Date d'inscription mardi 13 octobre 2009 Statut Membre Dernière intervention 3 décembre 2009 - 3 déc. 2009 à 14:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45-le-nombre-de-ligne-dans-un-fichier-texte
https://codes-sources.commentcamarche.net/source/45-le-nombre-de-ligne-dans-un-fichier-texte
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 ;-)
12 mars 2002 à 09:26
La tu files rien que la dernière ligne.
Vla le bon code:
function numline( byval filename as string)
dim n as integer
open filename for input as #1
do while not EOF(1)
debut:
lineinput #1,buff
if buff = "" then goto fini
else
n = n+1
goto debut
loop
fini:
numline = n
end function
2 avril 2001 à 11:01
Y faudrait qu'on puisse afficher la ligne qu'on veut plutot que la dernière!
17 mars 2001 à 22:06
nbligne = nbligne + 1
et à la fin tu met close #1
8 févr. 2001 à 14:38