fpng = findfile('*.png')

nn = n_elements(fpng)

strtempl = {date_obs:'', date_end:'', jt_obs:0D, jt_end:0D, pngfilename:'', txtfilename:''}

struct = replicate(strtempl, nn)

;--- fill struc ---
for i=0, nn-1 do begin
  f = fpng[i]
  struct[i].pngfilename = f
  
  ss=strsplit(f, '_.', /extract)
  ftxt =  'hard_rad_'+ ss[2] +'_'+ss[3]+'.txt.gz' 
  struct[i].txtfilename =  findfile(ftxt)
  
;  if check ne '' then stop

   date_obss = '20'+strmid(ss[2], 0, 2) +'-'+ strmid(ss[2], 2, 2)  +'-'+  strmid(ss[2], 4, 2)
   date_ends = '20'+strmid(ss[3], 0, 2) +'-'+ strmid(ss[3], 2, 2)  +'-'+  strmid(ss[3], 4, 2)

   struct[i].date_obs = date_obss 
   struct[i].date_end = date_ends 
   

   date_obs = date_obss+'T00:00:00.000'
   date_end = date_ends+'T00:00:00.000'
   struct[i].jt_obs = sphinx_datetime2jt(date_obs) 
   struct[i].jt_end = sphinx_datetime2jt(date_end)

   ;print, i,'  ', f, '  ', date_obss, '  ', date_ends, '  ',struct[i].txtfilename
   print, i,'  ', f, '  ', date_obs, '  ', date_end, '  ',struct[i].txtfilename
endfor

;---------------- select only images which have txt data ---
w = where(struct.txtfilename ne '')

struct = struct[w]
nn = n_elements(struct)

for i=0, nn-1 do begin
  print, i,'  ', struct[i].pngfilename, '  ', struct[i].date_obs, '  ', struct[i].date_end, '  ',struct[i].txtfilename, '  ', $
  struct[i].jt_obs, struct[i].jt_end, struct[i].jt_end-struct[i].jt_obs

endfor

;--- sort by jt --

struct = struct[sort(struct.jt_obs)]

;-------


close, /all


A=''
openr, 1, 'RESIK_PIN_particle_observations_template.htm'
openw, 2, 'RESIK_PIN_particle_observations.htm'

while a ne '<!-- here insert data --- -->' do begin
readf, 1, A
printf, 2, A
endwhile

;---- insert images into html table
ncol=2
nrow=ceil(double(nn)/2)
cimg=0

printf, 2, '<center>'



printf, 2, '<table border="1">'
 
 for i=0, nrow -1 do begin
 printf, 2, '<tr>'
   
   for j=0, ncol-1 do begin
     printf, 2,  '<td>'
     ;printf, 2,string(i+1)+string(j+1)  ;<check rows and cols numbering
     ;printf, 2, '<img border="0" src="hard_rad_011101_011201.png" alt="Pulpit rock" width="633" height="475" />'
     printf, 2, '<img border="0" src="' + struct[cimg].pngfilename + '" alt="Pulpit rock" width="633" height="475" /><br />'
     printf, 2, '<a href="' + struct[cimg].txtfilename   + '">Download RESIK data </a><br />'
     
     printf, 2, '</td>'
     ;insert images
     
   
     cimg =cimg+1
   endfor
 
 printf, 2, '</tr>'
 endfor
 
 
 
; <tr>
; <td> 
;      <img border="0" src="hard_rad_011101_011201.png" alt="Pulpit rock" width="633" height="475" /><br />
;      <a href="hard_rad_011101_011201.txt.gz">Download RESIK data </a><br />
;      row 1, cell 1</td>
; <td>
;      <img border="0" src="hard_rad_011101_011201.png" alt="Pulpit rock" width="633" height="475" /><br />
;      row 1, cell 2</td>
; </tr>
; <tr>
; <td>row 2, cell 1</td>
; <td>row 2, cell 2</td>
; </tr>
 
 
 printf, 2, '</table>'

printf, 2, '</center>'


printf, 2, '<center>'
printf, 2, '<p>ACKNOWLEDGEMENT</p>' 
printf, 2, '<p>The research leading to these results has received funding from the European Commission'+ string(39B) +'s Seventh Framework Programme <br />'
printf, 2, '(FP7/2007-2013) under the grant agreement eHeroes (project no 284461, www.eheroes.eu).</p>' 
printf, 2, '</center>'


printf, 2, '</body>'
printf, 2, '</html>'

close, /all
end