Demande de fonction spécifique avec KGF.

res% = dll_call6("SearchMultipleStringsInTextFile",adr(t$),adr(fichier$),handle(combo%),adr(interdit$),nombre%,adr(marqueur$))

' test_SearchMultipleStringsInTextFile.bas

dim res%

dim t$
t$ = "El murciélago de herradura de Willard fue descubierto en la República "
t$ = t$ + "Democrática del Congo en 2013 y lo más probable es que se extinga en unas "
t$ = t$ + "décadas. Con él, servicios prestados hasta la mitad de las especies endémicas del corazón de "
t$ = t$ + "África estarán amenazadas en los próximos 50 años. Hasta ahora tenían "
t$ = t$ + "que lidiar con el avance de los humanos, su agricultura y su ganadería, "
t$ = t$ + "que les iban comiendo su territorio. Ahora el cambio climático ha tomado "
t$ = t$ + "el relevo y les arrebatará hasta dos tercios del que les queda. A algunos "
t$ = t$ + "animales, como este quiróptero, los dejará literalmente sin espacio."

dim interdit$
interdit$ = "*a*con*de*del*des*dos*el*en*este*la*las*le*les*lo*los*que*se*sin*su*un*une*y*"

dim fichier$
fichier$ = "....." : ' <=== mettre ici le nom du fichier en question

dim nombre%
nombre% = 2

dim marqueur$
marqueur$ = "#"

dim combo%
combo% = 100
combo combo: top 100,30 : left 100,10 : width 100,500

dll_on "KGF.dll"

res% = dll_call6("SearchMultipleStringsInTextFile",adr(t$),adr(fichier$),handle(combo),adr(interdit$),nombre%,adr(marqueur$))
message str$(res%)

end

' test_SearchMultipleStringsInTextFile.bas

dim res%

dim t$
t$="vende a domicilio ."
t$=lower$(t$)

dim interdit$
interdit$ = "*a*con*de*del*des*dos*el*en*este*la*las*le*les*lo*los*que*se*sin*su*un*une*y*"

dim fichier$
fichier$="fichiers\formes_verbales_espagnol_français_avec_complement.txt"

dim nombre%
nombre% = 3

dim marqueur$
marqueur$ = " #"

dim combo%
combo% = 100
combo combo%: top 100,30 : left 100,10 : width 100,500

dll_on "KGF.dll"

res% = dll_call6("SearchMultipleStringsInTextFile",adr(t$),adr(fichier$),handle(combo%),adr(interdit$),nombre%,adr(marqueur$))
message str$(res%)

end

' tengo que #329872;1;1
' tengo que hacer #329861;1;1
' tengo que hacer algo #329860;1;1
' tengo que ser #329867;1;1
' tengo que ser evacuada #329863;1;1
' tengo que ser evacuadas #329864;1;1
' tengo que ser evacuado #329865;1;1
' tengo que ser evacuados #329866;1;1
' tengo que tratar con #329868;1;1
' vende a domicilio #348982;6;2
' vende a domicilio #348982;6;3
' vende a domicilio #348982;6;4

' test_SearchMultipleStringsInTextFile.bas

dim res%, ticks

dim t$

t$="tengo que hacer ."

dim interdit$:interdit$="*a*con*de*del*des*dos*el*en*este*la*las*le*les*lo*los*que*se*sin*su*un*une*y*"

dim fichier$:fichier$="fichiers\formes_verbales_espagnol_français_avec_complement.txt"

dim nombre%:nombre%=3

dim marqueur$:marqueur$=" #"

combo 100:width 100,500

dll_on "KGF.dll"

ticks=number_ticks

res%=dll_call6("SearchMultipleStringsInTextFile",adr(t$),adr(fichier$),handle(100),adr(interdit$),nombre%,adr(marqueur$))
text 100,item_read$(100,1)
message str$(number_ticks-ticks)

end