rem faire une liste auto d'un dossier html
label lien_rapport
dim a,b,c,DIR_a$,b$,c$,DIR_f$,dos$,DIR_nom$,d$ ,d0$,d1$ ,a$ ,list%
dos$="c:\HTML\AIDE_PANO\Fr\"
width 0,screen_x:height 0,800
list 1:width 1,250:height 1,height(0)-350
list 2:left 2,260:width 2,screen_x -280:height 2,height(1):font_size 2,8
list 3:top 3,height(1)+10:height 3,740-top(3):width 3,width(0)-50:font_size 3,10
dir_change dos$
clear 1
DIR_a$ = file_find_first$
while DIR_a$<>"_"
if DIR_a$<>"INDEX_PANORAMIC.Html" then item_add 1,DIR_a$
DIR_a$ = file_find_next$
end_while
file_find_close
sort 1
gosub lien_rapport
end :' pour faire la suite
' ==========================================================================
item_add 2," <h1><html><head><title>INDEX_PANORAMIC</title></head></h1>"
item_add 2, " <BODY LANG="+chr$(34)+"fr-FR+"+chr$(34)+"BGCOLOR="+chr$(34)+"#ffffff"+chr$(34)+" DIR="+chr$(34)+"LTR" +chr$(34)+ ">"
item_add 2,"<P STYLE="+chr$(34)+"margin-bottom: 0cm"+chr$(34)+"></p>"
item_add 2," <P LANG="+chr$(34)+"fr-FR"+chr$(34)+"STYLE="+chr$(34)+"margin-bottom: 0cm; page-break-after: avoid"+chr$(34)+"><FONT FACE="+chr$(34)+"Arial"+chr$(34)+"><FONT SIZE=4 STYLE="+chr$(34)+"font-size: 16pt"+chr$(34)+"><h1><B>INDEX Panoramic "+chr$(34)+"</B></h1></FONT></FONT></P>"
item_add 2,"<P STYLE="+chr$(34)+"margin-bottom: 0cm"+chr$(34)+"></p>"
for a=1 to count(1)
c$=item_read$(1,a)
b$=left$( c$, instr(c$,".Html")-1)
item_add 2,"<A HREF="+chr$(34)+c$+chr$(34)+"> "+b$+" </A></br>"
next a
item_add 2,"</body>"
item_add 2,"</html>"
file_save 2,dos$+"INDEX_PANORAMIC.Html"
for a=1 to count(1)
d$="<A HREF="+chr$(34)+"INDEX_PANORAMIC.Html"+chr$(34)+"><BIG> <BIG>"+"RETOUR"+"</BIG> </BIG></A></br>"
DIR_nom$= item_read$(1,a)
file_load 2,DIR_nom$
if item_read$(2,8)<> d$ then item_insert 2,8,d$
file_save 2,DIR_nom$
next a
end
' -----------------------
rem rajouter pour créer des liens en rapport avec l'instruction
lien_rapport:
d0$="<P STYLE="+chr$(34)+"margin-bottom: 0cm"+chr$(34)+"><FONT COLOR="+chr$(34)+"#000000"+chr$(34)+"><FONT FACE="+chr$(34)+"Arial"+chr$(34)+"><FONT SIZE=2 STYLE="+chr$(34)+"font-size: 11pt"+chr$(34)+">"
' le fichier :Parallel_inp().Html bloque!
message "count(1)="+str$(count(1))
stop
for list%=1 to count(1)
clear 3
file_load 2,item_read$(1,list%)
for b=count(2) to 1 step -1
a$=item_read$(2,b)
if instr(a$,"><h2><B>EN RAPPORT:</B></h2>")>0 then exit_for
next b
for a=b+1 to count(2)
a$=item_read$(2,a)
if left$(a$,len(d0$)) =d0$
a$=mid$(a$,len(d0$)+1,len(a$))
c=instr(a$,"<")
b$=mid$(a$, c , len(a$) )
caption 0,"fiche:"+str$(list%)+" "+left$(a$,c-1)+".Html"
' item_add 3,d0$+ "<A HREF="+chr$(34)+left$(a$,c-1)+".Html"+chr$(34)+"><BIG> <BIG>"+left$(a$,c-1)+"</BIG> </BIG></A></br></FONT></FONT></FONT></P>"
item_delete 2,a:item_insert 2,a,d0$+ "<A HREF="+chr$(34)+left$(a$,c-1)+".Html"+chr$(34)+"><BIG> <BIG>"+left$(a$,c-1)+"</BIG> </BIG></A></br></FONT></FONT></FONT></P>"
end_if
next a
' file_load 2,item_read$(1,list%)
wait 50
next list%
return
Accueil 
Calendrier
