WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteur en ligne

Où ça, qui ça?
Utiliser les fichiers - Les fichiers RTF

OUVRIR, MODIFIER, ENREGISTRER UN FICHIER RTF

 


 

rtffile.png


Bonjour,

Aujourd'hui nous allons ouvrir un fichier RTF, le format de fichier texte enrichi , nous allons modifier un texte "aaaaaa" et nous allons le refermer.

Pour cet exemple, nous ferons une petite application qui :

1)ouvrira le fichier RTF au moyen d'une boite de dialogue et copira le contenu du fichier dans une texarea par le code :

PUBLIC SUB bopen_Click()
Dialog.Filter = ["*.rtf", "Fichiers RTF", ".RTF", "Fichiers RTF"]
Dialog.Title = "Ouvrir unfichier"
Dialog.Path = Application.Path
IF Dialog.OpenFile() THEN RETURN
TextArea1.Text = File.Load(Dialog.Path)
END


2) vous saisirez alors votre nom dans une textbox et l'occurence "aaaaaa" dans notre fichier sera remplacée au moyen de ce code:

PUBLIC SUB bedit_Click()
TextArea1.Text = Replace$(TextArea1.Text, "aaaaaa", TextBox1.Text)
END




3)Le nouveau fichier RTF s'enregistrera sous le nom newfile.rtf dans le repertoire de l'application par ce code :

PUBLIC SUB bsave_Click()
DIM fichier2 AS File
fichier2 = OPEN Application.Path & "/mynewfile.rtf" FOR CREATE  
PRINT #fichier2, TextArea1.Text
CLOSE #fichier2
Message.Info("Allez dans le repertoire de l'application, un nouveau fichier mynewfile.rtf est créé, le texte est remplacé. CQFD")
Message.Info("Explore the application path directory. a new file mynewfile.rtf is created.The text is replaced.Yeah!")
END


Ouvrons maintenant le nouveau fichier et le texte est bien remplacé, la mise en page n'est pas perdue, et le fichier n'est pas corrompu.
CQFD !
Merci de votre attention.


Date de création : 30/12/2011 @ 11:30
Dernière modification : 30/12/2011 @ 11:32
Catégorie : Utiliser les fichiers
Page lue 2579 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^