Fonction file comme en php

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 554 fois - Téléchargée 33 fois

Contenu du snippet

Voilà la même fonction que en php la fonction file() qui consiste a mettre chaque ligne d'un fichier dans tableau

Source / Exemple :


'Code a mettre dans un module
Option Explicit
'---------------------------------
dim lignes as variant
Dim Text1    As String
'-----------------------------------
Public Function file(fichier) As Variant
Open fichier For Input As #1: Close #1
Open fichier For Binary As #1
    Text1 = String(LOF(1), 0)
    Get #1, , Text1
    Close #1
lignes = Split(Text1, vbCrLf)
    Text1 = ""
file = lignes
End Function

'code a mettre ds une form
Option Explicit
dim lignes as Variant
lignes=file("nom du fichier")
'la première ligne est zéro
msgbox lignes(0)' pour la première ligne
'---------------------
'pour afficher tte les lignes
for i=0 to Ubound(lignes)
msgbox lignes(i)
next i

Conclusion :


Voila !!!
J'ai mis sa car sa peut servir (moi j'en est besoins donc autant enfaire profiter les autres)
Si problème me contacter

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.