Preparateur_Projet_Panoramic

' Preparateur_Projet_Panoramic.bas par JC

' Ce code prépare un dossier à l'emplacement que vous aurez indiqué ligne 20,
'    avec le nom du projet, et initialise le fichier.bas à l'intérieur du dossier
' Le code généré est transformable suivant vos préférences de programmation
'    (vous pouvez changer vos lignes pré-codées à partir de la ligne 92)
' Ce programme contrôle qu'il n'y a pas de caractères spéciaux dans le nom du fichier
'    et il remplace tout les espaces par "_"
' Ce programme contrôle l’existence du fichier.bas à l'emplacement a$

' UTILISATION:
' Pour l'utiliser, adaptez l'emplacement ligne 20, enregistrez, puis créez un exécutable
' Fermez l'éditeur. Lancez l'exécutable, indiquez le nom du projet et cliquez sur [OK]
' Une fois le projet crée, vous ouvrez le dossier et vous double-cliquez sur le fichier.bas
'     l'éditeur Panoramic s'ouvrira avec le projet chargé.

error_french
hide 0
Dim_Label()
a$="C:\Users\JeanClaude\Desktop\" : ' indiquez l'emplacement du projet
New_Projet(): ' retourne le nom du projet dans b$
Cre_dossier_Fichier(a$,b$):' création du dossier et du fichier.bas
terminate
END
' -------------
Sub New_Projet()
m1:
b$=message_input$("Nouveau Projet Panoramic","Entrez le nom de votre nouveau projet Panoramic","Nouveau_Projet")
if b$="" then message "Nom de Projet incorrect":goto m1
Ctrl_Caracteres_Interdits(b$)
Ctrl_Nom_Interdit(b$)
if ok$="N" then goto m1
if ok$="N" then goto m1
' remplace tout les espaces de la chaine b$ par _  (sub de Bignono, adaptée JC)
for n%=1 to len(b$)
substitue(b$,"_"," "):b$=new_chaine$: ' remplace l'espaces par _
next n%
c$=b$+".bas":' c$ est le fichier.bas
End_sub

Sub Ctrl_Nom_Interdit(chaine$)
ok$="":chaine$=upper$(chaine$)
 if chaine$="CON" or chaine$="PRN" or chaine$="AUX" or chaine$="NUL" or chaine$="COM1"
 message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows":ok$="N":exit_sub
 end_if
 if chaine$="COM2" or chaine$="COM3" or chaine$="COM4" or chaine$="COM5" or chaine$="COM6"
 message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows":ok$="N":exit_sub
 end_if
 if chaine$="COM7" or chaine$="COM8" or chaine$="COM9" or chaine$="LPT1" or chaine$="LPT2"
 message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows":ok$="N":exit_sub
 end_if
 if chaine$="LPT3" or chaine$="LPT4" or chaine$="LPT5" or chaine$="LPT6" or chaine$="LPT7"
 message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows":ok$="N":exit_sub
 end_if
 if chaine$="LPT8" or chaine$="LPT9"
 message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows":ok$="N":exit_sub
 end_if
End_sub
' -------------
Sub Ctrl_Caracteres_Interdits(chaine$)
ok$=""
dim_local a%,car1$
for a%=1 to len(chaine$)
car1$=mid$(chaine$,a%,1)
if asc(car1$)>0 and asc(car1$)<32 then message_car_interdit(car1$):exit_sub
if asc(car1$)>32 and asc(car1$)<48 then message_car_interdit(car1$):exit_sub
if asc(car1$)>57 and asc(car1$)<65 then message_car_interdit(car1$):exit_sub
if asc(car1$)>90 and asc(car1$)<95 then message_car_interdit(car1$):exit_sub
if asc(car1$)=96 then message_car_interdit(car1$):exit_sub
if asc(car1$)>122 then message_car_interdit(car1$):exit_sub
next a%
End_sub
' ------------------------
Sub message_car_interdit(car$)
message "Le caratère [ "+car$+" ] est interdit":ok$="N"
End_sub
' ----------------------------------
Sub substitue(chaine$,new$,old$)
' remplace old$ par new$ et renvoi le résultat dans la variable globale new_chaine$ (sub de Bignono, modifiée JC)
  dim_local i%
  i%=instr(chaine$,old$)
  if i%>0
     new_chaine$=left$(chaine$,i%-1)+new$:new_chaine$=new_chaine$+right$(chaine$,len(chaine$)-i%-len(old$)+1)
  else
     new_chaine$=chaine$
  end_if
