Signalement d'une erreur du compilateur.

' Version du 30 juillet 2017.

dll_on "kgf"

dim a$, b$, c$, d$, e$, f%, k%, n%, res%, x%, t%, y%
dim r1%, r2%, r3%, r4%
dim par_gauche$, par_droite$, crochet_gauche$, crochet_droit$, temporaire$

par_gauche$="("
par_droite$=")"
crochet_gauche$="["
crochet_droit$="]"

dlist 1
file_load 1,"c:\traducteur\dico_français_allemand.txt"
dlist 2
sort_on 2

temporaire$=" "
t%=count(1)

for k%=1 to count(1)-1
    if mod(k%,100)=0 then caption 0,str$(k%)+"/"+str$(t%)

    a$=trim$(item_read$(1,k%)) 
    if a$="zzz" then exit_for
   
    f%=1

' defensif (adj) = défensiv
' défensif = defensiv

    x%=instr(a$,"(adj)")
    if x%>0
      b$=lower$(left$(a$,x%-1)+right_pos$(a$,x%+6))
      temporaire$=" "
      res%=dll_call3("SearchStringList",object_internal(1),adr(b$),adr(temporaire$))
      if res%>0 then item_delete 1, res%
    end_if

    if f%=1 then item_add 2,a$
next k%

item_add 2,"zzz"
file_save 2,"c:\traducteur\dico_français_allemand.txt"
message "fin: "+str$(t%)+" -> "+str$(count(2))+", soit -"+str$(t%-count(2))+" mots."
terminate

if a$="zzz" then exit_for