V2.83 du 15/02/2014 - ajout fonction CreateMask

dim g$ , t$  , x% , y%  , clic% , cmd$
cmd$ = " FOR TO NEXT PRINT IF THEN ELSE END_IF "
g$ = chr$(34) : t$ = chr$(13)
width 0,screen_x : font_name 0,"Consolas" : font_size 0,10 : font_bold 0
edit 1 : width 1,width(0)-30 : height 1,30
edit 2 : width 2,width(1) : height 2,30 : top 2,30
edit 4 : width 4,width(1) : height 4,30 : top 4,60
memo 3 : top 3,90: width 3,width(1) : height 3,400
form 10 : full_space 10
picture 11 : parent 11,10 : full_space 11 : font_size 11,10 : font_bold 11 : font_name 11,"Consolas"
   print_target_is 11 : 2d_target_is 11 : color 11,195,140,121

dll_on "kgf.dll"
teste()
end
' ====================
sub teste()
  dim_local a$,separe$, separe2$
  dim_local msk1$, msk2$, b$, res%  , a%  , quote$
  msk1$ = "*" : msk2$ = "="    : quote$ = "*}"
  y% = 10 : x% = 10
  separe2$ = " ,:<>='/*+-"
  a$ = " For a% = 1 to 10:print " + g$ + "fort de toute expérience" + g$ + ": next a%:if a%>=10 then a%=10: ' fin de la ligne"
  text 1,a$
  for a% = 1 to 200
     text 4,"" : color 4,255,255,255

     b$ = string$(len(a$)," ")
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     text 4,b$
     text 4,"" : color 4,255,255,0
     b$ = string$(len(a$)," ")
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     text 4,b$
  next a%
  color 4,255,255,255
   hide 11 : message "Prêt"
   for a% = 1 to 50
     b$ = string$(len(a$)," ")
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     colorise(a%,a$,b$)
     y% = y% +18
   next a%
   show 11

end_sub
' ===========================================================

sub colorise(ligne% ,a$ , b$)
 to_foreground 10
   dim_local v% , w%, c% , d$  , mot$ , j : j = 9

   x% = 40
   2d_fill_color 230,230,230 : font_color 11,187,153,143: print_locate 0,y% : print right$("    "+str$(ligne%),4)

   repeat
      v% = instr(b$,"*")
      if v% > 0
            d$ = mid$(a$,v%,1)
            c% = asc(d$)
            if instr(",:<>=/*+-",d$) > 0
              
                   font_color 11, 240,100,57
                   print_locate x%,y%
                  
                   if v% = 1
                      print d$ : mot$="" : a$ = right_pos$(a$,2) : b$ = right_pos$(b$,2) : x% = x%+j
                   else

                      mot$ = left$(a$,v%-1)   :'  ici il faudra tenir compte des mot-cles et afficher

                      if instr(cmd$," " + upper$(mot$) + " ") > 0
                          font_color 11, 0,0,255
                      else
                          if numeric(mot$) = 1
                              font_color 11, 255,0,0
                          else
                              font_color 11, 0,0,0
                          end_if
                      end_if
                      print mot$
                      x%=x%+(len(mot$)*j)
                      mot$ = d$  : print_locate x%,y%  :font_color 11,240,100,57
                      print mot$ :x%=x%+(len(mot$)*j) : a$ = right_pos$(a$,v%+1) : b$ = right_pos$(b$,v%+1)
                   end_if
            else
              if d$ = g$
                  ' il faudra mettre en sub généraliste
                  if mot$ <> "" then print_locate x%,y%:print mot$ : x%= x%+(len(mot$)*j)
                  a$ = right_pos$(a$,v%) : w% = instr(b$,"}")
                  mot$ = left$(a$,w%-1) : font_color 11,34,114,61
                  print_locate x%,y%
                  print  mot$
                  x%=x%+ (len(mot$) * j) : print_locate x%,y%:print g$: x% = x%+j
                  mot$=""
                  a$=right_pos$(a$,w%+1)
                  b$ = right_pos$(b$,w%+1)
              else
            
                if d$ = " "
                   mot$ = left$(a$,v%-1) +" "
                   if instr(cmd$ , " "+upper$(trim$(mot$)) + " ") > 0
                       font_color 11, 0,0,255
                       print_locate x%,y% : print mot$ : x% = x% + (len(mot$)*j)
                       a$ = right_pos$(a$,v%+1) : b$ = right_pos$(b$,v%+1) : mot$ = ""
                   else
                       if numeric(mot$) = 1
                           font_color 11, 255,0,0
                       else
                           font_color 11, 0,0,0
                       end_if
                       print_locate x%,y% : print mot$ : x% = x% + (len(mot$)*j)
                       a$ = right_pos$(a$,v%+1) : b$ = right_pos$(b$,v%+1) : mot$ = ""
                   end_if

                else
                   if d$ = "'"
                       font_color 11, 250,59,183 : print_locate x%,y% : print a$ :  exit_repeat
                   else
                      font_color 11, 250,0,183 : print_locate x%,y% : print mot$ : x% = x% + (len(mot$)*j)
                      mot$ = "" :a$ = right_pos$(a$, v%+1) : b$ = right_pos$(b$,v%)
                   end_if
                end_if
              end_if: ' <<= g$
            end_if

      end_if
      to_foreground 10
   until b$ = "" or v% = 0 or a$ = ""  or scancode = 27

