Perl

menu ouvrir fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : menu ouvrir fichier

rim_enis

j'aime ENIS

bonjour à tous,

je veux ouvrir un fichier à l'aide d'un menu ouvrir et afficher son continu ds une zone de texte :

voici le code que je fai :

Code :

$menu_ouvrir->command( -label => 'Ouvrir', -command => \&open_file ) ;
my $nom_fic;
sub open_file {
my $filetypes = [
['Drawing Files', '.txt'],
['All files', '*']
];
my $selected_file = $fenetre->getOpenFile(
-filetypes => $filetypes,
-initialdir => "/home/hp/Bureau/Master",
-multiple => 1,);
$nom_fic = $selected_file;
$txt->delete("1.0","end" );
if (!open(FIC,"$selected_file" )) {
$txt->insert("end","ERREUR : Impossible d\'ouvrir < $nom_fic >\n" );
return;
}
while () {
$txt->insert("end",$_);
}
close(FIC);
}

malheureusement il m'affiche tjrs : ERREUR : Impossible d'ouvrir < ARRAY(0x88f4340) >

Publicité

gilou

Modérateur
Modzilla

-multiple => 1 ça veut donc dire que vous allez pouvoir sélectionner plusieurs fichiers, et donc que c'est un array qui va être retourné
Donc soit vous faites -multiple => 0, soit vous faites my @selected_files = $fenetre->getOpenFile(... avec multiple a 1

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

rim_enis

j'aime ENIS

oui gilou merci je resolu le pblme , cependant si le fichier est en arabe alors on fait :
open FIC, '<:encoding(UTF-8)', $selected_file or $txt->insert('end', "ERREUR : Impossible d'ouvrir $selected_file\n" ), return;

si nn si le fichier contient des caractère arabe et français au mme temps l'affichage ds ce cas est erroné !!!!

gilou

Modérateur
Modzilla

l'affichage de quoi?
Tout cela n'est pas très clair.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

rim_enis

j'aime ENIS

si le fichier est en arabe alors l'affichage de son continu n'est pas juste ar exemple
au lieu d'afficher :

اَ هَاكَ هَذَاكَ هُوَ
ثَمَّاشِي وَاحِدْ آخِرْ بَعْدُو
ثَمَّ الحْدَاشْ مْتَاعْ اللِيلْ
سَلَامُ عَلَيْكُمْ بِاللَهْ تِكَايْ لْتُونِسْ بْقَدَاهْ
il m'affiche des caractères séparés

rim_enis

j'aime ENIS

en effet l'affichage n'est pas bon de tout ce comme indique cette phote :

[url]

http://www.developpez.net/forums/a [...] al_tk.png/

[/url]

Message édité par rim_enis le 03-11-2013 à 22:05:45

gilou

Modérateur
Modzilla

Postez cette photo ici avec ce serveur dédié: http://reho.st/ afin que je puisse voir de quoi il s'agit.
A+,

Message édité par gilou le 03-11-2013 à 23:55:26

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

gilou

Modérateur
Modzilla

Je crois que j'ai compris: les text panels de tk ne supportent pas le sens droite gauche et les ligatures.
Le plus simple serait de
- prendre le texte utf8 ligne a ligne
- passer une ligne a un arabjoin ( http://czyborra.com/arabjoin/arabjoin ) modifié pour retourner le texte, et non l'imprimer
- envoyer la ligne recodée par arabjoin au panneau texte tk
et ça devrait marcher (espérons le).

Sinon, il faut voir si ce qui es fait en tcl/tk ici: http://www2.tcl.tk/38244 est transposable en perl/tk

A+,

Message édité par gilou le 04-11-2013 à 00:29:56

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

rim_enis

j'aime ENIS

[url]
http://reho.st/upload
[/url]

FORUM HardWare.fr

Programmation

Perl

menu ouvrir fichier

Sujets relatifs
importer fichier csv	Affichage fichier dans répertoire
[Choix Techno] modification de fichier	supprission des lignes redondantes dans un fichier
Upload fichier avec choix dossier destination	Extraire les donnees d'un fichier mdf
[C] Comment sauvegarder lors d'un remplissage de fichier?	Ouvrir un feuille dans un classeur
vérifier si un fichier a été modifié	fichier audio grâce à formulaire Access et Media Player
Plus de sujets relatifs à : menu ouvrir fichier

Page générée en 0.082 secondes