bidouillage de fichiers en genealogie

' pour Maeliloule dossier
dim cible$ : cible$ = "D:\genealogie h14\Demo-Mael121201.hmw\Media\"
dim source$ : source$ = "D:\genealogie h14\actes_vanderesse_nizet\"
dim f$, n$, i%, d$, photo$

dlist 1

progress_bar 2 : top 2,20 : left 2,20 : width 2,width(0) - 60

dir_change cible$          : ' se positionner dans le dossier ciblé
f$ = file_find_first$      : ' récupérer le premier nom de fichier
while f$<>"_"              : ' boucle sur le contenu du dossier
  n$ = file_extract_name$(f$)            : ' éliminer tout sauf le nom du fichier
  if left$(n$,1)="#" then item_add 1,f$  : ' si c'est un #xxx, alors mémoriser
  f$ = file_find_next$                   : ' chercher le fichier suivant
end_while                  : ' fin de la boucle de recherche
file_find_close            : ' clore la recherche proprement

if count(1)=0
  message "Le dossier "+cible$+" est vide !"
  terminate
end_if

' ici, la DLIST 1 contient la liste des dossiers à traiter
min 2,0 : max 2,count(1)
position 2,0
for i%=1 to count(1)       : ' boucle sur tous les dossiers à traiter
  d$ = item_read$(1,i%)    : ' récupérer le nom du dossier
  dir_change d$            : ' se positionner dans ce dossier
  f$ = file_find_first$    : ' ce dossier est censé contenir UN SEUL fichier
  file_find_close          : ' terminer la recherche proprement
  if f$<>"_"               : ' test par sécurité...
    n$ = file_extract_name$(f$)   : ' prendre juste le nom
    photo$ = source$ + n$  : ' construire le nom de la photo originale
    if file_exists(photo$) : ' test existence par sécurité...
      file_delete f$+n$    : ' supprimer la photo réduite
      file_copy photo$,f$+n$  : ' et remplacer par la photo originale
    end_if
  end_if
  position 2,i%
next i%

message "Terminé."
terminate

end

dim b$,c$,sep%,sep2%
O_Form(0,0,1,0,0,350,530,"detect_files")
O_Memo(1,0,1,10,10,300,500,""):bar_both 1
b$="C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\"
c$="C:\Users\Yannick\Desktop\Panoramic Le Mag\"
sep%=len(b$)
sep2%=len(c$)
dll_on "KGF.dll"
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Articles")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Articles_en")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Cours")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Manuels")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Sources_bas")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Subs")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Telechargements")
detect_fic("C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM_le_site\Images")
dll_off
file_save 1,"C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM.inf"
terminate
end