end_sub

' Teste de coloration syntaxique avec le masque de la dll de KLAUS

label colore_precedent , calcul_suite :'  , traitement_guillemets
dim g$ , t$  , x% , y%  , clic% , cmd$ , rem%
cmd$ = " FOR TO NEXT PRINT IF THEN ELSE END_IF REM DIM CHR$ WIDTH SCREEN_X SCREEN_Y FONT_NAME FONT_SIZE FONT_BOLD EDIT HEIGHT LEFT TOP RIGHT RIGHT_POS$ INSTR INSTR_POS FORM FULL_SPACE ":'
CMD$ = cmd$ + "MEMO LIST PICTURE PARENT PRINT_TARGET_IS 2D_TARGET_IS DLL_ON COLOR END SUB END_SUB DIM_LOCAL TEXT TEXT$ STRING LEN DLL_CALL6 ADR"
cmd$ = cmd$ + " HIDE TO_FOREGROUND 2D_FILL_COLOR FONT_COLOR PRINT_LOCATE MESSAGE STR$ SHOW REPEAT UNTIL EXIT_REPEAT EXIT_FOR MID£ INSTR ASC UPPER$"
cmd$ = cmd$ + " TRIM$ NUMERIC LEN SCANCODE OR AND BAR_BOTH "
g$ = chr$(34) : t$ = chr$(13)
width 0,screen_x : font_name 0,"Consolas" : font_size 0,10 : font_bold 0
edit 1 : width 1,width(0)-30 : height 1,30
edit 2 : width 2,width(1) : height 2,30 : top 2,30
edit 4 : width 4,width(1) : height 4,30 : top 4,60
memo 3 : top 3,90: width 3,width(1) : height 3,400 : file_load 3,"C:\MEMO\prg divers\colorise_code.bas"   : bar_both 3
form 10 : height 10,screen_y : width 10,screen_x
picture 11 : parent 11,10 : full_space 11 : font_size 11,10 : font_bold 11 : font_name 11,"Consolas" :height 11,3000
   print_target_is 11 : 2d_target_is 11 :' color 11,195,140,121
memo 15 :bar_both 15: parent 15,10: left 15,700: width 15,width(10)-750: height 15,600: top 15,100
    font_name 15,"Bitstream Vera Sans Mono" : font_bold 15 : font_size 15,10    : hide 15

