Liste des mots-clé de Panoramic

' ==============================================================================
'  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

' 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

' ==============================================================================
'  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

' ==============================================================================
'  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