memomisation a partir d'un xls

dim fic$, url$, res%,  range$, content$, formula$, wb$

dll_on "kgf"
fic$ = "c:\TourD Deluxe\test.xls"
list 1
url$ = "http://www.ffjd.fr/CP/C_Classement_Joueurs_CP.php?Actifs_Licencies=0"

res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))

res% = dll_call1("StartExcel",0)
wb$ = "c:\TourD Deluxe\test.xls"
res% = dll_call2("OpenExcelWorkBook",adr(wb$),1)


range$ = "B12"
content$ = string$(255," ")
formula$ = string$(255," ")
res% = dll_call3("ReadExcelCell",adr(range$),adr(content$),adr(formula$))
content$ = trim$(content$)


item_add 1,content$
res% = dll_call0("TerminateExcel")

dll_off

url$ = "http://www.ffjd.fr/CP/C_Classement_Joueurs_CP.php?Actifs_Licencies=0"

item_add 1,trim$(content$) : ' pour réduire la longue chaîne d'espaces à la fin...
' res% = dll_call0("TerminateExcel") : ' désactiver pour voir si le probème vient de là...

dll_off

DIM i%, j%
DIM Debut_Champ%, Fin_Champ%
DIM position_dans_fiche%
DIM Longueur_Champ%
DIM fiche_joueur$
DIM entete$(16)
DIM Fiche$(16)
DIM Index% : ' Numéro de fiche affichée

LABEL Fiche_suivante
LABEL Fiche_Precedente

Index% = 1

Affichage_Mask()
Affichage_Ligne_entete()
Affichage_fiche()

ON_CLICK 33, fiche_Suivante
ON_CLICK 34, Fiche_Precedente

END

' ------------------------------------------------------------------------------
SUB Affichage_Mask()

   FOR i% = 1 to 16
      EDIT i%
      LEFT i%, 20
      TOP i%, 10+(i%*25)
   NEXT i%

   FOR i% = 17 to 32
      EDIT i%
      LEFT i%, 200
      TOP i%, 10+((i%-16)*25)
   NEXT i%

   BUTTON 33
      LEFT 33, 500
      TOP 33, 250
      CAPTION 33, "+ + +"

   BUTTON 34
      LEFT 34, 500
      TOP 34, 400
   CAPTION 34, "- - -"

   EDIT 35
      LEFT 35, 400
      TOP 35, 50

END_SUB

' ------------------------------------------------------------------------------
SUB Ouverture_fichier()

   FILE_OPEN_READ 1, "Liste_Complete_Joueurs_FFJD.csv"

END_SUB

' ------------------------------------------------------------------------------
SUB Affichage_Ligne_entete()
   FILE_OPEN_READ 1, "Liste_Complete_Joueurs_FFJD.csv"
   i% = 1
   Debut_Champ% = 1
   FILE_READLN 1, fiche_joueur$

   FOR Debut_Champ% = 1 to LEN(Fiche_joueur$)
      Fin_Champ% = INSTR_POS(fiche_joueur$,";",Debut_Champ%)
      Longueur_Champ%= Fin_Champ% - Debut_Champ%
      IF Longueur_Champ% >0
         entete$(i%)= mid$(fiche_joueur$,Debut_Champ%,Longueur_champ%)
         TEXT i%, entete$(i%)
         Debut_Champ% = Fin_champ%
      END_IF
      i% = i% + 1
   NEXT Debut_Champ%

   FILE_CLOSE 1
END_SUB

' ------------------------------------------------------------------------------

SUB Affichage_fiche()
   i% = 1
   FILE_OPEN_READ 1, "Liste_Complete_Joueurs_FFJD.csv"

   FOR j% = 1 to Index%
      Fiche_joueur$ = FILE_READLN$(1)
   NEXT j%

   FOR Debut_Champ% = 1 to LEN(Fiche_joueur$)
      Fin_Champ% = INSTR_POS(fiche_joueur$,";",Debut_Champ%)
      Longueur_Champ%= Fin_Champ% - Debut_Champ%
      IF Longueur_Champ% >0
         Fiche$(i%)= mid$(fiche_joueur$,Debut_Champ%,Longueur_champ%)
         TEXT i%+16, Fiche$(i%)
         Debut_Champ% = Fin_champ%
      END_IF
      i% = i% + 1
   NEXT Debut_Champ%

   FILE_CLOSE 1
   TEXT 35, "fiche n° " + STR$(Index%)
END_SUB

' ------------------------------------------------------------------------------
Fiche_Suivante:

   Index% = Index% + 1
   Affichage_Fiche()

RETURN

