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
» Problème de compilateur.
par Pedro Alvarez Hier à 20:01

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Hier à 19:54

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Sélecteur de chemin pour création d'un nouveau dossier

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Sélecteur de chemin pour création d'un nouveau dossier    Mer 26 Fév 2014 - 23:10

Bonsoir à tous,

Voici un autre "Sélecteur de chemin pour création d'un nouveau dossier" (inspirer d'un code de Cosmos)

Comme toujours, j'attend vos commentaires et éventuel bug(s).

Code:
' Sélecteur de dossier pour déterminer un chemin
dim a$,b$,no%,dep%,fin%,dir$,bouton_renew%,bouton_select%
label continu,init,sortie,fin

width 0,1180:height 0,600:on_close 0,fin

no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,5
dep%=no%
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
fin%=no%
no%=no%+1:bouton_renew%=no%:button no%:width no%,100:top no%,520:left no%,5:caption no%,"Recommencer"
no%=no%+1:bouton_select%=no%:button no%:width no%,100:top no%,520:left no%,width(0)-125:caption no%,"Sélectionner"

for no%=dep% to fin%
on_click no%,continu:inactive no%
next no%

on_click bouton_renew%,init
on_click bouton_select%,sortie

gosub init
END
' ==============================================================================
sortie:
if right$(dir$,1)="\" then dir$=left$(dir$,len(dir$)-1)
caption 0,dir$:' Résultat dans le bandeau
dir_change dir$:' à conserver ou pas
wait 2000:' pour donner le temps de voir le résultat
terminate:' à adapter suivant vos besoin
return

init:
  for no%=dep% to fin%
    clear no%:active no%
    dir$="C:\":dir_change dir$
    afi_sous_rep(dep%)
  next no%
return

continu:
   no%=number_click:inactive no%:b$=item_index$(no%)
if b$="."
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
else
   if b$=".."
      dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   end_if
end_if
   a$=dir$+b$+"\":dir$=a$
   dir_change a$
   no%=no%+1
if no%<fin%+1
   afi_sous_rep(no%)
else
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   message "Impossible de continuer la recherche":return
end_if
   caption 0,dir$
return

Sub afi_sous_rep(num_list%)
active num_list%
  dim_local test%
  clear num_list%
a$=file_find_first$
  while a$<>"_"
      test%=File_Exists(a$)
      if test%=0
         item_add num_list%,a$
      end_if
      a$=file_find_next$
  end_while
file_find_close
  if count(num_list%)=0
     dir$=left$(dir$,len(dir$)-1):caption 0,dir$
     message "Recherche terminé"
  end_if
End_sub

fin:
terminate
return

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Sélecteur de chemin pour création d'un nouveau dossier
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Servimg pour les membres sur un nouveau forum
» Comment fait on pour faire apparaitre le mot nouveau
» Petite création d'un QEEL pour un tout nouveau forum !
» Lecteur MIDI files pour FR-3/5/7
» url ou script pour création automatique d'un sujet

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: