Demande d'une nouvelle fonction de KGF.

Bonjour.

@Klaus.

Au vu des possibilités de la commande FindStr du Dos, serait-il possible de créer une nouvelle fonction dans KGF.DLL, réalisant la même opération.
Et tenant compte du problème des caractères accentués, évidemment.

Je te demande cela, car cette commande est très rapide, et permet notamment de rechercher toutes les occurrences d'une chaîne dans un fichier entier, en une seule opération.

Merci de la suite.

Réécrire le FIND sous forme de fonction ? Techniquement, c'est certainement faisable. La vitesse d'exécution ? Cela m'étonnerait qu'elle puiss s'approcher, même de loin, de ce que fait la commande FIND qui est écrit en C, très probablement. Anciennement, sous DOS, c'était écrit en Macro-Assembleur. Je vais faire quelques essais...

OK, merci Klaus.

Le but étant d'obtenir la liste de toutes les occurrences d'une chaîne donnée, dans un objet combo.
Cela simplifierait singulièrement mon code, qui en fait usage abondamment.

C'est fait ! Télécharge la nouvelle version de KGF.dll, puis regarde ceci:

Code:

dim res%, fic$, crit$

dll_on "KGF.dll"
memo 1 : full_space 1 : bar_both 1

fic$ = "dico_français_espagnol.txt"
crit$ = "travail"

res% = dll_call2("SearchStringInTextFile",adr(fic$),adr(crit$))
clipboard_paste 1
message str$(res%)+" lignes trouvées"

end

C'est instantané.

Encore une demande de Pedro Alvarez à l'usage exclusif de Klaus, dans une rubrique à usage général......

Effectivement - il aurait dû poster cette demande dans "Le site de Klaus". Désolé - je ne fais que répondre.

Je sais bien Klaus...