Problème avec le compilateur.

' Version du 30 juillet 2017.

dll_on "c:\traducteur\kgf"

dim a$, b$, c$, d$, e$, f%, k%, n%, res%, x%, t%, y%, z%
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_anglais.txt"
dlist 2
sort_on 2

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

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

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

' intriguer contre qqn (v) = gegen jemanden intrigieren
' intriguer contre qqn (vi) = gegen jemanden intrigieren

     x%=instr(a$,"(v) =")
     if x%>0
        b$=left$(a$,x%+1)+"t"+right_pos$(a$,x%+2)

        temporaire$=" "
        res%=dll_call3("SearchStringList",object_internal(1),adr(b$),adr(temporaire$))
        if res%>0 then f%=0
     end_if

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

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

dim a$, k%

dlist 1
file_load 1,"c:\traducteur\dico_français_anglais.txt"!!
dlist 2

for k%=1 to count(1)
    a$=trim$(item_read$(1,k%))  
    if mod(k%,1)=0 then caption 0,str$(k%)+" : "+a$
 
    if a$="zzz" then exit_for
    
    ' item_add 2,a$
next k%

message "fin"
terminate