sub detect_fic(dir$)
  dim_local a$,dos$,fichier$,dat$,res%,x%,g$,d$,p%,line%,cpt% ,line$
  cpt%=0
  if len(dir$)>sep%
      dos$=right$(dir$,len(dir$)-sep%)
  else
      dos$=right$(dir$,len(dir$)-sep2%)
  end_if
  Item_add 1,"["+dos$+"]"
  line%=count(1)
  dir_change dir$
  a$=file_find_first$
  p%=0
  for x%=1 to len(a$)
      if x%=1 :d$=a$:end_if
      g$=left$(d$,1)
      if len(d$)>1:d$=right$(d$,len(d$)-1):end_if
      if g$="." :p%=1:exit_for:end_if
  next x%
  if left$(a$,1)<>"." and p%=1
      fichier$=dir$+"\"+a$
      dat$=string$(255," "
      res% = dll_call2("GetFileDate",adr(fichier$),adr(dat$))
      dat$=trim$(dat$)
      item_add 1,left$(dat$,10)+"  -  "+right$(dat$,len(dat$)-10)+"  |  "+a$
      cpt%=cpt%+1
  end_if
  a$=file_find_next$
  while a$<>"_"
      p%=0
      for x%=1 to len(a$)
        if x%=1 :d$=a$:end_if
        g$=left$(d$,1)
        if len(d$)>1:d$=right$(d$,len(d$)-1):end_if
        if g$="." :p%=1:exit_for:end_if
      next x%
      if left$(a$,1)<>"." and p%=1
        fichier$=dir$+"\"+a$
        dat$=string$(255," ")
        res% = dll_call2("GetFileDate",adr(fichier$),adr(dat$))
        dat$=trim$(dat$)
        item_add 1,left$(dat$,10)+"  -  "+right$(dat$,len(dat$)-10)+"  |  "+a$
        cpt%=cpt%+1
      end_if
      a$=file_find_next$
  end_while
  file_find_close
  line$=item_read$(1,line%)
  item_delete 1,line%
  item_Insert 1,line%,line$+"["+str$(cpt%)+"]"
end_sub

#include "OBJ_SUB.bas"

dim inf$,p%,nouvo%,modif%,supprim%

inf$="C:\Users\Yannick\Desktop\Panoramic Le Mag\PLM.inf"

O_Form(0,0,1,0,0,650,730,"detect_files")
O_Alpha(5,0,1,5,10,0,0,"Rapport"):font_bold 5
O_Memo(1,0,1,20,10,200,700,""):bar_both 1
O_Dlist(2,inf$)
O_Alpha(4,0,1,225,10,0,0,"Fichiers modifiés"):font_bold 4
O_Memo(3,0,1,240,10,200,700,""): bar_both 3
O_Alpha(6,0,1,445,10,0,0,"Fichiers supprimés"):font_bold 6
O_Memo(7,0,1,460,10,150,700,""): bar_both 7
O_Dlist(8,"")

O_Form(100,0,1,0,0,300,750,"visu")
O_Memo(101,100,1,5,5,240,720,""):bar_both 101
dll_on "KGF.dll"
verif_Nfiles()
dll_off
end

sub verif_Nfiles()
  dim_local x%,a$,sep%,dir$,Nfile$,Nfile%,b$,file$,line$,line%,cpt%,erase%,z% ,Nbfile%
  for x%=1 to count(2)
      a$=item_read$(2,x%)
      if left$(a$,1)="["
        nouvo%=0 : Modif%=0 :Nbfile%=0
        sep%=instr(a$,"]")
        dir$=mid$(a$,2,(sep%-2))
        Nfile$=trim$(right$(a$,len(a$)-sep%))
        sep%=instr(Nfile$,"]")
        Nfile$=mid$(Nfile$,2,sep%-2)
        Nfile%=val(Nfile$)
        item_add 1,dir$
        line%=count(1)
        if x%=1
            dir$="C:\Users\Yannick\Desktop\Panoramic Le Mag\"+dir$
        else
            dir$="C:\Users\Yannick\Desktop\Panoramic Le Mag\"+"PLM_le_site\"+dir$
        end_if
        dir_change dir$
        item_add 101,dir$
        b$=file_find_first$
        verif_is_file(b$)
        if p%=2
            file$=dir$+"\"+b$
            Compare(file$,x%,Nfile%,dir$)
            item_add 8,file$
            Nbfile%=Nbfile%+1
        end_if
        b$=file_find_next$
        while b$<>"_"
            verif_is_file(b$)
            if p%=2
              file$=dir$+"\"+b$
              Compare(file$,x%,Nfile%,dir$)
              item_add 8,file$
              Nbfile%=Nbfile%+1
            end_if
            b$=file_find_next$
        end_while
        file_find_close

        supprim% =0
        for z%=x%+1 to x%+Nfile%
            a$=item_read$(2,z%)
            sep%=instr(a$,"|")
            a$=right$(a$,len(a$)-sep%)
            a$=dir$+"\"+trim$(a$)
            cpt%=0 : erase%=0
            repeat
              cpt%=cpt%+1
              b$=item_read$(8,cpt%)
              if a$=b$ :erase%=1:exit_repeat:end_if

            until cpt%=count(8)
            if erase%=0
              supprim%=supprim%+1
              item_add 7,a$
            end_if
        next z%

        item_insert 1,line%+1,"["+str$(Nbfile%) +"]fichiers"
        item_insert 1,line%+2,"["+str$(modif%)  +"]modifié(s)"
        item_insert 1,line%+3,"["+str$(supprim%)+"]supprimé(s)"
        item_insert 1,line%+4,"["+str$(nouvo%)  +"]Nouveau(x)"
      end_if
  Next x%
end_sub

sub verif_is_file(f$)
  dim_local x%,d$,g$
  p%=0
  if left$(f$,1)<>".":p%=1:end_if
  for x%=1 to len(f$)
      if x%=1 :d$=f$:end_if
      g$=left$(d$,1)
      if len(d$)>1:d$=right$(d$,len(d$)-1):end_if
      if g$="." :p%=p%+1:exit_for:end_if
  next x%
end_sub

sub Compare(f$,dep%,nf%,do$)
  dim_local a$,file2$,day1$,day2$,heur1$,heur2$,sep%,sep2%,y%,fichier$,dat$,res%,compare%,mod%
  compare%=0 :mod%=0
  for y%=dep%+1 to dep%+nf%
      a$=item_read$(2,y%)
      sep%=instr(a$,"|")
      file2$=trim$(right$(a$,len(a$)-sep%))
      file2$=do$+"\"+file2$
      if f$=file2$
        compare%=1
        dat$=string$(255," ")
        fichier$=f$
        res% = dll_call2("GetFileDate",adr(fichier$),adr(dat$))
        dat$=trim$(dat$)
        day1$=left$(dat$,10):heur1$=trim$(right$(dat$,len(dat$)-10))
        day2$=left$(a$,10)  :sep%=instr(a$,"-"):sep2%=instr(a$,"|"):heur2$=trim$(mid$(a$,sep%+1,sep2%-(sep%+1)))
        if day1$<>day2$
            mod%=1
            item_add 3,file2$
        else
            if heur1$<>heur2$
              mod%=1
              item_add 3,file2$
            end_if
        end_if
        exit_for
      end_if
  next y%
  if mod%=1
      modif%=modif%+mod%
  end_if
  if compare%=0
      Nouvo%=Nouvo%+1
      item_add 1,"New file :"+f$
  end_if
end_sub

#include "OBJ_SUB.bas"

dim dir_log$,dir_save$

dir_log$=dir_current$+"\D_Log"
dir_save$=dir_current$+"\D_Save"

ExchangeFiles(dir_log$,dir_save$)
end


Sub ExchangeFiles(Dlog$,Dsave$)
   dim_local obj%,f$,fic$,fic2$,dir$,x%
   obj%=number_objects+1
   dlist obj%
   dir_change Dlog$
   f$=file_find_first$
   if left$(f$,1)="#" :item_add obj%,Dlog$+"\"+f$ :print Dlog$+f$ :end_if
   f$=file_find_next$
   while f$<>"_"
      if left$(f$,1)="#" :item_add obj%,Dlog$+"\"+f$ :print Dlog$+f$ :end_if
      f$=file_find_next$
   end_while
   file_find_close
  
   for x%=1 to count(obj%)
      dir$=item_read$(obj%,x%)
      dir_change dir$
      f$=file_find_first$
      if f$<>"." and f$<>".."
         print f$
         fic$=dir$+"\"+f$
         fic2$=Dsave$+f$
         if file_exists(fic2$)=1
            file_delete fic$
            file_copy fic2$,fic2$
            caption 0,"Exchange "+f$
         end_if
      end_if
      f$=file_find_next$
      while f$<>"_"
      if f$<>"." and f$<>".."
         print f$
         fic$=dir$+"\"+f$
         fic2$=Dsave$+"\"+f$
         print fic$
         print fic2$
         if file_exists(fic2$)=1
            file_delete fic$
            file_copy fic2$,fic$
            caption 0,"Exchange "+f$
         else
            message "fichier : "+fic2$+chr$(13)+"Inexistant..."
         end_if
      end_if
      f$=file_find_next$
      end_while
      file_find_close
   next x%
  
   Message "Mise à jour terminée !"
End_Sub

message "dossier: "+d$

  message f$+"==>["+n$+"]"

' pour Maeliloule dossier
dim cible$ : cible$ = "D:\genealogie h14\Demo-Mael121201.hmw\Media\"
dim source$ : source$ = "D:\genealogie h14\actes_vanderesse_nizet\"
dim f$, n$, i%, d$, photo$

dlist 1

progress_bar 2 : top 2,20 : left 2,20 : width 2,width(0) - 60

dir_change cible$          : ' se positionner dans le dossier ciblé
f$ = file_find_first$      : ' récupérer le premier nom de fichier
while f$<>"_"              : ' boucle sur le contenu du dossier
  n$ = file_extract_name$(f$)            : ' éliminer tout sauf le nom du fichier
  if left$(n$,1)="#" then item_add 1,f$  : ' si c'est un #xxx, alors mémoriser
  f$ = file_find_next$                  : ' chercher le fichier suivant
end_while                  : ' fin de la boucle de recherche
file_find_close            : ' clore la recherche proprement

if count(1)=0
  message "Le dossier "+cible$+" est vide !"
  terminate
end_if

' ici, la DLIST 1 contient la liste des dossiers à traiter
min 2,0 : max 2,count(1)
position 2,0
for i%=1 to count(1)      : ' boucle sur tous les dossiers à traiter
  d$ = item_read$(1,i%)    : ' récupérer le nom du dossier
  dir_change d$            : ' se positionner dans ce dossier
  if trim$(d$)<>""
    f$ = file_find_first$    : ' ce dossier est censé contenir UN SEUL fichier
    file_find_close          : ' terminer la recherche proprement
    if f$<>"_"              : ' test par sécurité...
      n$ = file_extract_name$(f$)  : ' prendre juste le nom
      photo$ = source$ + n$  : ' construire le nom de la photo originale
      if file_exists(photo$) : ' test existence par sécurité...
        file_delete f$+n$    : ' supprimer la photo réduite
        file_copy photo$,f$+n$  : ' et remplacer par la photo originale
      end_if
    end_if
    position 2,i%
  end_if
next i%

message "Terminé."
terminate

end