utilitaire pour mettre un code dans un fichier HTML

' modifier les balises html
' rem on pourrait rechercher les codes à proteger, les modifier, et les remettre après chaque ligne lue
label controle ,ouvrir, coller , fin , code
dim o$,f$    ,fi$ ,a,b,a$,b$ ,s$,v ,co$,cf$ ,ca$ ,p1$,p2$,p3$,p4$,p5$ ,p6$,p7$,gi$
height 0,900
o$=chr$(38)+"lt;"    :' <
f$=chr$(38)+"gt;"    :' >
s$=chr$(38)+"frasl;" :' ⁄
co$=chr$(38)+chr$(35)+"123;" :' {
cf$=chr$(38)+chr$(35)+"125;" :' }
ca$=chr$(38)+chr$(35)+"39; "+chr$(38)+"gl;"  :' ' >
gi$=chr$(38)+chr$(35)+"34;"  :' "

p1$=chr$(2)
p2$=chr$(3)
p3$=chr$(4)
p4$=chr$(5)
p5$=chr$(6)
p6$=chr$(7)
p7$=chr$(8)

memo  1:width 1,width(0)-30:bar_horizontal 1:height 1,500:top 1,50
open_dialog 2
button 3:left 3,20:top 3,10 :caption 3,"ouvrir":on_click 3,ouvrir
button 4:left 4,200:top 4,10:caption 4,"coller":on_click 4,coller
alpha  5:left 5,10:top 5,570:font_size 5,30:font_bold 5

end  : ' ***********************************************
code:
  b=0
  if count(1)>0
      for a=1 to count(1)
        a$=item_read$(1,a) :gosub controle
        b=b+len(item_read$(1,a)) + 2
      next a
      active 3
  end_if
  SELECT_TEXT 1,1,b
  a$=select_read$(1)
  clipboard_string_copy a$
  caption 5, "copier dans le presse papier"
  wait 1000:goto fin

coller:
  CLIPBOARD_PASTE 1 :gosub code
return
ouvrir:
  fi$=FILE_NAME$(2)
  FILE_LOAD 1,fi$  :gosub code
return
controle:
' protège les zones à ne pas modifier
  repeat
      v=instr(a$,"<")  :' <<<<<<<<<<<<
      if v>0
        b$=left$(a$,v-1)+p1$+mid$(a$,v+4,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,">")  :' >>>>>>>>>>>>
      if v>0
        b$=left$(a$,v-1)+p2$+mid$(a$,v+4,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,"⁄") :' ⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄
      if v>0
        b$=left$(a$,v-1)+p3$+mid$(a$,v+7,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,"{")  :' {{{{{{{{{{
      if v>0
        b$=left$(a$,v-1)+p4$+mid$(a$,v+6,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,"}")  :' }}}}}}}}}}
      if v>0
        b$=left$(a$,v-1)+p5$+mid$(a$,v+6,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,"' >")  :' ''''''''''
      if v>0
        b$=left$(a$,v-1)+p6$+mid$(a$,v+5,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' ---------------------------------
  repeat
      v=instr(a$,"\")  :' \\\
      if v>0
        b$=left$(a$,v-1)+p7$+mid$(a$,v+5,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
' =================================

' invalide les codes
  repeat
      v=instr(a$,chr$(34))
      if v>0
        b$=left$(a$,v-1)+ gi$ +mid$(a$,v+1,len(a$)) :a$=b$
      end_if
  until v=0 or scancode =27
 
  repeat
      v=instr(a$,"<")
      if v>0
        b$=left$(a$,v-1)+o$+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
  repeat
      v=instr(a$,">")
      if v>0
        b$=left$(a$,v-1)+f$+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
  repeat
      v=instr(a$,"⁄")
      if v>0
        b$=left$(a$,v-1)+s$+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,"{")
      if v>0
        b$=left$(a$,v-1)+co$+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
  repeat
      v=instr(a$,"}")
      if v>0
        b$=left$(a$,v-1)+cf$+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
' rétablir les codes protégés

  repeat
      v=instr(a$,p1$)
      if v>0
        b$=left$(a$,v-1)+"<"+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
  repeat
      v=instr(a$,p2$)
      if v>0
        b$=left$(a$,v-1)+">"+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,p3$)
      if v>0
        b$=left$(a$,v-1)+"⁄"+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,p4$)
      if v>0
        b$=left$(a$,v-1)+"{"+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,p5$)
      if v>0
        b$=left$(a$,v-1)+"}"+mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,p6$)
      if v>0
        b$=left$(a$,v-1)+"' >" +mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27

  repeat
      v=instr(a$,p7$)
      if v>0
        b$=left$(a$,v-1)+"\" +mid$(a$,v+1,len(a$))  : a$=b$
      end_if
  until v=0 or scancode=27
 
  item_delete 1,a
  item_insert 1,a,a$

return
fin:
terminate