Rechercher tous les éléments d'un objet liste.

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

@Klaus.

Que penses-tu de ma solution ?

On recherche l'ensemble des éléments d'une liste correspondant à un critère donné, et on place les résultats dans un autre objet liste.

Ne pourrait-on pas concevoir une fonction qui ferait la même chose, mais en une seule ligne d'appel de DLL ?

Code:: dll_on "kgf"

dim b$, debut$, f$, res%, temporaire$, txt$

dlist 2

res%=dll_call2("CreateStringList",1,0)
f$="fichiers\formes_verbales_français_anglais_avec_complement.txt"
res%=dll_call2("LoadStringList",1,adr(f$))

b$="mange#"
txt$=""
temporaire$=" "

debut$=time$
while 0=0
   res%=dll_call3("SearchStringList",1,adr(b$),adr(temporaire$))

   if res%=0 then exit_while

   item_add 2,str$(res%)
   res%=dll_call3("ReplaceStringListItem",1,res%,adr(txt$))
end_while

res%=dll_call2("LoadStringList",1,adr(f$))

message debut$+" "+time$

Bizarre. Là, ce que tu fais, c'est de remplacer toutes les lignes qui contiennent un critère, par une ligne vide, et mémoriser ce numéro de ligne dans une autre liste. Puis, tu recharges la liste initiale pour annuler l'effet du remplacement.

Tu peux obtenir le même effet, et je pense plus rapidement, en lisant simplement ta liste séquentiellement, et chaque fois que l'enregistrement lu correspond au critère, tu mémorises l'adresse dans l'autre liste.

» Objet LIST avec attributs graphiques et éléments éditables ?
» Créer une liste d'articles avec l'objet LIST
» ELEMENTS STANDARDS DE WINDOWS XP
» Pour lier des éléments
» Rechercher... J'ai trouvé !