Coloration syntaxique avec RE ( début )

dim RE%,Change%,res%,pos%,code% ,mot$,x%,base$,in_liste%,item$,sep%,sep$,temp%
dim mot2$,dep%,coul%,police$
police$="arial"
sep$=","
coul%=(255*0+0)*256+0
label change,temps

height 0,500
width 0,600
dll_on "KGF.dll"

Edit 1 :top 1,5 : left 1,5 : on_change 1,change

RE%  = dll_call2("RichEditCreateWithEvent",handle(0),handle(1))
res% = dll_call5("RichEditGeometry",RE%,5,30,500,200)
res% = dll_call3("RichEditFunction",RE%,5,adr(police$))
res% = dll_call2("RichEditGetInformation",RE%,3)
res% = dll_call3("RichEditFunction",RE%,11,0)

memo 2 :top 2,235 :left 2,5 : height 2,220 : width 2,200 : bar_vertical 2
dlist 3 :file_load 3,"C:\Users\Yannick\Desktop\Essai coloration syntaxique sur re\KeyWordList.inf"
   for x%=1 to count(3)
      item$=item_read$(3,x%): sep%=instr(item$,":"):item$=trim$(left$(item$,sep%-1))
      base$=base$+item$+sep$
   next x%
timer 4 :timer_off 4:timer_interval 4,1 : on_timer 4,temps
end

temps:
  temp%=temp%+1
return

Change:
   timer_on 4
   off_change 1
   pos% = dll_call2("RichEditGetInformation",RE%,3)
   if pos%>1
      res% = dll_call3("SelectRichEditText",RE%,pos%-1,0)
      code% = dll_call2("RichEditGetInformation",RE%,5)
      if scancode = 8 :' retour
         if len(mot$)>0
            mot$=left$(mot$,len(mot$)-1)
         else
            if code%<>32
               mot$=mot2$
            end_if
         end_if
         caption 0,mot$
      else
         if code% <>32 :' espace
            mot$=mot$+chr$(code%)
            mot$=upper$(mot$)
         else
            in_liste% =dll_call3("ItemIndexInString",adr(base$),adr(sep$),adr(mot$))

            if in_liste% >0
               item_add 2,mot$+" est dans la liste"
               dep%=pos%-(len(mot$)+1)
               res% = dll_call3("SelectRichEditText",RE%,dep%,len(mot$))
               res% = dll_call3("RichEditFunction",RE%,7,coul%)
               mot2$=mot$
               mot$=""
            else
               item_add 2,mot$
               mot2$=mot$
               mot$=""
            end_if
         end_if
   end_if
   res% = dll_call3("SelectRichEditText",RE%,pos%,0)
   res% = dll_call3("RichEditFunction",RE%,7,0)
   end_if
   timer_off 4
   caption 0,str$(temp%):temp%=0
   on_change 1,change
return