Ouvrir un fichier text

jim462 Messages postés 23 Date d'inscription samedi 22 septembre 2001 Statut Membre Dernière intervention 22 novembre 2008 - 4 janv. 2003 à 20:52
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 5 janv. 2003 à 22:21
J'éssaye de créer un editeur de texte comme le bloc note de windows mais avec plus de fonctions. J'arrive sans problème à enregistrer dans un fichier mais pas à en ouvrir un pour le copier dans un objet "Text" car comme je le fait, il met tout à la suite sans mise à la ligne.
Commant faire. SVP

Jim462

4 réponses

Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
4 janv. 2003 à 21:16
regarde si ton textbox est multiline et both pour les scroll bar
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
4 janv. 2003 à 21:27
Il faut également que tu charge ton fichier ligne par ligne avec
Line Input

DARK SIDIOUS
0
pi7438 Messages postés 94 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 16 avril 2004
5 janv. 2003 à 12:18
il faut que tu lise ton fichier text comme ceci:

dim tout as string
dim lecture as string

open "tonfichier.txt" for input as #1

while not eof(1) 'tant que ce n'est pas la fin du fichier

line input #1, lecture 'on lit la ligne

tout= tout & lecture & vbcrlf ' puis on met tout dans la variable tout et on rajoutte vbcrlf pout le retour a la ligne.

wend

close #1

text1.text=tout

ce n'es pas plus copliqué que ca.
a++
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
5 janv. 2003 à 22:21
Ou bien :

Dim c As String * 1
Open "c:\essai.txt" For Random As #1 Len = 1
For i = 1 To LOF(1)
Get 1, i, c
Text1.Text = Text1.Text & c
Next i
Close 1

Les Chr(10) et Chr(13) sont pris en compte (retours à la ligne) si ta TextBox est avec MultiLine = True
0
Rejoignez-nous