Lire toutes les lignes d'un fichier texte

Commenter

Contenu du snippet 

    Function GetFileContent(ByVal sPathFile As String) As List(Of String)
        Dim slRet As New List(Of String)
        Dim saLines() As String
        'si le fichier existe, on le lit au complet
        If System.IO.File.Exists(sPathFile) Then
            'on découpe d'après tant VBCR que VBLF
            saLines = System.IO.File.ReadAllText(sPathFile).Split(Environment.NewLine.ToCharArray)
            For Each sLine As String In saLines
                'puis on retourne uniquement les lignes non vides
                If sLine.Length > 0 Then slRet.Add(sLine)
            Next
        End If
        Erase saLines
        Return slRet
    End Function

Compatibilité : VB 2008

Disponible dans d'autres langages :

A voir également

Du même auteur (Lutinore)