dll_on "kgf.dll"
teste()
end
' ====================
sub teste()
  dim_local a$,separe$, separe2$
  dim_local msk1$, msk2$, b$, res%  , a%  , quote$
  msk1$ = "*" : msk2$ = "="    : quote$ = "*}"
  y% = 10 : x% = 10
  separe2$ = " ,:<>='/*+-()"
  a$ = " For a% = 1 to 10 : print " + g$ + "fort de toute expérience" + g$ + " : next a%:if a%>=10 then a%=10: rem fin de la ligne"
  text 1,a$
  for a% = 1 to 200
     text 4,"" : color 4,255,255,255

     b$ = string$(len(a$)," ")
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     text 4,b$
     text 4,"" : color 4,255,255,0
     b$ = string$(len(a$)," ")
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     text 4,b$
  next a%
  color 4,255,255,255
      hide 11
   for a% = 1 to    count(3)
   ' a% = 5
      a$ = item_read$(3,a%)+" "
     if a$ <> "" then b$ = string$(len(a$)," "): else : b$ = "  " : ' voir si ça débloque lorsque a$ = ""
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     colorise(a%,a$,b$)
     y% = y% +18
     caption 10,a%
   next a%
   show 11

end_sub
' ===========================================================
sub colorise(ligne%,a$,b$)
 to_foreground 10
   dim_local v% , w%, c% , d$  , mot$ , rem% , j : j = 9
   dim_local o$
   x% = 40 :' décalage n° ligne
   rem 2d_fill_color 230,230,230
   font_color 11,187,153,143: print_locate 0,y% : print right$("    "+str$(ligne%),4)
   if a$ <> ""
       repeat
          v% = instr(b$,"*")
          if v% > 0
              d$ = mid$(a$,v%,1)
              if v%> 1
                  mot$ = left$(a$,v%-1)                :'                   " "
                  gosub colore_precedent
              end_if
              ' maintenant  depuis v%
              if d$ = " "
                  mot$ = " "
                  gosub calcul_suite
              else
                  if instr(",<>=/*+-",d$) > 0
                      mot$ = d$
                      font_color 11,0,47,8
                      gosub calcul_suite
                  else
                      if instr(":()",d$) > 0
                         mot$ = d$
                         font_color 11,0,0,0
                         o$ = o$ + "98 "
                         gosub calcul_suite
                      else
                         if d$ = "'"
                             mot$ = a$
                             font_color 11,233,15,233
                             gosub calcul_suite
                             v% = 0  : a$ = ""
                         else
                             if d$ = g$
                             font_color 11,10,134,31
                             d$ = g$ :print_locate x%,y% : print g$ : x%=x% + j
                             w% = instr(b$,"}")
                             mot$ = mid$(a$,v%+1,w%-v%)
                             print_locate x%,y% : print mot$
                             x% = x% + (len(mot$)*j)
                             a$ = right_pos$(a$,w%+1) : b$ = right_pos$(b$,w%+1)
                             else
                                    font_color 11,0,0,0
                             end_if
                         end_if
                      end_if
                  end_if
              end_if
          end_if
       until v% = 0 or scancode = 27
       if a$ <> "" then mot$ = a$ :gosub colore_precedent
   end_if

end_sub
' ==============================
colore_precedent:
 ' appel depuis une sub, donc récupère les variables locales
     if instr(cmd$ , " "+upper$(mot$)+" ") > 0
          font_color 11,0,0,255
          print_locate x%, y% : print mot$
          x% = x% + (len(mot$) * j)
          if upper$( trim$(mot$)) = "REM"
             font_color 11,233,15,233: mot$ = right_pos$(a$,v%):print_locate x%,y% : print mot$ : a$ ="" : v%=0
          end_if
     else
         if numeric(mot$) = 1
             font_color 11,255,0,0
             print_locate x%, y% : print mot$
          x% = x% + (len(mot$) * j)
         else
             font_color 11,0,0,0
             print_locate x%, y% : print mot$
          x% = x% + (len(mot$) * j)
         end_if
     end_if

return

calcul_suite:
   ' appel depuis une sub, donc récupère les variables locales
          print_locate x%, y% : print mot$
          x% = x% + (len(mot$) * j)
          a$ = right_pos$(a$,v%+1)
          b$ = right_pos$(b$,v%+1)
return

' Teste de coloration syntaxique avec le masque de la dll de KLAUS

