Fichier texte et msgbox
cs_tari
Messages postés
34
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
29 avril 2005
-
15 avril 2004 à 17:40
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 15 avril 2004 à 18:42
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 15 avril 2004 à 18:42
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
15 avril 2004 à 18:24
15 avril 2004 à 18:24
Salut tari
En fait, il te faut deux étapes : Lire le fichier, et lancer le MsgBox
Avant, sache que la taille du texte affiché dans un MsgBox est limité (je ne sais plus à combien de caratères)
Pour lire un fichier texte, deux méthodes :
-1- Lecture en une seule passe :
-2- Lecture ligne par ligne :
(vous êtes pas gâtés sur vbfrance ?)
Vala
Jack
En fait, il te faut deux étapes : Lire le fichier, et lancer le MsgBox
Avant, sache que la taille du texte affiché dans un MsgBox est limité (je ne sais plus à combien de caratères)
Pour lire un fichier texte, deux méthodes :
-1- Lecture en une seule passe :
Dim Temp As String, r As Long
Open "MonFichier.txt" For Binary Access Read As #1
r = FileLen("MonFichier")
Temp = String(r, " ")
Get #1,, Temp
Close #1
MsgBox Temp
-2- Lecture ligne par ligne :
Dim Temp As String, Ligne As String Open "MonFichier.txt" For Input As #1 Do While Not Eof(#1) Line Input #1, Ligne Temp = Temp & Ligne & vbCrLf Loop Close #1 MsgBox Temp
(vous êtes pas gâtés sur vbfrance ?)
Vala
Jack
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
15 avril 2004 à 18:42
15 avril 2004 à 18:42
... ou encore
Limite : environ 1024 caractères
Dim Temp As String Open "MonFichier.txt" For Input As #1 Temp = Input(LOF(1), 1) Close 1 MsgBox Temp
Limite : environ 1024 caractères