Lire un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 973 fois - Téléchargée 71 fois

Contenu du snippet

Voici une fonction permettant de lire des fichiers texte

Source / Exemple :


Function Lit_TXT()
    Const Lecture = 1
    Dim fso, Fichier_TXT
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Fichier_TXT = fso.OpenTextFile("c:\fichier.txt", Lecture)
	Fichier_TXT.ReadLine
End Function

A voir également

Ajouter un commentaire

Commentaires

cs_theghostwolf
Messages postés
3
Date d'inscription
lundi 6 juillet 2009
Statut
Membre
Dernière intervention
6 octobre 2009
-
eviter la complexite
BobBigBoss
Messages postés
18
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
29 juin 2011
-
Je me demandais effectivement si on était dans la partie API !
Il faudrait comme même que tu précise qu'il faut mettre une boucle qui lit toutes les lignes jusqu'à la fin du fichier texte (EOF) !
En tous cas je trouve que le FSO est plus simple que le Open habituel, et que c'est très pratique quand on crée un grand projet.
leneuf22
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
hem, c'est bien, mais c'est lourd comme code (fso quand on peut, il faut éviter à tout prix)
Surtout quand on peut remplacer par Line Input, qui est inclus dans VB :

dim Fichier as long, strVar(1) as string
Fichier = FreeFile
Open machin.txt for input as #Fichier
line input #Fichier, strVar(0)
line input #Fichier, strVar(1)
close #Fichier

En plus ça n'a rien à faire dans la partie API.
lolokill666
Messages postés
28
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
14 août 2002
-
ca manque de commentaire

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.