label colore_precedent , calcul_suite :'  , traitement_guillemets
dim g$ , t$  , x% , y%  , clic% , cmd$ , rem% , retour$ , lettre$  , a$  , a%
dim url$ ,hnd% , res%  :    url$ = "file:///z:/SITE/sujet.html"
cmd$ = " FOR TO NEXT PRINT IF THEN ELSE END_IF REM DIM CHR$ WIDTH SCREEN_X SCREEN_Y FONT_NAME FONT_SIZE FONT_BOLD EDIT HEIGHT LEFT TOP RIGHT RIGHT_POS$ INSTR INSTR_POS FORM FULL_SPACE ":'
CMD$ = cmd$ + "MEMO LIST PICTURE PARENT PRINT_TARGET_IS 2D_TARGET_IS DLL_ON COLOR END SUB END_SUB DIM_LOCAL TEXT TEXT$ STRING LEN DLL_CALL6 ADR"
cmd$ = cmd$ + " HIDE TO_FOREGROUND 2D_FILL_COLOR FONT_COLOR PRINT_LOCATE MESSAGE STR$ SHOW REPEAT UNTIL EXIT_REPEAT EXIT_FOR MID£ INSTR ASC UPPER$"
cmd$ = cmd$ + " TRIM$ NUMERIC LEN SCANCODE OR AND BAR_BOTH FILE_LOAD LABEL ERROR_FRENCH PICTURE"

   rem pour remplacer les lettres accentées ou autre pour html
   lettre$ = chr$(34) + "&€<£¤|§¨ª«¯°±²³´µ¶¸»¼½¾ÀÁÄÆÇÈÉÊËÌÍÎÏ×ØÙÚÛÜßàâãäåæçèéêëìíîòóôö÷øùúû>"
   dlist 3:for a% = 1 to len(lettre$):read a$ : item_add 3,a$ : next a%
  
g$ = chr$(34) : t$ = chr$(13)
width 0,screen_x : font_name 0,"Consolas" : font_size 0,10 : font_bold 0
edit 1 : width 1,width(0)-30 : height 1,30
edit 2 : width 2,width(1) : height 2,30 : top 2,30
' edit 3 : width 3,width(1) : height 3,30 : top 3,60
memo 399 : top 399,90: width 399,width(1) : height 399,400 : file_load 399,"C:\MEMO\icone-aligne_texte.bas"   : bar_both 399 :hint 399,399
form 10 : height 10,screen_y : width 10,screen_x   : hnd% = handle(10)
picture 11 : parent 11,10 : full_space 11 : font_size 11,10 : font_bold 11 : font_name 11,"Consolas" :height 11,3000
   print_target_is 11 : 2d_target_is 11 :' color 11,195,140,121
memo 15 :bar_both 15: parent 15,10: left 15,700: width 15,width(10)-750: height 15,600: top 15,100
   font_name 15,"Bitstream Vera Sans Mono" : font_bold 15 : font_size 15,10    : hide 15
 : hide 11 : hide 15
 dlist 4
dll_on "C:\PANO\DLL\DLLs\kgf.dll"
teste()
end

data "&quot;","&amp;","&euro;","&lsaquo;","&pound;","&curren;","&bvrbar;","&sect;","&uml;","&copy;","&ordf;","&laquo;","&reg;","amasr;","&deg;"
data "&plusmn;","&sup2;","&sup3;","&acute;","&micro;","&para;","&cedil;","&raquo;","&frac14;","&frac12;","&frac34","&Agrave;","&Aacute;","&Auml;"
data "&Aelig","&Ccedil;","&Egrave;","&Eacute;","&Ecirc;","&Euml;","&Igrave;","&Iacute;","&Icirc;","&Iuml;","&times;","&Oslash;","&Ugrave;","&Uacute;"
data "&Ucirc;","&Uuml;","&szlig;","&agrave;","&acirc;","&atilde;","&auml;","&aring;","&aelig;","&ccedil;","&egrave;","&eacute;","&ecirc;","&euml;"
data "&igrave;","&iacute;","&icirc;","&ograve;","&oacute;","&ocirc;","&ouml;","&divide;","&oslash;","&ugrave;","&uacute;","&ucirc;","&rsaquo;"