End_sub
' -------------
Sub Cre_dossier_Fichier(dos_courant$,rep$)
a$=dos_courant$+rep$
if dir_exists(a$)=0
   dir_make a$:dir_change a$
   file_open_write 1,c$
   file_writeln 1,"' "+b$
   file_writeln 1,""
   file_writeln 1,"error_french"
   file_writeln 1,"Dim_Label()"
   file_writeln 1,"Objets()"
   file_writeln 1,""
   file_writeln 1,"END"
   file_writeln 1,"' ============================================================================="
   file_writeln 1,"Sub Dim_Label()"
   file_writeln 1,""
   file_writeln 1,"End_Sub"
   file_writeln 1,"' ----------"
   file_writeln 1,"Sub Objets()"
   file_writeln 1,""
   file_writeln 1,"End_Sub"
   file_writeln 1,"' ----------"
   file_close 1
else
   message rep$+" existe déjà à l'emplacement "+dos_courant$
end_if
end_sub
' -------------
Sub Dim_Label()
dim a$,b$,c$,ok$,new_chaine$,n%
label m1
end_sub

for n%=1 to len(b$)
c$=mid$(b$,n%,1)
if c$=" " then b$=left$(b$,n%-1)+"_"+right_pos$(b$,n%+1)
' substitue(b$,"_"," "):b$=new_chaine$: ' remplace l'espaces par _
next n%

      restore
      for i=1 to 22
         read a$
         if upper$(D$)=a$ then message "Nom de dossier interdit! Recommencez!":D$="":exit_for
      next i
' Liste de datas: noms de dossier interdits
data "CON","PRN","AUX","NUL","COM1","COM2","COM3","COM4","COM5","COM6","COM7"
data "COM8","COM9","LPT1","LPT2","LPT3","LPT4","LPT5","LPT6","LPT7","LPT8","LPT9"

' Preparateur_Projet_Panoramic2.bas par JC avec la participation de Papydall et Bignono

' Ce code prépare un dossier à l'emplacement que vous aurez indiqué ligne 20,
'    avec le nom du projet, et initialise le fichier.bas à l'intérieur du dossier
' Le code généré est transformable suivant vos préférences de programmation
'    (vous pouvez changer vos lignes pré-codées à partir de la ligne 86)
' Ce programme contrôle qu'il n'y a pas de caractères spéciaux dans le nom du fichier
'    également que le nom du dossier n'est pas interdit et il remplace tout les espaces par "_"
' Ce programme contrôle l’existence du fichier.bas à l'emplacement a$

' UTILISATION:
' Pour l'utiliser, adaptez l'emplacement ligne 20, enregistrez, puis créez un exécutable
' Fermez l'éditeur. Lancez l'exécutable, indiquez le nom du projet et cliquez sur [OK]
' Une fois le projet crée, vous ouvrez le dossier et vous double-cliquez sur le fichier.bas
'     l'éditeur Panoramic s'ouvrira avec le projet chargé.

error_french
hide 0
Dim_Label()
a$ = "C:\Users\JeanClaude\Desktop\" : ' indiquez l'emplacement du projet
New_Projet(): ' retourne le nom du projet dans b$
Cre_dossier_Fichier(a$,b$):' création du dossier et du fichier.bas
terminate
END
rem ============================================================================
' modifié par Papydall
Sub New_Projet()
    repeat
       repeat
          b$ = message_input$("Nouveau Projet Panoramic","Entrez le nom de votre nouveau projet Panoramic","Nouveau_Projet")
       until b$ <> ""
       Ctrl_Caracteres_Interdits(b$) : Ctrl_Nom_Interdit(b$)
    until ok$ <> "N"
' remplace tout les espaces de la chaine b$ par _  (sub de Bignono, adaptée JC)
    for n% = 1 to len(b$)
        substitue(b$,"_"," "):b$=new_chaine$: ' remplace l'espaces par _
    next n%
    c$ = b$ + ".bas" :' c$ est le fichier.bas
