FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Aide-mémoire des mots-clés Panoramic

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Aide-mémoire des mots-clés Panoramic   Lun 10 Mar 2014 - 20:37

Les mots-clés sont regroupés par catégorie (groupe).
La liste des mots-clés est systématiquement reconstituée à chaque lancement à partir de Panoramic-Editor.exe, donc toujours à jour  (ça prend une ou deux quelques secondes).
Il faut disposer de ResHacker bien connu, pour l'extraction, et renseigner les chemins de fichiers en début de programme, notamment ResHacker et Panoramic_Editor, et le chemin des fichiers temporaires (ici C:\Temp)
Code:
LABEL Affgroup, Affgroup1, Affcom, Affcom1, Lisgroupes
DIM f$, a$, c$, t$, dl%, tr%, i%, k%, g%, r%, groupes$(50), n%(50), tx$(50,200)
DIM det$(50,200),u$
DIM rm$,Edp$,Rhk$,Rpm$,fz$,q$,grp%

WIDTH 0,600: HEIGHT 0,440: FONT_BOLD 0: COLOR 0,180,255,255: BORDER_SMALL 0
CAPTION 0,"  -  MOTS - CLÉS  PANORAMIC  -
ALPHA 1: LEFT 1,20: CAPTION 1," Groupes: "
ALPHA 2
ALPHA 3
FOR i% = 1 TO 3: COLOR i%,255,255,0: NEXT i%
LIST 10: TOP 10,15: WIDTH 10,135: HEIGHT 10,HEIGHT(0)-50: ON_CLICK 10,Affgroup
COLOR 10,255,255,190
LIST 20: TOP 20,TOP(10): LEFT 20,WIDTH(10)+2: WIDTH 20,200: HEIGHT 20,HEIGHT(10)
ON_CLICK 20,Affcom: COLOR 20,255,255,190
MEMO 30: TOP 30,TOP(20): LEFT 30,WIDTH(10)+WIDTH(20)+4: WIDTH 30,245
HEIGHT 30,60: COLOR 30,255,255,190
ALPHA 35: TOP 35,TOP(30)+HEIGHT(30)+2: LEFT 35,LEFT(30)+100: CAPTION 35,"Détails:"
MEMO 40: TOP 40,TOP(30)+HEIGHT(30)+15: LEFT 40,LEFT(30): WIDTH 40,WIDTH(30)
HEIGHT 40,315
LEFT 2,LEFT(20)+20: LEFT 3,LEFT(30)+20
FOR i% = 10 TO 30 STEP 10: FONT_NAME i%,"Arial": FONT_SIZE i%,9: NEXT i%
FONT_NAME 40,"Arial": FONT_SIZE 40,8: FONT_BOLD_OFF 40

q$ = CHR$(34)
rm$ = "C:\TEMP": ' Répertoire de travail
Edp$ = "C:\Program Files (x86)\Panoramic Editor\PANORAMIC_EDITOR.exe": ' Éditeur
Rhk$ = "C:\UTIL\ResHacker.exe ": ' *** ResHacker
fz$ = rm$ + "\ppp.res": ' fichier provisoire résultat de ResHacker
Rpm$ = "-extract "+q$+Edp$+q$+", "+q$+fz$+q$+", RCData, KEYWORDS, 1036"
EXECUTE_WAIT Rhk$+Rpm$: ' -> résultat dans fz$
dl% = 10: GOSUB Lisgroupes
FILE_DELETE fz$: ' fichier résultat de Reshacker, ou à garder, si on veut...
g% = 1: GOSUB Affgroup1
END
' ==============================================================================
Affgroup:
' Liste des mots-clés du groupe cliqué
g% = ITEM_INDEX(10)
Affgroup1:
CLEAR 20: CLEAR 30: CLEAR 40
CAPTION 2," Groupe: " + ITEM_READ$(10,g%) + " ": CAPTION 3,""
FOR r% = 1 TO n%(g%)
    a$ = tx$(g%,r%): k% = INSTR(a$,":"): a$ = LEFT$(a$,k%-1)
    ITEM_ADD 20,a$