' ====================
sub teste()
  dim_local a$,separe$, separe2$
  dim_local msk1$, msk2$, b$  , a%  , quote$   : ' dll_()
  msk1$ = "*" : msk2$ = "="    : quote$ = "*}"
  y% = 10 : x% = 10
  separe2$ = " ,:<>='/*+-()"
      '   message ""
   hide 11
   item_add 15,"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>"
   item_add 15,"<html>"
   item_add 15,"<HEAD>  <link rel='stylesheet' href='style.css' type='text/css' />"
   item_add 15,"<style>  body font-size : 16px;</style>"
   item_add 15,"</HEAD><BODY>"
  
   item_add 4,"<pre><b><span class='fontBIG'>Code:</span></b></pre>"
   item_add 4,"<h4 class='code_fixe'><pre>"
  
   soulage()

  
   for a% = 1 to count(399)
      a$ = item_read$(399,a%)+" "
     ' if a$ <> "" then b$ = string$(len(a$)," "): else : b$ = "  " : ' voir si ça débloque lorsque a$ = ""
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))
     message a$ + t$ + b$ : stop
     colorise(a%,a$,b$)
     y% = y% +18
     caption 10,a%
   next a%
      item_add 15,"<br /><br />"
      item_add 15,"  </body>"
      item_add 15,"</HTML>"
      file_save 15,"Z:\SITE\teste.html"
      url$ = "file:///z:/SITE/teste.html"
     ' res% = dll_call1("WBUrl",adr(url$))
   show 11
  ' beep :message "fini"
end_sub
' ===========================================================

sub colorise(ligne%,a$,b$)
 to_foreground 10
   dim_local v% , w%, c% , d$  , mot$ , rem% , j : j = 9
   dim_local o$
   x% = 40 :' décalage n° ligne
   rem 2d_fill_color 230,230,230
   font_color 11,187,153,143: print_locate 0,y% : print right$("    "+str$(ligne%),4)
   if a$ <> ""
       repeat
          v% = instr(b$,"*")
          if v% > 0
              d$ = mid$(a$,v%,1)
              if v%> 1
                  mot$ = left$(a$,v%-1)                :'                   " "
                  gosub colore_precedent
              end_if
              ' maintenant  depuis v%
              if d$ = " "
                  mot$ = " "
                  gosub calcul_suite
                  
                  item_add 4," "
                  
              else
                  if instr(",<>=/*+-",d$) > 0
                      mot$ = d$
                      font_color 11,0,47,8
                      
                      formater(mot$) : item_add 4,"<span class='Ec'>" + retour$ + "</span>"
                      
                      gosub calcul_suite
                  else
                      if instr(":()",d$) > 0
                         mot$ = d$
                         font_color 11,0,0,0
                        
                         formater(mot$) : item_add 4,"<span class='En'>" + retour$ + "</span>"
                        
                         gosub calcul_suite
                      else
                         if d$ = "'"
                             mot$ = a$
                             font_color 11,233,15,233
                            
                             formater(mot$) : item_add 4,"<span class='Ex'>" + retour$ + "</span>"
                            
                             gosub calcul_suite
                             v% = 0  : a$ = ""
                         else
                             if d$ = g$
                                font_color 11,10,134,31
                                d$ = g$ :print_locate x%,y% : print g$ : x%=x% + j
                            
                                formater(g$) : item_add 4,"<span class='Ev'>" + retour$
                                w% = instr(b$,"}")
                                if w% >0
                                    mot$ = mid$(a$,v%+1,w%-v%)
                                else
                                    mot$ = right_pos$(a$,v%+1) : v% = 0: a$ = ""
                                end_if
                                print_locate x%,y% : print mot$

                                formater(mot$) : item_add 4, retour$ + "</span>"
                                x% = x% + (len(mot$)*j) +1
                                a$ = right_pos$(a$,w%+1) : b$ = right_pos$(b$,w%+1)
                             else
                                    font_color 11,0,0,0
                             end_if
                         end_if
                      end_if
                  end_if
              end_if
          end_if
       until v% = 0 or scancode = 27
       if a$ <> "" then mot$ = a$ :gosub colore_precedent
   end_if
   soulage()