End_sub
rem ============================================================================
' modifié par Papydall
Sub Ctrl_Nom_Interdit(chaine$)
    dim_local interdit$
    if ok$ = "N" then exit_sub
    interdit$ = "CON,PRN,AUX,NUL,COM,COM1,COM2,COM3,COM4,COM5,COM6,COM7,COM8,COM9,LPT1,LPT2,LPT3,LPT4,LPT5,LPT6,LPT7,LPT8,LPT9"
    ok$ = "" : chaine$ = upper$(chaine$)
    if instr(interdit$,chaine$) > 0
       message "désolé le nom de dossier [ "+chaine$+" ] est réservé à Windows"
       ok$ = "N" : exit_sub
    end_if
end_sub
rem ============================================================================
' Modifié par Papydall
Sub Ctrl_Caracteres_Interdits(chaine$)
    dim_local as, a%,car1$
    ok$ = ""
    for a% = 1 to len(chaine$)
        car1$ = mid$(chaine$,a%,1)
        as = asc(car1$)
        if (as > 0) and (as < 32) or (as > 32) and(as<48) or (as >57) and(as < 65) or(as>90)and(as<95) or (as=96) or(as >122)
            message_car_interdit(car1$):exit_sub
        end_if
    next a%
End_sub
rem ============================================================================
Sub message_car_interdit(car$)
message "Le caratère [ "+car$+" ] est interdit":ok$="N"
End_sub
' ----------------------------------
Sub substitue(chaine$,new$,old$)
' remplace old$ par new$ et renvoi le résultat dans la variable globale new_chaine$ (sub de Bignono, modifiée JC)
  dim_local i%
  i%=instr(chaine$,old$)
  if i%>0
    new_chaine$=left$(chaine$,i%-1)+new$:new_chaine$=new_chaine$+right$(chaine$,len(chaine$)-i%-len(old$)+1)
  else
    new_chaine$=chaine$
  end_if
End_sub
' -------------
Sub Cre_dossier_Fichier(dos_courant$,rep$)
a$=dos_courant$+rep$
if dir_exists(a$)=0
  n%=message_confirmation_yes_no("Validez-vous la création de ce projet: "+a$)
  if n%<>1 then terminate
  dir_make a$:dir_change a$
  file_open_write 1,c$
  file_writeln 1,"' "+b$
  file_writeln 1,""
  file_writeln 1,"error_french"
  file_writeln 1,"Dim_Label()"
  file_writeln 1,"Objets()"
  file_writeln 1,""
  file_writeln 1,"END"
  file_writeln 1,"' ============================================================================="
  file_writeln 1,"Sub Dim_Label()"
  file_writeln 1,""
  file_writeln 1,"End_Sub"
  file_writeln 1,"' ----------"
  file_writeln 1,"Sub Objets()"
  file_writeln 1,""
  file_writeln 1,"End_Sub"
  file_writeln 1,"' ----------"
  file_close 1
  message a$ + " est crée, le dossier va s'ouvrir"  : ' ajouté par Papydall
  execute a$
else
  message rep$+" existe déjà à l'emplacement "+dos_courant$
end_if
end_sub
' -------------
Sub Dim_Label()
dim a$,b$,c$,ok$,new_chaine$,n%
end_sub

execute "C:\PROGRA~2\PANORA~1\PANORA~1.EXE " + a$

execute "C:\PROGRA~2\PANORA~1\PANORA~1.EXE " + a$ + "\" + b$ + ".bas"

dim interdit$,chaine$
chaine$ = "X"
interdit$ = "CON,PRN,AUX,NUL,COM1,COM2,COM3,COM4,COM5,COM6,COM7,COM8,COM9,LPT1,LPT2,LPT3,LPT4,LPT5,LPT6,LPT7,LPT8,LPT9"
message instr(interdit$,chaine$)

 message a$ + " est crée, le dossier va s'ouvrir"  : ' ajouté par Papydall

EXECUTE "Chemin_de_lediteur.exe "+"C:\Users\JeanClaude\Desktop\Monprojet"

EXECUTE "Chemin_de_lediteur.exe "+"C:\Users\JeanClaude\Desktop\Monprojet\Monprojet.bas"

execute a$+"\"+c$