Discussion :

[Perl53]

Bonjour,

Je voudrais savoir comment enregistrer du texte avec des modifications telle la police ou la taille car je veut faire un traitement de texte

Merci

[djibril]

En définissant le font par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-font => "{Century Gothic TrueType} 10 {normal}"

Regarde Tk::options et font

[Perl53]

mais le problème c'est que quand j'enregistre avec GetOpenFile le fichier obtenu n'a pas gardé les modifs de police ou de taille

[djibril]

J'ai pas bien compris.
Tu utilises GetOpenFile pour enregistrer un fichier et tu souhaiterais afficher le contenu de ce fichier dans une fenetre TK en gardant la police du fichier? Si c'est ça, c'est pas possible car Tk sera impossible de trouver la police du fichier.
Par contre, tu peux lui donner une police à l'affichage dans ton widget.
As tu un exemple de script?

[Perl53]

voici la fonction pour enregister :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$fenetre -> Button ( -text => 'Sauver Fichier' ,
                     -command => sub {
			$text = $texte -> get ( '1.0' , 'end' ) ;
                        $nom_fichier = $fenetre -> getSaveFile ( -initialdir => $0 ) ;  # sous Windows
                        print "$nom_fichier\n" ;
						open RTBF, ">", "$nom_fichier" or die "Impossible de creer $nom_fichier";
						print RTBF "$text";
						close RTBF;
                     }
            ) -> pack (
                                            -side => 'right' ,
                                            -padx => 8 ,
                                            -pady => 4
                                          ) ;

[djibril]

Utilise les balises codes pour l'affichage sur le forum s'il te plait.
C'est le #

Tu fais l'inverse en faite.
tu as un contenu de texte dans ton widget que tu enregistre dans un fichier.
Bah je ne vois pas comment tu pourras créer un fichier en y mettant du texte avec une police donnée. Si c'est un fichier ASCII que tu crée, c pas possible. Si c'est un excel ou pdf, pourquoi pas et là faut voir dans les modules adéquat

[Perl53]

ok
mais sinon j'ai vu une fonction dump mais je ne comprends pas comment elle marche

[djibril]

dans Tk?

[Perl53]

oui : http://books.google.fr/books?id=PC2V...um=1&ct=result

[djibril]

essaye de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $texte->dump( -text,  '1.0' , 'end' ) ;

et tu vois ce que ça donne

[Perl53]

ça me met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textperl1.0text

et avec des -all :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textc1.0tagon21.1tagon11.1tagonsel1.1textcvvc1.1tagoffsel1.5tagoff11.5tagoff21.5markanchor1.5markinsert1.5textb1.5markcurrent1.6text

[djibril]

bon, je pense que tu as compris que ça ne t'aidera pas à faire ce que tu souhaites

[Perl53]

merci quand même

[djibril]

N'hésite pas à créer d'autres threads pour poser des questions si besoin, je suis aussi un peu sur le Tk en ce moment.