Lire toutes les lignes d'un fichier texte

Commenter

Contenu du snippet 

Option ExplicitPrivate Sub ReadAllLines(ByVal sPath As String, ByRef aLines() As String)Dim FF As IntegerDim sBuffer As String    FF = FreeFile    On Error Resume Next    Open sPath For Input As #FF        sBuffer = Input(LOF(FF), #FF)    Close #FF    aLines = Split(sBuffer, vbNewLine)End Sub' exemple d'utilisationPrivate Sub Form_Load()Dim aMesLignes() As StringDim i As Long    Me.AutoRedraw = True    Me.Show        ReadAllLines "a:\log.txt", aMesLignes    Me.Print (1 + UBound(aMesLignes)) & " lignes trouvées" & vbNewLine    For i = LBound(aMesLignes) To UBound(aMesLignes)        Me.Print aMesLignes(i)    Next iEnd Sub

Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

Du même auteur (Lutinore)