Demande d'amélioration fonction SearchStringInFastTextFile.

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

Bonjour.

@Klaus.

En utilisant cette fonction, je remarque que l'item lu dans la combo se termine par les caractères chr$(13)+chr$(10).
Ces caractères proviennent de la fin de ligne du fichier lu.
Ne pourrait-on pas les supprimer automatiquement ?

D'autre part, il serait souhaitable que le résultat puisse être passé, au choix, dans une variable chaîne.
Mais uniquement le premier item trouvé dans ce cas.

Merci de la suite.

Code:: sub recherche_item(param1%,param2$)
   ' FTF%: identifiant du fichier FastTextFile.
   ' crit$: chaîne de caractères à rechercher dans le fichier.

   ' LineNumbers: indication si les numéros de ligne doivent être retournées ou non.
   ' 0 = pas de numéros de lignes
   ' 1 = retourner les numéros de ligne également

   ' AtStartOnly%: indication si la recherche ne doit trouver le critère qu'en début de ligne ou partout.
   ' 0 = à trouver partout
   ' 1 = uniquement en début de ligne

   ' OutType%: type de sortie pour le résultat.
   ' 0 = résultat dans le presse-papier (pas plus rapide que dans une combo)
   ' 1 = résultat dans un mémo
   ' 2 = résultat dans une combo
   ' 3 = résultat dans une list

   ' obj%: numéro d'un objet mémo, combo ou list en fonction de OutType%, ou 0 si OutType%=0.

   ' res%: n>0 si réussite n=nombre de lignes retournées.
   ' -1 si erreur.
   clear 4000
   trouve%=dll_call6("SearchStringInFastTextFile",param1%,adr(param2$),1,1,2,handle(4000))
   if trouve%>0
   te$=item_read$(4000,1):if right$(te$,2)=chr$(13)+chr$(10) then te$=left$(te$,len(te$)-2)
   end_if
end_sub

C'est corrigé. Charge la nouvelle version.

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

Un grand merci Klaus pour cette nouvelle version.

» Demande de test.
» Non demande de commande
» Demande d'amélioration de 'CreateStringList'.
» Demande d'amélioration de 'SearchStringInTextFile'.
» Une demande et une idée