NEXT r%
grp% = g%
r% = 1: GOSUB Affcom1: ' 1er mot-clé du groupe
grp% = g%
RETURN
' ==============================================================================
Affcom:
r% = ITEM_INDEX(20)
Affcom1:
CLEAR 30: CLEAR 40
g% = grp%
a$ = tx$(g%,r%)
k% = INSTR(a$,":"): a$ = MID$(a$,k%+2,500)
ITEM_ADD 30, a$
CAPTION 3, " "+LEFT$(tx$(g%,r%),k%-1)+" "
a$ = det$(grp%,r%): ITEM_ADD 40,a$
RETURN
' ==============================================================================
Lisgroupes:
' Liste des groupes de mots-clés
FILE_OPEN_READ 1, fz$
WHILE FILE_EOF(1) = 0: FILE_READLN 1,a$
    IF left$(a$,7) = "Groupe:"
        tr% = 0: a$ = MID$(a$,9,50): ' groupe
        IF COUNT(dl%) > 0
            FOR i% = 1 TO COUNT(dl%)
                IF a$ = ITEM_READ$(dl%,i%) THEN tr% = 1: EXIT_FOR
            NEXT i%
        END_IF
        IF tr% = 0 THEN ITEM_ADD dl%, a$
    END_IF
END_WHILE
FILE_CLOSE 1
SORT dl%
FOR i% = 1 TO COUNT(dl%)
    groupes$(i%) = item_read$(dl%,i%)
NEXT i%
' Extraction et classement des mots-clés par groupe
FILE_OPEN_READ 1, fz$
WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$
    IF a$ = "1"
        FILE_READLN 1, t$: FILE_READLN 1, a$
        WHILE a$ <> "a": FILE_READLN 1,a$: END_WHILE
        FILE_READLN 1, a$: t$ = t$ + ": " + a$
        FILE_READLN 1,a$
        WHILE LEFT$(a$,7)<>"Groupe:": FILE_READLN 1, a$: END_WHILE
        a$ = MID$(a$,9,50): ' groupe
        FILE_READLN 1,c$
        WHILE c$<>"4": FILE_READLN 1,c$: END_WHILE
        u$ = ""
        FILE_READLN 1,c$: ' descriptif détaillé
        WHILE c$<>"E": u$=u$+c$+CHR$(13)+CHR$(10): FILE_READLN 1,c$: END_WHILE
        u$ = LEFT$(u$,LEN(u$)-2)
        FOR g% = 1 TO COUNT(dl%)
            IF a$ = groupes$(g%) THEN EXIT_FOR
        NEXT g%
        n%(g%) = n%(g%)+1: tx$(g%,n%(g%)) = t$: det$(g%,n%(g%)) = u$
    END_IF
END_WHILE
FILE_CLOSE 1
RETURN
' ==============================================================================
Edit 11/03: ajout des détails de la commande, et quelques petits trucs


Dernière édition par JL35 le Mar 11 Mar 2014 - 19:12, édité 4 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Lun 10 Mar 2014 - 20:50

Très bel outil, JL35 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 10 Mar 2014 - 20:53

cheers  Très bel outils, il peut être très utile.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Lun 10 Mar 2014 - 21:58