end_sub
' ==============================
colore_precedent:
 ' appel depuis une sub, donc récupère les variables locales
     if instr(cmd$ , " "+upper$(mot$)+" ") > 0
          font_color 11,0,0,255
          print_locate x%, y% : print mot$
          
          item_add 4,"<span class='Ec'>" +  upper$(mot$) +"</span>"
          
          x% = x% + (len(mot$) * j) +1
          if upper$( trim$(mot$)) = "REM"
             font_color 11,233,15,233: mot$ = right_pos$(a$,v%):print_locate x%,y% : print mot$ : a$ ="" : v%=0
            
             item_add 4,"<span class='Ex'>" +mot$ + "</span>"
            
          end_if
     else
         if numeric(mot$) = 1
             font_color 11,255,0,0
             print_locate x%, y% : print mot$
            
             item_add 4,"<span class='Er'>" + mot$ + "</span>"
            
          x% = x% + (len(mot$) * j) +1
         else
             font_color 11,0,0,0
             print_locate x%, y% : print mot$
            
             formater(mot$) : item_add 4,"<span class='En'>" + retour$ + "</span>"
            
          x% = x% + (len(mot$) * j) +1
         end_if
     end_if

return

calcul_suite:
   ' appel depuis une sub, donc récupère les variables locales
   print_locate x%, y% : print mot$
   x% = x% + (len(mot$) * j) +1
   a$ = right_pos$(a$,v%+1)
   b$ = right_pos$(b$,v%+1)
return

sub dll_()
  ' res%=dll_call1("WBCreate",hnd%)
  ' res%=dll_call4("WBLocate",0, 20,width(10),height(10)-70) :'       20,10,10):'
  ' res% = dll_call1("WBUrl",adr(url$))
end_sub

sub soulage()
   dim_local a$,a%
   if count(4) > 0
      for a% = 1 to count(4)
         a$ = a$ + item_read$(4,a%)
      next a%
   end_if
   item_add 15, a$ : clear 4
end_sub

sub formater(a$)
   dim_local a%,i$,c$ ,v% , code%
   code%=1
   for a% = 1 to len(a$)
      i$ = mid$(a$,a%,1)
      v% = instr(lettre$,i$)
                if code% = 1
                   if i$ = " "
                      c$ = c$ + " " :' "&nbsp;"
                   else
                      if v%>0 then c$ = c$+item_read$(3,v%):else: c$=c$+i$
                   end_if
                else
         if v%>0 then c$ = c$+item_read$(3,v%):else: c$=c$+i$
                end_if
   next a%
   retour$ =c$
end_sub

' Teste de coloration syntaxique avec le masque de la dll de KLAUS

label colore_precedent , calcul_suite :'  , traitement_guillemets
dim g$ , t$  , cmd$ , rem% , retour$ , lettre$  , a$  , a%
dim url$ ,hnd% , res%
cmd$ = " FOR TO NEXT PRINT IF THEN ELSE END_IF REM DIM CHR$ WIDTH SCREEN_X SCREEN_Y FONT_NAME FONT_SIZE FONT_BOLD EDIT HEIGHT LEFT TOP RIGHT RIGHT_POS$ INSTR INSTR_POS FORM FULL_SPACE ":'
CMD$ = cmd$ + "MEMO LIST PICTURE PARENT PRINT_TARGET_IS 2D_TARGET_IS DLL_ON COLOR END SUB END_SUB DIM_LOCAL TEXT TEXT$ STRING LEN DLL_CALL6 ADR"
cmd$ = cmd$ + " HIDE TO_FOREGROUND 2D_FILL_COLOR FONT_COLOR PRINT_LOCATE MESSAGE STR$ SHOW REPEAT UNTIL EXIT_REPEAT EXIT_FOR MID£ INSTR ASC UPPER$"
cmd$ = cmd$ + " TRIM$ NUMERIC LEN SCANCODE OR AND BAR_BOTH FILE_LOAD LABEL ERROR_FRENCH PICTURE"

   rem pour remplacer les lettres accentées ou autre pour html
   lettre$ = chr$(34) + "'&€<£¤§¨ª«¯°±²³´µ¶¸»¼½¾ÀÁÄÆÇÈÉÊËÌÍÎÏ×ØÙÚÛÜßàâãäåæçèéêëìíîòóôö÷øùúû>"
   dlist 3:for a% = 1 to len(lettre$):read a$ : item_add 3,a$ : next a%
  
