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 : Précédent  1, 2
AuteurMessage
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   Ven 29 Aoû 2014 - 2:46

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
' ==============================================================================
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   Ven 29 Aoû 2014 - 14:55

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.
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   Ven 29 Aoû 2014 - 18:22

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.
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   Ven 29 Aoû 2014 - 18:48

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.
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 2 sur 2Aller à la page : Précédent  1, 2
 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: