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
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.