' ------------------------------------------------------------------------------
Fiche_Precedente:

   Index% = Index% - 1
   IF Index% < 1 THEN Index% = 1
   Affichage_Fiche()

RETURN

dim fic$, url$, res%,  range$, content$, formula$, wb$, points$

dll_on "kgf"
list 1

res% = dll_call1("StartExcel",1)
wb$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\Liste_Complete_Joueurs_FFJD.csv" : ' "c:\TourD Deluxe\test.xls"
res% = dll_call2("OpenExcelWorkBook",adr(wb$),1)


range$ = "B11"
content$ = string$(255," ")
formula$ = string$(255," ")
res% = dll_call3("ReadExcelCell",adr(range$),adr(content$),adr(formula$))
content$ = trim$(content$)
range$ = "D11"
points$ = string$(255," ")
formula$ = string$(255," ")
res% = dll_call3("ReadExcelCell",adr(range$),adr(points$),adr(formula$))
points$ = trim$(points$)


item_add 1,content$+" a "+points$+" points"
pause 1000   : ' la durée de la pause est à ajuster selon les besoins
res% = dll_call0("TerminateExcel")

dll_off

DIM i%, j%
DIM Debut_Champ%, Fin_Champ%
DIM position_dans_fiche%
DIM Longueur_Champ%
DIM fiche_joueur$
DIM Fiche$(16)

grid 1 : HEIGHT 1, 400 : GRID_ROW 1, 5000

Affichage()

END
' ------------------------------------------------------------------------------

SUB Affichage()

   FILE_OPEN_READ 1, "c:\Panoramic\Liste_Complete_Joueurs_FFJD.csv"
   J% = 1
   WHILE FILE_EOF(1) <> 1
      i% = 1
      Fiche_joueur$ = FILE_READLN$(1)
      FOR Debut_Champ% = 1 to LEN(Fiche_joueur$)
         Fin_Champ% = INSTR_POS(fiche_joueur$,";",Debut_Champ%)
         Longueur_Champ%= Fin_Champ% - Debut_Champ%
         IF Longueur_Champ% >0
            Fiche$(i%)= mid$(fiche_joueur$,Debut_Champ%,Longueur_champ%)
            Debut_Champ% = Fin_champ%
         END_IF
         i% = i% + 1
      NEXT Debut_Champ%

      GRID_WRITE 1, j%,2,Fiche$(2)
      GRID_WRITE 1, j%,3,Fiche$(3)
      GRID_WRITE 1, j%,4,Fiche$(4)
      J%=J%+1
      PRINT_LOCATE 50, 420
      PRINT "Intégration fiche n° " + STR$(J%)
   END_WHILE

   PRINT_LOCATE 50, 420
   PRINT "Intégration finie, tableau prêt !"

   FILE_CLOSE 1

END_SUB

fin:
res% = dll_call0("TerminateExcel")
pause 1000
dll_off
terninate
return

label start, close0

dim fic$, url$, res%, champ1$, champ2$, champ3$, range$, lig%, formule$

button 1 : top 1,10 : caption 1,"Start" : on_click 1,start
grid 2 : top 2,40 : height 2,400
grid_column 2,4
grid_row 2,10

url$ = "http://klauspanoramic.olympe.in/versions/EssaiPilotage.xls"
fic$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\EssaiPilotage.xls"
on_close 0,close0
dll_on "KGF.dll"
end

start:
res% = dll_call2("DownloadFile",adr(url$),adr(fic$))
if res%<>0
  message "Le téléchargement a échoué"
  return
end_if

excel_start
excel_file_open 1,fic$

lig% = 1
repeat
  lig% = lig% + 1
  range$ = "A"+str$(lig%)
  formule$ = string$(255," ")
  champ1$ = string$(255," ")
  champ1$ = excel_read$(range$)
  champ1$ = trim$(champ1$)
  if champ1$=""
    lig% = 0
    exit_repeat
  end_if
  champ2$ = string$(255," ")
  range$ = "B"+str$(lig%)
  champ2$ = excel_read$(range$)
  champ2$ = trim$(champ2$)
  champ3$ = string$(255," ")
  range$ = "C"+str$(lig%-1)
  champ3$ = excel_read$(range$)
  champ3$ = trim$(champ3$)
  grid_write 2,lig%,1,str$(lig%)
  grid_write 2,lig%,2,champ1$
  grid_write 2,lig%,3,champ2$
  grid_write 2,lig%,4,champ3$
until lig%=0
excel_file_close 1
excel_stop
return

close0:
 res% = dll_call1("KillProcessByHandle",handle(0))