RTF en TXT ??

Question

salut

je voudrais savoir si c posible de passer du RTF en simple TXT ?

en fait je voudrais sauvegarder le contenu d'un TextBox au format TXT simplement.
comme je suis pas arrivé à avoir la fenêtre qui me propose de l'enregistré ou je voulais, je me suis tourné vers un RichTextBox et la j'ai trouvé comment faire. (grace au .SaveFile qui est proposé et qui n'est pas dans un TextBox)

v'la mon code:

je fais basculé mon TextBox vers le RichBox:
RichTextBox1.Text = Text1.Text

-j'indique le filtre
CommonDialog1.Filter = "Fichier Texte (*.txt)|*.txt|Tout les fichiers (*.*)|*.*"
-je fais voir la fenêtre de sauvegarde
CommonDialog1.ShowSave
-je sauvegarde ce qui ce trouve dans mon RichTextBox
RichTextBox1.SaveFile (CommonDialog1.Filename)

avec ce code j'ai donc bien ma fenêtre qui s'ouvre, mais le format interne du fichier à la sortie reste en luis meme un rtf.

ya pas un truc pour faire la même chose mais en TXT ?

cs_DARKSIDIOUS · Answer

Si l'inverse :

Text1.text = RichTextBox1.text

Puis :

Open NOMDUFICHIER for output as #1

Print #1, Text1.text

Close #1

DARK SIDIOUS

cs_Nestor · Answer

oui sa coule de source, mais ou est ma fenetre du CommonDialog ?

cs_DARKSIDIOUS · Answer

Ah excuse, la voilà :

Text1.text = RichTextBox1.text

CommonDialog1.Filter = "Fichier Texte (*.txt)|*.txt|Tout les fichiers (*.*)|*.*"

'je fais voir la fenêtre de sauvegarde

CommonDialog1.ShowSave

 Open CommonDialog1.filename for output as #1

 Print #1, Text1.text

 Close #1

DARK SIDIOUS

cs_Nestor · Answer

ahhhh bé voila !!!!

lol, la solution été sous mes yeux

Maintenant il me reste kor un pb
si je décide d'annuler l'enregistrement, vb6 me sort l'erreur 75
Erreur dans le chemin

merci za toi

cs_DARKSIDIOUS · Answer

Pour ton erreur y a pas de problème :

if err.number = 75 then
Resume next
end if

De rien ;-)

DARK SIDIOUS

cs_Nestor · Answer

parfait, que tout le monde profite de ce code.

 8-) 

If err.Number = 75 Then
Open cd1.FileName For Output As #1
Print #1, Text1.Text
Close #1
Resume Next
End If

cs_Nestor · Answer

g kor un pb, chui pas arrivé à placer ton "if then"

RTF en TXT ??

7 réponses

Discussions similaires