Bonjour à tous,

Malgré des recherches sur internet je n'ai pas trouvé la solution précise à mon problème à priori simple.

Je souhaite compter le nombre de ligne d'un fichier texte (cette partie fonctionne correctement) mais le problème c'est qu'il arrive qu'il y ait quelques lignes vides dans le fichier.

Ma question est donc de savoir comment supprimer ces lignes vide avant de compter les lignes du fichier.

Voici mon code actuel pour compter les lignes, dans lequel il faudrait ajouter la suppression des lignes vides.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim nombre_ligne As Integer
nombre_ligne = 0
 
Dim lines() As String = File.ReadAllLines(Dts.Variables.Item("mon_fichier_text").Value.ToString())
 
Dim reader As New StreamReader(Dts.Variables.Item("mon_fichier_text").Value.ToString())
 
            For Each line As String In lines
                nombre_ligne = nombre_ligne + 1
            Next
            reader.Close()
Merci d'avance pour votre aide.