Merci les amis !
On peut facilement éviter de reconstituer la liste à chaque lancement, et ne le faire que sur demande (s'il y a de nouveaux mots-clés), en conservant le fichier fz$, pour éviter les quelques secondes au démarrage, mais finalement ce n'est pas très gênant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 0:01

bonsoir
ResHacker: est_ce que ResHacker fonctionne  sous vista ?
OU  peut_être bien que j'ai des pb d'autorisation d’accès
Même avec -dos name  le chemin ne fonctionne pas
pb à ce niveau
' Liste des groupes de mots-clés
FILE_OPEN_READ 1, fz$ ligne 53 il ny a pas eu création
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 0:45

Bonsoir sergeauze,
Il n'y a aucune raison pour que ça ne fonctionne pas sous Vista.
Est-ce que tu as bien vérifié tous tes chemins, notamment le chemin complet de Panoramic_Editor.exe (dans Edp$) ?
Est-ce que le répertoire rm$ (chez moi C:\Temp) existe bien ?
Essaie de mettre un stop après la ligne 26 (création du fichier résultat) et de regarder là si le fichier existe.

Peut-être remplacer la ligne 26 par:
Code:
EXECUTE_WAIT "cmd.exe /c "+Rhk$+Rpm$+" | clip": ' -> résultat dans fz$
message clipboard_string_paste$: ' pour voir s'il y a une erreur
pour voir si tu récupères une erreur... mais je ne suis pas sûr que la redirection vers le clipboard (| clip) fonctionne sous Vista...

Au pire, exécuter la commande ResHacker en mode ligne de commande, avec tous les bons paramètres (les mêmes que dans ton programme), et voir ce que ça renvoie comme erreur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 13:51

Salut tout le monde.

J’ai le même problème que Sergeauze.
En remplaçant la ligne 26
Code:
 EXECUTE_WAIT Rhk$+Rpm$: ' -> résultat dans fz$
Par
Code:
 EXECUTE_WAIT "cmd.exe /c "+Rhk$+Rpm$+" | clip": ' -> résultat dans fz$
Tout devient parfaitement parfait !

Merci JL35
C’est un bon utilitaire.
 
Merci JL35
C’est un bon utilitaire.
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 11 Mar 2014 - 14:43

Je pense que c' est un problème du à w7.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 15:29

Comme je disais ailleurs, parfois il faut mettre le CMD.exe /c, parfois ça marche sans (c'est mon cas sous W7), ça dépend des exécutables, et dans le doute il faut essayer les deux formulations.

Pour le "| clip" c'était uniquement pour récupérer dans le presse-papier une erreur éventuelle de ResHacker (pour les tests), si ça marche c'est inutile. Et je crois que la redirection vers le clipboard (| clip) n'existe pas en standard sous tous les windows.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 19:03

Pour ne pas avoir de surface perdue inutilement, j'ai ajouté à droite le détail de chaque commande sélectionnée, mise à jour ci-dessus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1599
Date d'inscription : 13/09/2009

MessageSujet: +++   Mar 11 Mar 2014 - 19:34

Je suis bluffé !!!
Actualisé en permanence, en plus !!!!!!!!!!!!
Alors là, chapeau !!!
Ca, c'est du grand JL35 !!!
Ca va être vachement utile !
 cheers alien cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 19:52

Tiens, salut jjn4, dis-donc tu te fais plutôt rare !
Et tu ne vas pas me sortir le truc habituel comme quoi les retraités n'ont de temps à rien, je suis retraité (ça fait déjà un bout de temps), et j'ai bien des loisirs (sauf ce soir, je suis pris, resto), alors hein, à d'autres !
Cela dit, content de te voir !  Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:02

Oui, c’est mieux ainsi.

Pour dire quelque chose d’autre :
Afin de pouvoir lire facilement le fichier provisoire fz$, il vaut mieux changer son extension .res en .txt. bounce
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:02

Il m’a été donné de constater que les Martiens écrivent en miroir.
Ne sachant pas qu’ils utilisent leur miroir vertical ou horizontal, j’écris à l’intention de notre Martien dans les deux sens afin qu'il choisisse ce qui lui convient le mieux:

Content de te lire jjn4 
Content de te lire jjn4 

Pour les Terriens :
Sachez que pour écrire en miroir, il existe les balises [flipv] pour vertical et [fliph] pour horizontal.
Exemple :
[flipv]Ce texte est en miroir vertical[ /flipv]  
[fliph]Ce texte est en miroir horizontal[ /flipv]  
Remarque : pas d’espaces entres les balises !

@JL35
Pardon de polluer ton post.


Dernière édition par papydall le Mar 11 Mar 2014 - 20:27, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:19

Comme c'est le programme qui le lit, lui il n'a pas d'états d'âme Very Happy  !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1599
Date d'inscription : 13/09/2009

MessageSujet: +++   Mar 11 Mar 2014 - 20:29

J'avais mon système Internet qui ramait alors je m'en servais peu.
Mais ça y est, je l'ai réparé. C'est une vraie flèche !
Je vais pouvoir être plus présent.
Ah mais, quant au temps disponible, c'est vrai que...
 bounce alien Sleep

.etêt al rus tnehcram sneitram sel euq iarv tes'C
.siaf ut tnemmoc évuort sap ia'n eJ
 Laughing  alien  Laughing


Dernière édition par jjn4 le Mar 11 Mar 2014 - 20:40, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:32

Je pense que tu n’as pas pris connaissance de mon dernier post.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:37

Pour la pollution, aucun problème papydall ! tant que ça reste dans les limites de la décence  Very Happy !

@jjn4 alors il faut s'attendre à une avalanche de nouveaux programmes, une bécane de course et beaucoup de temps libre...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:38

Enfin après beaucoup de manipulations je profite  de ce logiciel sympa !
C'est enfin de compte mon fichier Temp qui  me jouait des tours j' ai crée un nouveau dossier
que j'ai nomme  toto et comme par miracle ça fonctionne
   merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:40

Bizarre, mais si ça marche, tant mieux ! tu as vu il y a une nouvelle version avec quelques bricoles en plus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 20:43

@Sergeauze
Peut-être que ton VISTA ne veut pas de ton TEMP  Exclamation
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Mar 11 Mar 2014 - 21:03

@papydall
oui ; mais j'ai su quoi en faire de mon TEMP  Idea
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Jeu 13 Mar 2014 - 12:27

Bonjour a tous !!

Très pratique, effectivement.

A mettre de coté et conserver précieusement.
Je vais peut être l'adapter a mon éditeur pour avoir toujours la liste a jour...

Merci JL
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Dim 17 Aoû 2014 - 15:58

J'ai actualisé légèrement ton très bel outil, JL35.

J'ai ajouté un menu pour pouvoir cibler le fichier contenant l'éditeur Panoramic voulu (car on pourrait avoir plusieurs versions simultanément sur le disque). Et k'ai ajouté un bouton en-dessous de la liste des mots-cle (liste 20) qui permet de copier cette liste dans le presse-papier.

J'ai mis le chemin court vers ResHacker dans le source, selon la configuration de mon système. J'ai mis en commentaire un lien vers un utilitaire freeware permettant de construire ce lien très facilement.

Voici le code:
Code:
LABEL Affgroup, Affgroup1, Affcom, Affcom1, Lisgroupes
DIM f$, a$, c$, t$, dl%, tr%, i%, k%, g%, r%, groupes$(50), n%(50), tx$(50,200)
DIM det$(50,200),u$
DIM rm$,Edp$,Rhk$,Rpm$,fz$,q$,grp%, tmp$

WIDTH 0,600: HEIGHT 0,480: FONT_BOLD 0: COLOR 0,180,255,255: BORDER_SMALL 0
CAPTION 0,"  -  MOTS - CLÉS  PANORAMIC  -
ALPHA 1: LEFT 1,20: CAPTION 1," Groupes: "
ALPHA 2
ALPHA 3
FOR i% = 1 TO 3: COLOR i%,255,255,0: NEXT i%
LIST 10: TOP 10,15: WIDTH 10,135: HEIGHT 10,HEIGHT(0)-120: ON_CLICK 10,Affgroup
COLOR 10,255,255,190
LIST 20: TOP 20,TOP(10): LEFT 20,WIDTH(10)+2: WIDTH 20,200: HEIGHT 20,HEIGHT(10)
ON_CLICK 20,Affcom: COLOR 20,255,255,190
MEMO 30: TOP 30,TOP(20): LEFT 30,WIDTH(10)+WIDTH(20)+4: WIDTH 30,245
HEIGHT 30,60: COLOR 30,255,255,190
ALPHA 35: TOP 35,TOP(30)+HEIGHT(30)+2: LEFT 35,LEFT(30)+100: CAPTION 35,"Détails:"
MEMO 40: TOP 40,TOP(30)+HEIGHT(30)+15: LEFT 40,LEFT(30): WIDTH 40,WIDTH(30)
HEIGHT 40,315
LEFT 2,LEFT(20)+20: LEFT 3,LEFT(30)+20
FOR i% = 10 TO 30 STEP 10: FONT_NAME i%,"Arial": FONT_SIZE i%,9: NEXT i%
FONT_NAME 40,"Arial": FONT_SIZE 40,8: FONT_BOLD_OFF 40

main_menu 100
sub_menu 101 : parent 101,100 : caption 101,"Fichier"
sub_menu 111 : parent 111,101 : caption 111,"Ouvrir Panoramic_Editor"
  label ouvrir : on_click 111,ouvrir
sub_menu 112 : parent 112,101 : caption 112,"Lancer"
  label lancer : on_click 112,lancer
sub_menu 113 : parent 113,101 : caption 113,"-"
sub_menu 114 : parent 114,101 : caption 114,"Sortir"
  label sortir : on_click 114,sortir
 
button 200 : top 200,top(20)+height(20) : left 200,left(20)+30
  caption 200,"Copier liste"
  label copier : on_click 200,copier
 
open_dialog 201 : filter 201,"Editeur Panoramoc (*.exe)|*.exe"

q$ = CHR$(34)
rm$ = "C:\Users\klausgunther\Downloads": ' Répertoire de travail
Edp$ = "C:\Program Files (x86)\Panoramic Editor V 0.9.25\PANORAMIC_EDITOR v09.25 du 19 04 2014 .exe": ' Éditeur
' Rhk$ = "C:\UTIL\ResHacker.exe ": ' *** ResHacker
' coder ici le nom court complet du programme Reskacker
' On obtient ce code par l'outil freeware accessible à ce lien:
' http://bluefive.pair.com/dosname.htm
Rhk$ = "C:\PROGRA~2\RESOUR~1\RESHAC~1.EXE": ' *** ResHacker
fz$ = rm$ + "\ppp.res": ' fichier provisoire résultat de ResHacker
Rpm$ = " -extract "+q$+Edp$+q$+", "+q$+fz$+q$+", RCData, KEYWORDS, 1036"
end

sortir:
  terminate
 
ouvrir:
  tmp$ = file_name$(201)
  if tmp$="_" then return
  Edp$ = tmp$
  return
 
copier:
  tmp$ = ""
  if count(20)>0
    for i%=1 to count(20)
      tmp$ = tmp$ + item_read$(20,i%)+chr$(13)+chr$(10)
    next i%
  end_if
  clipboard_string_copy tmp$
  message "La liste est copiée dans le presse-papier !"
  return

lancer:
EXECUTE_WAIT Rhk$+Rpm$: ' -> résultat dans fz$
dl% = 10: GOSUB Lisgroupes
FILE_DELETE fz$: ' fichier résultat de Reshacker, ou à garder, si on veut...
g% = 1: GOSUB Affgroup1
END
' ==============================================================================
Affgroup:
' Liste des mots-clés du groupe cliqué
g% = ITEM_INDEX(10)
Affgroup1:
CLEAR 20: CLEAR 30: CLEAR 40
CAPTION 2," Groupe: " + ITEM_READ$(10,g%) + " ": CAPTION 3,""
FOR r% = 1 TO n%(g%)
    a$ = tx$(g%,r%): k% = INSTR(a$,":"): a$ = LEFT$(a$,k%-1)
    ITEM_ADD 20,a$
NEXT r%
grp% = g%
r% = 1: GOSUB Affcom1: ' 1er mot-clé du groupe
grp% = g%
RETURN
' ==============================================================================
Affcom:
r% = ITEM_INDEX(20)
Affcom1:
CLEAR 30: CLEAR 40
g% = grp%
a$ = tx$(g%,r%)
k% = INSTR(a$,":"): a$ = MID$(a$,k%+2,500)
ITEM_ADD 30, a$
CAPTION 3, " "+LEFT$(tx$(g%,r%),k%-1)+" "
a$ = det$(grp%,r%): ITEM_ADD 40,a$
RETURN
' ==============================================================================
Lisgroupes:
' Liste des groupes de mots-clés
FILE_OPEN_READ 1, fz$
WHILE FILE_EOF(1) = 0: FILE_READLN 1,a$
    IF left$(a$,7) = "Groupe:"
        tr% = 0: a$ = MID$(a$,9,50): ' groupe
        IF COUNT(dl%) > 0
            FOR i% = 1 TO COUNT(dl%)
                IF a$ = ITEM_READ$(dl%,i%) THEN tr% = 1: EXIT_FOR
            NEXT i%
        END_IF
        IF tr% = 0 THEN ITEM_ADD dl%, a$
    END_IF
END_WHILE
FILE_CLOSE 1
SORT dl%
FOR i% = 1 TO COUNT(dl%)
    groupes$(i%) = item_read$(dl%,i%)
NEXT i%
' Extraction et classement des mots-clés par groupe
FILE_OPEN_READ 1, fz$
WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$
    IF a$ = "1"
        FILE_READLN 1, t$: FILE_READLN 1, a$
        WHILE a$ <> "a": FILE_READLN 1,a$: END_WHILE
        FILE_READLN 1, a$: t$ = t$ + ": " + a$
        FILE_READLN 1,a$
        WHILE LEFT$(a$,7)<>"Groupe:": FILE_READLN 1, a$: END_WHILE
        a$ = MID$(a$,9,50): ' groupe
        FILE_READLN 1,c$
        WHILE c$<>"4": FILE_READLN 1,c$: END_WHILE
        u$ = ""
        FILE_READLN 1,c$: ' descriptif détaillé
        WHILE c$<>"E": u$=u$+c$+CHR$(13)+CHR$(10): FILE_READLN 1,c$: END_WHILE
        u$ = LEFT$(u$,LEN(u$)-2)
        FOR g% = 1 TO COUNT(dl%)
            IF a$ = groupes$(g%) THEN EXIT_FOR
        NEXT g%
        n%(g%) = n%(g%)+1: tx$(g%,n%(g%)) = t$: det$(g%,n%(g%)) = u$
    END_IF
END_WHILE
FILE_CLOSE 1
RETURN
' ==============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   Dim 17 Aoû 2014 - 18:00

Merci Klaus, ça peut effectivement être intéressant si on gère plusieurs versions de l'éditeur (ce que j'essaie d'éviter pour ma part).

Pour le chemin court à partir du chemin long, j'ai plusieurs subs qui font ça très bien, par exemple:
Code:
SUB Nomcourt(Path$)
' Conversion de Path long en Path court (sans espace) -> clipboard
FILE_OPEN_WRITE 9, "C:\nc.bat"
    FILE_WRITELN 9, "@echo off"
    FILE_WRITELN 9, "for %%A in ("+CHR$(34)+Path$+CHR$(34)+") do echo.%%~sfA | clip"
FILE_CLOSE 9
EXECUTE_WAIT "C:\nc.bat": FILE_DELETE "C:\nc.bat"
END_SUB
à récupérer avec un Clipboard_String_Paste$

Pour les mots-clés et la doc panoramic en général, je me suis fait un outil plus complet dont je me sers en permanence:
mais il y a des fichiers (au moins autant que de mots-clés) et des programmes annexes (autant que de rubriques du menu) alors ce serait un peu compliqué à publier ici...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Aide-mémoire des mots-clés Panoramic   

Revenir en haut Aller en bas
 
Aide-mémoire des mots-clés Panoramic
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Liste des mots-clé de Panoramic avec leur classification
» Liste des mots-clé de Panoramic
» Mon PC portable perd de la mémoire
» besion d'aide language html lecteur de musique !! (Résolu)
» Aide TC Gold en français

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: