FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» PANORAMIC V 1
Liste des mots-clé de Panoramic Emptypar Klaus Aujourd'hui à 10:28

» Gestion d'un système client-serveur.
Liste des mots-clé de Panoramic Emptypar Klaus Hier à 23:59

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Liste des mots-clé de Panoramic Emptypar Marc Hier à 12:14

» @Jack
Liste des mots-clé de Panoramic Emptypar Jack Mar 30 Avr 2024 - 20:40

» trop de fichiers en cours
Liste des mots-clé de Panoramic Emptypar papydall Lun 29 Avr 2024 - 23:39

» Une calculatrice en une ligne de programme
Liste des mots-clé de Panoramic Emptypar jean_debord Dim 28 Avr 2024 - 8:47

» Form(résolu)
Liste des mots-clé de Panoramic Emptypar leclode Sam 27 Avr 2024 - 17:59

» Bataille navale SM
Liste des mots-clé de Panoramic Emptypar jjn4 Ven 26 Avr 2024 - 17:39

» Les maths du crocodile
Liste des mots-clé de Panoramic Emptypar jean_debord Jeu 25 Avr 2024 - 10:37

» Naissance de Crocodile Basic
Liste des mots-clé de Panoramic Emptypar jean_debord Jeu 25 Avr 2024 - 8:45

» Dessine-moi une galaxie
Liste des mots-clé de Panoramic Emptypar jjn4 Lun 22 Avr 2024 - 13:47

» Erreur END_SUB
Liste des mots-clé de Panoramic Emptypar jjn4 Lun 22 Avr 2024 - 13:43

» Bug sur DIM_LOCAL ?
Liste des mots-clé de Panoramic Emptypar papydall Dim 21 Avr 2024 - 23:30

» 2D_fill_color(résolu)
Liste des mots-clé de Panoramic Emptypar leclode Sam 20 Avr 2024 - 8:32

» Consommation gaz électricité
Liste des mots-clé de Panoramic Emptypar leclode Mer 17 Avr 2024 - 11:07

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2024
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier
Le Deal du moment : -20%
Ecran PC GIGABYTE 28″ LED M28U 4K ( IPS, 1 ms, ...
Voir le deal
399 €

 

 Liste des mots-clé de Panoramic

Aller en bas 
3 participants
AuteurMessage
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 20:52

Klaus avait fait à une époque un petit programme pour pouvoir récupérer la liste des mots clés de Panoramic.

Je vous propose une adaptation de ce petit utilitaire.

Pour cela vous devez installer sur votre PC, l'utilitaire Reshacker (site officiel)
et avoir malheureusement Neutral ma petite Dlll : Utils.dll

Code:

' ==============================================================================
'  GENERATION D'UN FICHIER CONTENANT LA LISTE DES MOT-CLES DE PANORAMIC
'  A partir d'un programme de Klaus...
' ==============================================================================
LABEL ErrProg
ON_ERROR_GOTO ErrProg
HIDE 0

DLL_ON "Utils.dll"
DIM dll_return,i,j

WIDTH 0,int(screen_x/4)
HEIGHT 0,100
TOP 0,(SCREEN_Y-HEIGHT(0))/2
LEFT 0,(SCREEN_X-WIDTH(0))/2
CAPTION 0,"Génération mots-clés"
ALPHA 3000: CAPTION 3000,"Veuillez patienter...":LEFT 3000,20
TOP 3000,20

DIM PANO_EDIT$
DIM RSC_PRG$
DIM RSC_PAR$
DIM PATH$,OLD_PATH$
DIM bChange:bChange=0

PATH$=DIR_CURRENT$
OLD_PATH$=PATH$+"\"

dll_return = DLL_CALL2("GetShortName",ADR(PATH$),LEN(PATH$))
PATH$=TRIM$(PATH$)+"\"

IF FILE_EXISTS(PATH$+"Motclef.ini")=1
  FILE_OPEN_READ 1,PATH$+"Motclef.ini"
    FILE_READLN 1,PANO_EDIT$
    FILE_READLN 1,RSC_PRG$
  FILE_CLOSE 1
  dll_return = DLL_CALL2("GetShortName",ADR(PANO_EDIT$),LEN(PANO_EDIT$))
  PANO_EDIT$=TRIM$(PANO_EDIT$)
  dll_return = DLL_CALL2("GetShortName",ADR(RSC_PRG$),LEN(RSC_PRG$))
  RSC_PRG$=TRIM$(RSC_PRG$)
END_IF

IF FILE_EXISTS(PANO_EDIT$)=0
  bChange=1
  MESSAGE "Sélectionnez l'éditeur Panoramic"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Editeur Panoramic|*.exe"
    PANO_EDIT$=FILE_NAME$(1)
    IF PANO_EDIT$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(PANO_EDIT$)=1
'  MESSAGE PANO_EDIT$
  DELETE 1
END_IF

IF FILE_EXISTS(RSC_PRG$)=0
  bChange=1
  MESSAGE "Sélectionnez Ressource Hacker"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Ressource Hacker|ResHacker.exe"
    RSC_PRG$=FILE_NAME$(1)
    IF RSC_PRG$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(RSC_PRG$)=1
'  MESSAGE RSC_PRG$
  DELETE 1
END_IF
SHOW 0

' on sauvegarde les chemins d'accès en prévision d'une future mise à jour...
if bChange=1
  FILE_OPEN_WRITE 1,PATH$+"Motclef.ini"
    FILE_WRITELN 1,PANO_EDIT$
    FILE_WRITELN 1,RSC_PRG$
  FILE_CLOSE 1
end_if

dll_return = DLL_CALL2("GetShortName",ADR(PANO_EDIT$),LEN(PANO_EDIT$))
PANO_EDIT$=TRIM$(PANO_EDIT$)
dll_return = DLL_CALL2("GetShortName",ADR(RSC_PRG$),LEN(RSC_PRG$))
RSC_PRG$=TRIM$(RSC_PRG$)


DLIST 1000
DIM start$,mot$

RSC_PAR$ = " -extract "+PANO_EDIT$+", "+PATH$+"editor.res , RCData, KEYWORDS, 1036"
EXECUTE_WAIT RSC_PRG$+RSC_PAR$


DLL_OFF

FILE_OPEN_READ 1,PATH$+"editor.res"
  WHILE FILE_EOF(1)=0
    FILE_READLN 1,start$
    ' recherche nom
    IF start$="0"
      FILE_READLN 1,mot$
      IF INSTR(mot$,"(")<>0
        mot$=LEFT$(mot$,INSTR(mot$,"(")-1)
      END_IF
      ITEM_ADD 1000,mot$
    END_IF
  END_WHILE
FILE_CLOSE 1

SORT 1000
' WAIT 3000
' on supprime les doublons (TOP/TOP(), WIDTH/WIDTH(), ... )
j = COUNT(1000)
FOR i = 2 TO j
  if (i > j) then EXIT_FOR
  if ITEM_READ$(1000, i) = ITEM_READ$(1000, i - 1)
    ITEM_DELETE 1000, i
    j = COUNT(1000)
  END_IF
NEXT i

FILE_SAVE 1000,PATH$+"Motclef.txt"
FILE_DELETE PATH$+"editor.res" : ' le fichier temporaire n'a plus de raison d'être...
MESSAGE "Le fichier "+OLD_PATH$+"motclef.txt a été sauvegardé"
TERMINATE
END

ErrProg:
 if variable("dll_return")=0
  MESSAGE "UTILS.DLL manquante !"
 end_if
TERMINATE

Le résultat se trouve dans un fichier texte...

Note : Les chemins d'accès sont automatiquements sauvegardés dans un fichier de config en prévision d'une future version de Panoramic...


Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 21:35

Depuis pas mal de temps ((1 an ?) je me suis fait une aide personnalisée, accessible depuis le bureau:
Liste des mots-clé de Panoramic Aide_pano
entièrement extraite de l'éditeur avec reshacker, mise à jour automatiquement à chaque nouvelle version, mais je n'ai pas eu besoin de dll ? en tout cas c'est bien pratique et je m'en sers constamment.

Ah je vois, la dll c'est pour les shortnames...
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 21:50

Intéressant ton prog ! Smile
Dans mon cas, je n'utilise que l'Id 0.
Je suppose que tu extrait tout le .res ?

Mon petit prog est perfectible:
on peut se passer de la dll si on écrit en dur les chemins d'accès...
Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 22:04

Oui j'extrais et j'analyse toute l'aide intégrée (version française, les deux sont mélangées). Ca prend quelques secondes, mais seulement à chaque nouvelle version.

Pour les noms courts, ou bien avec un petit sous-programme en panoramic (enfin presque) qui calcule les noms courts, c'est à dire sans appel à une ressource externe, du genre:
Code:
' Récupération du chemin court d'un fichier (sans espaces) en fonction de son chemin long
dim fbat$, fm$, nlong$, ncourt$
label Nomcourt

fbat$ = "C:\Temp\Nomcourt.bat": ' *** à ajuster, supprimé après usage
fm$ = "C:\Temp\temp":          ' *** à ajuster, idem
nlong$ = "C:\Program Files (x86)\Panoramic Editor\PANORAMIC_EDITOR.exe": ' exemple de chemin long

GOSUB Nomcourt
Print nlong$: Print " -> " + ncourt$
end

Nomcourt:
File_Open_Write 1, fbat$
File_WriteLn 1, "@echo off"
File_WriteLn 1, "for %%A in ("+chr$(34)+nlong$+chr$(34)+") do echo.%%~sfA >" + fm$
File_Close 1
EXECUTE_WAIT fbat$
File_Open_Read 1, fm$
File_ReadLn 1, ncourt$
File_Close 1
File_Delete fm$: File_Delete fbat$
RETURN
Revenir en haut Aller en bas
Invité
Invité




Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 22:31

Champagne ! JL35
Revenir en haut Aller en bas
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 22:41

un cognac, ça suffira... mais pardon Nardo, je ne veux pas polluer ton topic !
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 22:46

Ya pas de pollution !! Very Happy

Oui Klaus proposait une astuce dans le même genre...
Je viens d'essayer avec ton exemple, cela ne fonctionne pas...
Neutral
Revenir en haut Aller en bas
http://nardo26.lescigales.org
Invité
Invité




Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 22:52

L'exemple de JL35 ne fonctionnait pas. Mais en réalité le chemin n'était pas bon vu que je suis sous XP, donc j'ai essayé avec des chemins qui existent, et là ça marche.
Revenir en haut Aller en bas
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:00

Ce n'est qu'un exemple, qui marche chez moi
Citation :
C:\Program Files (x86)\Panoramic Editor\PANORAMIC_EDITOR.exe
-> C:\PROGRA~2\PANORA~1\PANORA~1.EXE
(je suis sous Seven, sinon il faut mettre autre chose...)
et effectivement, on pourrait facilement rajouter un test d'existence du fichier (If File_Exists(nlong$) = 0 ...).
Revenir en haut Aller en bas
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:09

J'aime bien la façon d'aller récupérer les programmes nécessaires et l'extraction des mots clé est très rapide.
Par contre Nardo, une fois la lise extraite, ce serait bien de faire l'équivalent du programme de JL35 pour pouvoir avoir l'aide sur la commande dans une fenêtre en automatique. Enfin, si ça t’intéresse aussi.
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:13

Ben j'y suis arrivé, j'avais sabré quelques variables... Embarassed

Donc avec l'aide de JL35 voici une version sans DLL :
Code:
' ==============================================================================
'  GENERATION D'UN FICHIER CONTENANT LA LISTE DES MOT-CLES DE PANORAMIC
'  A partir d'un programme de Klaus...
' ==============================================================================
LABEL ErrProg
ON_ERROR_GOTO ErrProg
HIDE 0

DIM i,j

LABEL Nom_court
DIM Nom_court$,Nom_long$

WIDTH 0,int(screen_x/4)
HEIGHT 0,100
TOP 0,(SCREEN_Y-HEIGHT(0))/2
LEFT 0,(SCREEN_X-WIDTH(0))/2
CAPTION 0,"Génération mots-clés"
ALPHA 3000: CAPTION 3000,"Veuillez patienter...":LEFT 3000,20
TOP 3000,20

DIM PANO_EDIT$
DIM RSC_PRG$
DIM RSC_PAR$
DIM PATH$,OLD_PATH$
DIM bChange:bChange=0

PATH$=DIR_CURRENT$+"\"
OLD_PATH$=PATH$
Nom_long$=PATH$:gosub Nom_court: PATH$=Nom_court$


IF FILE_EXISTS(PATH$+"Motclef.ini")=1
  FILE_OPEN_READ 1,PATH$+"Motclef.ini"
    FILE_READLN 1,PANO_EDIT$
    FILE_READLN 1,RSC_PRG$
  FILE_CLOSE 1
  Nom_long$=PANO_EDIT$:gosub Nom_court:PANO_EDIT$=Nom_court$
  Nom_long$=RSC_PRG$:gosub Nom_court:RSC_PRG$=Nom_court$
END_IF

IF FILE_EXISTS(PANO_EDIT$)=0
  bChange=1
  MESSAGE "Sélectionnez l'éditeur Panoramic"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Editeur Panoramic|*.exe"
    PANO_EDIT$=FILE_NAME$(1)
    IF PANO_EDIT$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(PANO_EDIT$)=1
'  MESSAGE PANO_EDIT$
  DELETE 1
END_IF

IF FILE_EXISTS(RSC_PRG$)=0
  bChange=1
  MESSAGE "Sélectionnez Ressource Hacker"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Ressource Hacker|ResHacker.exe"
    RSC_PRG$=FILE_NAME$(1)
    IF RSC_PRG$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(RSC_PRG$)=1
  DELETE 1
END_IF
SHOW 0

' on sauvegarde les chemins d'accès en prévision d'une future mise à jour...
if bChange=1
  FILE_OPEN_WRITE 1,PATH$+"Motclef.ini"
    FILE_WRITELN 1,PANO_EDIT$
    FILE_WRITELN 1,RSC_PRG$
  FILE_CLOSE 1
  Nom_long$=PANO_EDIT$:gosub Nom_court:PANO_EDIT$=Nom_court$
  Nom_long$=RSC_PRG$:gosub Nom_court:RSC_PRG$=Nom_court$
end_if

DLIST 1000
DIM start$,mot$

RSC_PAR$ = " -extract "+PANO_EDIT$+", "+PATH$+"editor.res , RCData, KEYWORDS, 1036"
EXECUTE_WAIT RSC_PRG$+RSC_PAR$

FILE_OPEN_READ 1,PATH$+"editor.res"
  WHILE FILE_EOF(1)=0
    FILE_READLN 1,start$
    ' recherche nom
    IF start$="0"
      FILE_READLN 1,mot$
      IF INSTR(mot$,"(")<>0
        mot$=LEFT$(mot$,INSTR(mot$,"(")-1)
      END_IF
      ITEM_ADD 1000,mot$
    END_IF
  END_WHILE
FILE_CLOSE 1

SORT 1000
' on supprime les doublons (TOP/TOP(), WIDTH/WIDTH(), ... )
j = COUNT(1000)
FOR i = 2 TO j
  if (i > j) then EXIT_FOR
  if ITEM_READ$(1000, i) = ITEM_READ$(1000, i - 1)
    ITEM_DELETE 1000, i
    j = COUNT(1000)
  END_IF
NEXT i

FILE_SAVE 1000,PATH$+"Motclef.txt"
FILE_DELETE PATH$+"editor.res" : ' le fichier temporaire n'a plus de raison d'être...
MESSAGE "Le fichier "+OLD_PATH$+"motclef.txt a été sauvegardé"
TERMINATE

END



ErrProg:
 message error_type$+" line:"+str$(error_line)
TERMINATE

Nom_court:
 File_Open_Write 1, "C:\Nomcourt.bat"
 File_WriteLn 1, "@echo off"
 File_WriteLn 1, "for %%A in ("+chr$(34)+Nom_long$+chr$(34)+") do echo.%%~sfA >" +"c:\Nomcourt.txt"
 File_Close 1
 EXECUTE_WAIT "C:\Nomcourt.bat"
 File_Open_Read 1, "c:\Nomcourt.txt"
 File_ReadLn 1, Nom_court$
 File_Close 1
 File_Delete "c:\Nomcourt.txt": File_Delete "C:\Nomcourt.bat"
RETURN

EDIT : En fait mon idée c'est de reconvertir le prog de JL35 (mise en forme de source Panoramic)
Ma version fonctionne entièrement avec le presse-papier:

presse-papier -> beautifer -> presse-papier

Donc mon but était de récupérer une liste à jour des commandes de Panoramic...


Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:17

Tu vois, quand tu veux !
Tiens, bizarre, au 1er lancement il me dit 'File access denied', et puis il est planté...
Pareil aux autres essais, l'embêtant c'est qu'il est plutôt laconique, il ne me dit pas où ça se produit ni sur quel fichier ! scratch
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:29

Bizarre en effet, essaye de mettre en STOP dans nom_court:
l'accès à la racine ?

J'ai modifié le prog de manière à sauvegarder les noms courts dans le fichier ini:
comme ça j'ai les fenetres DOS uniquement lors du 1er lancement...
Code:

' ==============================================================================
'  GENERATION D'UN FICHIER CONTENANT LA LISTE DES MOT-CLES DE PANORAMIC
'  A partir d'un programme de Klaus...
' ==============================================================================
LABEL ErrProg
ON_ERROR_GOTO ErrProg
HIDE 0

DIM i,j

LABEL Nom_court
DIM Nom_court$,Nom_long$

WIDTH 0,int(screen_x/4)
HEIGHT 0,100
TOP 0,(SCREEN_Y-HEIGHT(0))/2
LEFT 0,(SCREEN_X-WIDTH(0))/2
CAPTION 0,"Génération mots-clés"
ALPHA 3000: CAPTION 3000,"Veuillez patienter...":LEFT 3000,20
TOP 3000,20

DIM PANO_EDIT$
DIM RSC_PRG$
DIM RSC_PAR$
DIM PATH$,OLD_PATH$
DIM bChange:bChange=0

PATH$=DIR_CURRENT$+"\"
OLD_PATH$=PATH$
Nom_long$=PATH$:gosub Nom_court: PATH$=Nom_court$


IF FILE_EXISTS(PATH$+"Motclef.ini")=1
  FILE_OPEN_READ 1,PATH$+"Motclef.ini"
    FILE_READLN 1,PANO_EDIT$
    FILE_READLN 1,RSC_PRG$
  FILE_CLOSE 1
END_IF

IF FILE_EXISTS(PANO_EDIT$)=0
  bChange=1
  MESSAGE "Sélectionnez l'éditeur Panoramic"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Editeur Panoramic|*.exe"
    PANO_EDIT$=FILE_NAME$(1)
    IF PANO_EDIT$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(PANO_EDIT$)=1
'  MESSAGE PANO_EDIT$
  DELETE 1
END_IF

IF FILE_EXISTS(RSC_PRG$)=0
  bChange=1
  MESSAGE "Sélectionnez Ressource Hacker"
  REPEAT
    OPEN_DIALOG 1
    FILTER 1,"Ressource Hacker|ResHacker.exe"
    RSC_PRG$=FILE_NAME$(1)
    IF RSC_PRG$="_" THEN TERMINATE
  UNTIL  FILE_EXISTS(RSC_PRG$)=1
  DELETE 1
END_IF
SHOW 0

' on sauvegarde les chemins d'accès en prévision d'une future mise à jour...
if bChange=1
  Nom_long$=PANO_EDIT$:gosub Nom_court:PANO_EDIT$=Nom_court$
  Nom_long$=RSC_PRG$:gosub Nom_court:RSC_PRG$=Nom_court$
  FILE_OPEN_WRITE 1,PATH$+"Motclef.ini"
    FILE_WRITELN 1,PANO_EDIT$
    FILE_WRITELN 1,RSC_PRG$
  FILE_CLOSE 1
end_if

DLIST 1000
DIM start$,mot$

RSC_PAR$ = " -extract "+PANO_EDIT$+", "+PATH$+"editor.res , RCData, KEYWORDS, 1036"
EXECUTE_WAIT RSC_PRG$+RSC_PAR$

FILE_OPEN_READ 1,PATH$+"editor.res"
  WHILE FILE_EOF(1)=0
    FILE_READLN 1,start$
    ' recherche nom
    IF start$="0"
      FILE_READLN 1,mot$
      IF INSTR(mot$,"(")<>0
        mot$=LEFT$(mot$,INSTR(mot$,"(")-1)
      END_IF
      ITEM_ADD 1000,mot$
    END_IF
  END_WHILE
FILE_CLOSE 1

SORT 1000
' on supprime les doublons (TOP/TOP(), WIDTH/WIDTH(), ... )
j = COUNT(1000)
FOR i = 2 TO j
  if (i > j) then EXIT_FOR
  if ITEM_READ$(1000, i) = ITEM_READ$(1000, i - 1)
    ITEM_DELETE 1000, i
    j = COUNT(1000)
  END_IF
NEXT i

FILE_SAVE 1000,PATH$+"Motclef.txt"
FILE_DELETE PATH$+"editor.res" : ' le fichier temporaire n'a plus de raison d'être...
MESSAGE "Le fichier "+OLD_PATH$+"motclef.txt a été sauvegardé"
TERMINATE

END



ErrProg:
 message error_type$+" line:"+str$(error_line)
TERMINATE

Nom_court:
 File_Open_Write 1, "C:\Nomcourt.bat"
 File_WriteLn 1, "@echo off"
 File_WriteLn 1, "for %%A in ("+chr$(34)+Nom_long$+chr$(34)+") do echo.%%~sfA >" +"c:\Nomcourt.txt"
 File_Close 1
 EXECUTE_WAIT "C:\Nomcourt.bat"
 File_Open_Read 1, "c:\Nomcourt.txt"
 File_ReadLn 1, Nom_court$
 File_Close 1
 File_Delete "c:\Nomcourt.txt": File_Delete "C:\Nomcourt.bat"
RETURN

EDIT: Oui j'ai l'impression que le ON_ERROR_GOTO ne fonctionne pas correctement :
on a l'impression que le GOTO se fait avant que les variables error_type$ et error_line soient à jour...

EDIT2 @jicehel:

Citation :
Par contre Nardo, une fois la lise extraite, ce serait bien de faire l'équivalent du programme de JL35 pour pouvoir avoir l'aide sur la commande dans une fenêtre en automatique. Enfin, si ça t’intéresse aussi.
Pourquoi tu demandes pas à JL35? ou mieux encore : pourquoi tu ne le fait pas ? Liste des mots-clé de Panoramic 14


Dernière édition par Nardo26 le Lun 7 Nov 2011 - 23:37, édité 1 fois
Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:33

J'y comprends rien du tout... j'enlève le Hide 0 pour y voir clair, je mets un stop dès le début (juste avant if file_exists(path$+...), je lance, et il reste figé sans rien dire, je dois tout relancer...
je vais planter le pc et relancer, pour voir...

Alors j'ai inhibé le On_error et le Hide 0, j'ai la fenêtre "Veuillez patienter..." et aussitôt 'File access denied", et ça reste figé comme ça. Je vais essayer de mettre des points d'arrêt.


Dernière édition par JL35 le Lun 7 Nov 2011 - 23:40, édité 1 fois
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:39

Bizarre car ça fonctionne très bien chez moi (sous Win7)

peut être le fichier temporaire : c:\nomcourt.bat ?
Tu arrives à passer jusqu'au fichier Motclef.ini ?


Dernière édition par Nardo26 le Lun 7 Nov 2011 - 23:47, édité 2 fois
Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:41

Il semble bien que ça coince dans le s/p nom court ! je continue...

En fait je pense que tu supposes que je suis loggé dans le répertoire de l'éditeur, ce qui n'est pas mon cas:
l'éditeur est sous program_files etc.
et je le lance depuis mes sources qui sont sous c:\Langages\Panoramic

En effet, quand j'arrive dans le s/p, nom_long$ est "C:\Langages\Panoramic", et c'est là que ça coince

C'est bien le nom court de l'éditeur qu'on cherche à obtenir ?
Revenir en haut Aller en bas
Invité
Invité




Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:49

Je viens de faire l'essais.
J'ai retiré le on_error_goto au début, pour voir où sa coince, et le programme fonctionne normalement.
Le seul problème est qu'on croit que c'est coincé, alors que les messages sont dessous l'éditeur.
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyLun 7 Nov 2011 - 23:55

@JL35 : oui c'est bien le nom court de l'éditeur
@cosmos : oui je me suis fait plusieurs fois piégé avec les messages qui passent en dessous de l'éditeur...

PS: J'ai exactement la même arborescence:
C:\Langages\panoramic\Src\...
et pour l'éditeur : C:\Program Files (x86)\Panoramic Editor
Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyMar 8 Nov 2011 - 0:02

Je verrai ça demain plus en détail, mais :
- j'ai remplace le nom long par le véritable chemin de l'éditeur
- ensuite ça coince parcequ'il ne veut pas me créer le .bat directement sous la racine du disque C:
Qu'à cela ne tienne, je le mets sous C:\Temp
- mais après il ne veut pas me créer le fichier résultat...

Ouf, ça y est, ça marche, simplement j'ai tout mis sous C:\Temp, il ne veut pas sous la racine, je ne sais pas pourquoi, encore une interdiction de W7.
Je verrai plus en détail demain, pour le moment Sleep à tous !

PS même arborescence, mais quand tu exécutes, tu es sous l'éditeur ou dans src ? moi je suis dans mes sources et je lance l'éditeur à partir de là, donc Dir_Currents c'est le répertoire sources.

TOUT FONCTIONNE CORRECTEMENT FINALEMENT !


Dernière édition par JL35 le Mar 8 Nov 2011 - 0:08, édité 1 fois
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyMar 8 Nov 2011 - 0:07

Idem pour moi : je suis dans les sources...
Par contre, j'ai l'impression de changer de DIR_CURRENT$ (sans avoir fait de manips particulières) -> je suis obligé de temps en temps de "forcer" le chemin en faisant une sauvegarde... scratch


Revenir en haut Aller en bas
http://nardo26.lescigales.org
JL35




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

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyMar 8 Nov 2011 - 0:08

On s'est croisés, bonne nuit Nardo !
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic EmptyMar 8 Nov 2011 - 0:09

A+ Sleep Sleep Sleep Sleep Sleep Sleep Sleep
Revenir en haut Aller en bas
http://nardo26.lescigales.org
Contenu sponsorisé





Liste des mots-clé de Panoramic Empty
MessageSujet: Re: Liste des mots-clé de Panoramic   Liste des mots-clé de Panoramic Empty

Revenir en haut Aller en bas
 
Liste des mots-clé de Panoramic
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Liste des mots-clé de Panoramic avec leur classification
» Liste des mots-clés
» Nouvelle version 0.34
» Aide-mémoire des mots-clés Panoramic
» Aide-mémoire des mots-clés Panoramic

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: