[Tk] Enregister du texte avec des modifications

Version imprimable

17/10/2008, 10h27
Perl53

[Tk] Enregister du texte avec des modifications

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
17/10/2008, 10h46
djibril

En définissant le font par exemple.

Code:

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

Regarde Tk::options et font
17/10/2008, 10h50
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
17/10/2008, 10h52
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?

voici la fonction pour enregister :

Code:

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
                                          ) ;

17/10/2008, 10h56
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
17/10/2008, 11h00
Perl53

ok
mais sinon j'ai vu une fonction dump mais je ne comprends pas comment elle marche
17/10/2008, 11h01
djibril

dans Tk?
17/10/2008, 11h02
Perl53

oui : http://books.google.fr/books?id=PC2V...um=1&ct=result
17/10/2008, 11h05
djibril

essaye de faire :

Code:

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

et tu vois ce que ça donne
17/10/2008, 11h11
Perl53

ça me met :

Code:

textperl1.0text

et avec des -all :

Code:

textc1.0tagon21.1tagon11.1tagonsel1.1textcvvc1.1tagoffsel1.5tagoff11.5tagoff21.5markanchor1.5markinsert1.5textb1.5markcurrent1.6text
17/10/2008, 11h25
djibril

bon, je pense que tu as compris que ça ne t'aidera pas à faire ce que tu souhaites ;)
17/10/2008, 11h25
Perl53

merci quand même
17/10/2008, 11h31
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.