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

J'ai ajouter un bouton "Exporter tout" à ton outil Aide-mémoire des mots-clé. J'aime bien cet outil, et je vais me servir de ce bouton supplémentaire pour faire un fichier très simple Panoramic.chm qui servira pour l'aide contextuelle par la touche F1, dans Synedit_Editor. Ce fichier est déposé dans rm$+"\PanDoc_Export.txt".

Voici cette version:

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

button 220 : top 220,top(20)+height(20) : left 220,left(10)+20
caption 220,"Exporter tout" : width 220,100
label exporter : on_click 220,exporter

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

exporter:
file_open_write 1,rm$+"\PanDoc_Export.txt"
for i%=1 to count(10)
file_writeln 1,"Groupe: "+item_read$(10,i%)
for g%=1 to n%(i%)
file_writeln 1,"Court:"+chr$(13)+chr$(10)+" "+tx$(i%,g%)
file_writeln 1,"Long:" +chr$(13)+chr$(10)+" "+det$(i%,g%)
file_writeln 1,""
next g%
next i%
file_close 1
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
' ==============================================================================

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

Adopté !
Juste une petite remarque qui me laisse un peu perplexe: tu as un espace en tête de Rpm$ (il y en a déjà un à la fin de Rhk$),
si je le laisse il ne se passe rien, Reshacker se lance mais n'exécute pas. Si j'ôte ce même espace, tout se passe bien, l'exécution se fait... les deux espaces consécutifs ne lui plaisent pas ??? mais c'est juste un détail.

Ca doit être encore le fantôme du forum qui s'amuse. Chez moi, tout se déroule bien, et je n'ai pas d'espace !

EDIT

Désolé, j'ai confondu avec rm$... Il y a bien un espace comme premier caractère de rpm$, et c'était comme ça depuis le début. Je n'ai pas touché cette ligne;

Code:: Rpm$ = " -extract "+q$+Edp$+q$+", "+q$+fz$+q$+", RCData, KEYWORDS, 1036"

S'il n'y a pas cet espace, c'est là qu'il y a un problème chez moi, car ça donnerait:

Code:: C:\PROGRA~2\RESOUR~1\RESHAC~1.EXE-extract "+q$+Edp$+q$+", "+q$+fz$+q$+", RCData, KEYWORDS, 1036

pour la commande EXECUTE, alors que ça devrait être:

Code:: C:\PROGRA~2\RESOUR~1\RESHAC~1.EXE -extract "+q$+Edp$+q$+", "+q$+fz$+q$+", RCData, KEYWORDS, 1036

ce qui paraît logique.

En tout cas, je suis très satisfait du fonctionnement de ce programme, et le début de Panoramic.chm (sans mon WebDav, dossier Synedit) est fait avec le résultat exporté de ce programme.

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

Autant pour moi Klaus, il n'y a pas de mystère j'ai mal regardé.
En effet, avec ton chemin de reshacker l'espace n'est pas à la fin du chemin mais au début du paramètre Rpm$, alors que dans mon chemin à moi, que j'avais rétabli, il y avait un espace à la fin du chemin et pas dans Rpm$.
Alors ça en faisait deux consécutifs, et apparemment il n'aime pas ça, c'est un peu curieux, mais bon...

C'est une habitude, bonne ou mauvaise, que j'ai pris de mettre systématiquement un espace à la fin du chemin de l'exécutable, en général ça ne pose pas de problème qu'il y en ait un deuxième ou pas ensuite.

» Aide-mémoire des mots-clés Panoramic
» Panoramic Keywords
» Nouveaux mots-clés et astuces Panoramic.
» Outils de récupération et gestion des mots clés Panoramic
» Couleur d'une variable qui n'est pas un mot-clé