Mdeffontaines
-
23 nov. 2001 à 14:47
webzied
Messages postés9Date d'inscriptionmardi 30 octobre 2007StatutMembreDernière intervention29 novembre 2007
-
23 nov. 2007 à 13:36
Bonjour à tous,
J'aimerais extraire des informations à partir d'un fichier texte pour les réutiliser dans mon programme.
Voici ce que j'ai pour l'intstant
Open "C:\testdatei.txt" For Input As #1
Input #1, Montexte
Close
MsgBox(Montexte, 0 + 64, "Info")
Mon problème: Comment réussir à lire la deuxième ligne, ou de manière plus générale la n-ième ligne de mon texte. Cela paraît simple, mais je n'y arrive pas encore...
ajoute do while not eof() /// loop pour le faire lire jusqu'à la fin
et pour voir juste la Nieme ligne, ajoute un compteur (représenté par i=i+1) et un inputbox
dim ligne as integer
dim i as integer
ligne=inputbox("Quelle ligne")
i=0
Open "C:\testdatei.txt" For Input As #1
do while not eof(1)
i=i+1
Input #1, Montexte
if i=ligne then
montremoi = MsgBox(Montexte, 0 + 64, "Info")
close
exit sub
end if
loop
close
Le blème c'est si ton fichier comporte des virgules (le code lira ce qu'il y a après la virgule comme un nouveau record), alors si c'est le cas, remplace d'abord les virgules par autre chose...