g$ = chr$(34) : t$ = chr$(13)
width 0,screen_x : font_name 0,"Consolas" : font_size 0,10 : font_bold 0
dlist 399
file_load 399,"C:\MEMO\installation_SITE.bas"  :' n'importe fiochier panoramic :  *.bas pour tester

form 10 : height 10,screen_y : width 10,screen_x   : hnd% = handle(10)  :' form sur laquel le brother est créé.
dlist 15
dlist 4
dll_on "C:\PANO\DLL\DLLs\kgf.dll" : ' à adapter
teste()
end

data "&quot;","'","&amp;","&euro;","&lsaquo;","&pound;","&curren;","&sect;","&uml;","&copy;","&ordf;","&laquo;","&reg;","&mdash;","&deg;"
data "&plusmn;","&sup2;","&sup3;","&acute;","&micro;","&para;","&cedil;","&raquo;","&frac14;","&frac12;","&frac34","&Agrave;","&Aacute;","&Auml;"
data "&Aelig","&Ccedil;","&Egrave;","&Eacute;","&Ecirc;","&Euml;","&Igrave;","&Iacute;","&Icirc;","&Iuml;","&times;","&Oslash;","&Ugrave;","&Uacute;"
data "&Ucirc;","&Uuml;","&szlig;","&agrave;","&acirc;","&atilde;","&auml;","&aring;","&aelig;","&ccedil;","&egrave;","&eacute;","&ecirc;","&euml;"
data "&igrave;","&iacute;","&icirc;","&ograve;","&oacute;","&ocirc;","&ouml;","&divide;","&oslash;","&ugrave;","&uacute;","&ucirc;","&rsaquo;"
' ====================
sub teste()
  dim_local a$, separe2$
  dim_local msk1$, msk2$, b$  , a%  , quote$   :  dll_()
  msk1$ = "*" : msk2$ = "="    : quote$ = "*}"
  separe2$ = " ,:<>='/*+-()"
   item_add 15,"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>"
   item_add 15,"<html>"
  
  item_add 15,"<HEAD>  <link rel='stylesheet' href='style.css' type='text/css' />"
   '                                                 ^^^^^^^^^
if 1=2
   ' faire un fichier portant le nom: "style.css" avec dedans:

body{ font-size: 70%; font-family : "Courier New",'bitstream Vera Sans Mono';font-weight:bold;}
.Eb{color:blue; }
.Er{color:red; }
.Ev{color:green;}
.Ec{color:darkred; }
.Ex{color:magenta;}
.En{color:black;}

' faire une copie des lignes commençant par body{  et les coller dans le bloc-notes.
' à mettre dans un dossier par exemple "C:\temp\style.css" . Il faudra que l'adresse de url$ soit dans le même dossier
'                                                                            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
end_if
   item_add 15,"<style>  body font-size : 16px;</style>"
   item_add 15,"</HEAD><BODY>"
   item_add 4,"<pre>"
  ' item_add 4,"<pre><b><span class='fontBIG'>Code:</span></b></pre>"
  ' item_add 4,"<h4 class='code_fixe'><pre>"
   soulage()

   for a% = 1 to count(399)
      a$ = item_read$(399,a%)+" "
     if a$ <> "" then b$ = string$(len(a$)," "): else : b$ = "  " : ' voir si ça débloque lorsque a$ = ""
     res% = dll_call6("GenerateMask",adr(a$),adr(separe2$),adr(msk1$),adr(msk2$),adr(quote$),adr(b$))

     colorise(a%,a$,b$)
     caption 10,a%
   next a%
      item_add 15,"<br /><br />"
      item_add 15,"  </body>"
      item_add 15,"</HTML>"
      ' ------------------------------------------------------------------
      ' mettre l'adresse dans le même dossier que le fichier : "style.css"
      file_save 15,"C:\temp\teste.html"    :' modifier le chemin
      url$ = "file:///c:/temp/teste.html"  :' modifier la partie chemin: ici c:/temp/teste.html en rapport avec ligne précédente
      ' ------------------------------------------------------------------
      res% = dll_call1("WBUrl",adr(url$))
  ' beep :message "fini"
