Comment conserver els attributs dans un fichier txt ???

Bonjour,

En mettant un texte dans un objet txt j'ai mes attributs de saut de
ligne, mais si j'enregistre ce texte c'est toujours bon, par contre je perds
les attributs lors du réaffichage venant du fichier, j'ai dû omettre quelque
chose (procédure "lit"), voici le code, avez-vous une idée ???


Option Explicit
Dim p1601 As Long
Dim ligne As String
Dim faute As Boolean
'
Sub Form_Activate()
faute = False
Call lit
If faute = False Then Exit Sub
' création
Text1 = "FRA" & vbCrLf & vbCrLf
Text1 = Text1 & "ANG" & vbCrLf & vbCrLf
Text1 = Text1 & "ESP" & vbCrLf & vbCrLf ' LA C EST OK DANS TEXT1
faute = False
Call ecrit
Call lit
End Sub

Sub lit() ' LA EST L ERREUR JE PERDS LES ATTRIBUTS !!!
Text1 = ""
p1601 = FreeFile
On Error GoTo erreur
Open "tarotobs.txt" For Input As p1601
Do While EOF(p1601) = False
If EOF(p1601) = True Then Exit Do
Line Input #p1601, ligne
Text1 = Text1 & ligne
Loop
Close p1601
Exit Sub
'
erreur: ' inexistant
faute = True
Close p1601
On Error Resume Next
End Sub

Sub ecrit()
p1601 = FreeFile
Open "tarotobs.txt" For Output As p1601
ligne = Text1
Print #p1601, ligne
Close p1601
End Sub

Sub m_enregistrer_Click() 'menu
Dim rep
'
rep = ""
rep = MsgBox("Enregistrer : To record : Grabar", vbYesNo +
vbDefaultButton2 + vbQuestion)
If rep <> vbYes Then Exit Sub
Call ecrit
End Sub

Sub Form_Unload(Cancel As Integer)
Form1.Show
End Sub


--
Merci beaucoup, au revoir et à bientôt :o)
------
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur de MES ROMANS édités
http://irolog.free.fr/romans
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------