Obtenir le nombre de ligne d'un fichier texte en .net
Résolu
SAXOBIC
Messages postés
30
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
1 février 2007
-
13 sept. 2006 à 13:19
SAXOBIC Messages postés 30 Date d'inscription mercredi 21 janvier 2004 Statut Membre Dernière intervention 1 février 2007 - 17 sept. 2006 à 16:56
SAXOBIC Messages postés 30 Date d'inscription mercredi 21 janvier 2004 Statut Membre Dernière intervention 1 février 2007 - 17 sept. 2006 à 16:56
2 réponses
Utilisateur anonyme
13 sept. 2006 à 15:08
13 sept. 2006 à 15:08
Salut,
Il n'y a pas de fonction toute faite, donc un bour de code :
Dim
NbLine
As
Integer
= 0
Dim
Sr
As
System.IO.StreamReader =
New
System.IO.StreamReader(
"Chemin\De\Ton\Fichier.txt"
)
While
Not
Sr.EndOfStream
Sr.ReadLine()
NbLine += 1
End
While
Kenji
Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait tellement plaisir ainsi qu'a nous. Merci.
Ca sent le sondage sur ce lien
Il n'y a pas de fonction toute faite, donc un bour de code :
Dim
NbLine
As
Integer
= 0
Dim
Sr
As
System.IO.StreamReader =
New
System.IO.StreamReader(
"Chemin\De\Ton\Fichier.txt"
)
While
Not
Sr.EndOfStream
Sr.ReadLine()
NbLine += 1
End
While
Kenji
Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait tellement plaisir ainsi qu'a nous. Merci.
Ca sent le sondage sur ce lien
SAXOBIC
Messages postés
30
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
1 février 2007
17 sept. 2006 à 16:56
17 sept. 2006 à 16:56
Merci kenji c'était simple finalement !!!!
j'me suis fait une ptite fonction avec ton code :
Public
Function
NbLinesInFile(
ByVal
FilePath
As
String
)
As
Integer
Dim
NbLine
As
Integer
= 0
Dim
Sr
As
System.IO.StreamReader =
New
System.IO.StreamReader(FilePath)
While
Not
Sr.EndOfStreamSr.ReadLine()
NbLine += 1
End
While
Sr.Close()
Return
NbLine
End
Function
j'me suis fait une ptite fonction avec ton code :
Public
Function
NbLinesInFile(
ByVal
FilePath
As
String
)
As
Integer
Dim
NbLine
As
Integer
= 0
Dim
Sr
As
System.IO.StreamReader =
New
System.IO.StreamReader(FilePath)
While
Not
Sr.EndOfStreamSr.ReadLine()
NbLine += 1
End
While
Sr.Close()
Return
NbLine
End
Function