end_sub
' ===========================================================

sub colorise(ligne%,a$,b$)
 to_foreground 10
   dim_local v% , w%, c% , d$  , mot$ , rem%
   if a$ <> ""
       repeat
          v% = instr(b$,"*")
          if v% > 0
              d$ = mid$(a$,v%,1)
              if v%> 1
                  mot$ = left$(a$,v%-1)
                  gosub colore_precedent
              end_if
              ' maintenant  depuis v%
              if d$ = " "
                  mot$ = " "
                  gosub calcul_suite
                  item_add 4," "
              else
                  if instr(",<>=/*+-",d$) > 0
                      mot$ = d$
                      formater(mot$) : item_add 4,"<span class='Ec'>" + retour$ + "</span>"
                      gosub calcul_suite
                  else
                      if instr(":()",d$) > 0
                         mot$ = d$
                         formater(mot$) : item_add 4,"<span class='En'>" + retour$ + "</span>"
                         gosub calcul_suite
                      else
                         if d$ = "'"
                             mot$ = a$
                             formater(mot$) : item_add 4,"<span class='Ex'>" + retour$ + "</span>"
                             gosub calcul_suite
                             v% = 0  : a$ = ""
                         else
                             if d$ = g$

                                d$ = g$
                                formater(g$) : item_add 4,"<span class='Ev'>" + retour$
                                w% = instr(b$,"}")
                                if w% >0
                                    mot$ = mid$(a$,v%+1,w%-v%)
                                else
                                    mot$ = right_pos$(a$,v%+1) : v% = 0: a$ = ""
                                end_if
                                formater(mot$) : item_add 4, retour$ + "</span>"
                                a$ = right_pos$(a$,w%+1) : b$ = right_pos$(b$,w%+1)
                             else
                            
                            end_if
                         end_if
                      end_if
                  end_if
              end_if
          end_if
       until v% = 0 or scancode = 27
       if a$ <> "" then mot$ = a$ :gosub colore_precedent
   end_if
   soulage()
end_sub
' ==============================
colore_precedent:
 ' appel depuis une sub, donc récupère les variables locales
     if instr(cmd$ , " "+upper$(mot$)+" ") > 0
          item_add 4,"<span class='Eb'>" +  upper$(mot$) +"</span>"
          if upper$( trim$(mot$)) = "REM"
             mot$ = right_pos$(a$,v%) : a$ ="" : v%=0
             item_add 4,"<span class='Ex'>" +mot$ + "</span>"
          end_if
     else
         if numeric(mot$) = 1
             item_add 4,"<span class='Er'>" + mot$ + "</span>"
         else
             formater(mot$) : item_add 4,"<span class='En'>" + retour$ + "</span>"
         end_if
     end_if

return

calcul_suite:
   ' appel depuis une sub, donc récupère les variables locales
   a$ = right_pos$(a$,v%+1)
   b$ = right_pos$(b$,v%+1)
return

sub dll_()
  res%=dll_call1("WBCreate",hnd%)
  res%=dll_call4("WBLocate",0, 10,width(10)-20,height(10)-70)
end_sub

sub soulage()
   dim_local a$,a%
   if count(4) > 0
      for a% = 1 to count(4)
         a$ = a$ + item_read$(4,a%)
      next a%
   end_if
   item_add 15, a$ : clear 4
end_sub

sub formater(a$)
 dim_local a%,i$,c$ ,v% , code%
 code%=1
 for a% = 1 to len(a$)
 i$ = mid$(a$,a%,1)
 v% = instr(lettre$,i$)
                if code% = 1
                   if i$ = " "
                      c$ = c$ + " " :' "&nbsp;"
                   else
                      if v%>0 then c$ = c$+item_read$(3,v%):else: c$=c$+i$
                   end_if
                else
   if v%>0 then c$ = c$+item_read$(3,v%):else: c$=c$+i$
                end_if
 next a%
 retour$ =c$
end_sub