Lecture d'un fichier multiligne dans un textbox URGENT svp !!!

Question

Lut
Voila, sous VB7 je fais une petite messagerie interne &#224; la msn.
Le textbox1 sert &#224; taper son message. Avec le mode append, il enregistre celui-ci dans un fichier en sautant une ligne. Jusque l&#224;, tout va bien !
Je souhaite apr&#232;s afficher cette historique dans le textbox2.
Le probleme est que cela n'affiche que la 1ere ligne en input.
Pouvez-vous me donner une commande qui lit et affiche toutes les lignes d'un fichier,
si cette ligne n'est pas vide. 

merci d'avance

Chris

cs_Axen · Answer

salut,
j'espere que ça repondra a ta question :

Open nomfichier For Input As #1
'lecture premiere ligne dans texte
Line Input #1, texte
'écriture de la variable la ou tu veux qu'elle s'affiche
text1.text = texte
While Not EOF(1)
    'boucle jusqu'a la fin du fichier
    Line Input #1, texte
    Text1.Text = Text1.Text & vbCrLf & texte
Wend
Close #1

voila @+

cs_chris_p · Answer

Merci pour ta r&#233;ponse mais cela ne marche pas.
C'est fort possible que je me sois plant&#233;.
peux-tu me cooriger mon code stp. Ce serait trop sympa car 3 semaines que je gal&#232;re.
Code : 


'load de l'historique



Dim strmess 
As 
String


FileOpen(intnum, "\hp_panda\mess\mess.mes", OpenMode.Input)


strmess = LineInput(intnum)


TextBox1.Text = strmess


FileClose(intnum)

intnum est integer et freefile

Merci d'avance

Chris

cs_Axen · Answer

oula dslé je connais pas ce langage

mais a priori je vois pas t'as boucle de lecture "tant que pas fin de fichier"
 un truc qui te donnerais qqchose dans le genre :

'load de l'historique

Dim strmess As String

FileOpen(intnum, "\hp_panda\mess\mess.mes", OpenMode.Input)

strmess = LineInput(intnum)

TextBox1.Text = strmess

while not eof(intnum)
    strmess = strmess & vbCrLf & LineInput(intnum)
    TextBox1.Text = strmess
wend

FileClose(intnum)

sinon le truc bete qui m'est arrivé une fois c'était simplement d'avoir oublié de mettre la textBox en multiligne (TextBox1.Multiligne = True) on ne sait jamais... en tout cas dslé je connais pas du tout la syntaxe que tu utilise donc je ne pas plus t'aider que ça

courage

Lecture d'un fichier multiligne dans un textbox URGENT svp !!!

3 réponses

Discussions similaires