FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Biomorphe de Pickover
par papydall Aujourd'hui à 1:09

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 23 Sep 2018 - 22:14

» Planétarium virtuel.
par Pedro Alvarez Dim 23 Sep 2018 - 19:50

» Virus/Antivirus
par JL35 Dim 23 Sep 2018 - 10:55

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Demande d'amélioration de 'SearchStringInTextFile'.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Demande d'amélioration de 'SearchStringInTextFile'.   Mer 11 Avr 2018 - 17:53

Bonjour.

@Klaus.

J'aurais vraiment besoin d'une amélioration de cette fonction, tout en sachant qu'elle retourne toutes les occurrences d'un critère demandé dans un fichier texte.

Serait-il possible de l'améliorer, en prévoyant le cas du retour de la 1ère occurrence trouvée uniquement.

Merci de la suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Mer 11 Avr 2018 - 18:41

Oui, c'est possible. Je te fais ça ce soir. Ce mode sera activé en additionnant 100 à l'avant-dernier paramètre.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Mer 11 Avr 2018 - 20:52

C'est fait. Recharge la DLL à partir d'une des 3 sources. Puis, ajoute 100 au 5ème paramètre de la fonction (OutType). La fonction retournera le premier trouvé quel qu'il soit, en fonction des autres paramètres dont le sens reste inchangé.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Demande d'amélioration de 'SearchStringInTextFile'.   Mer 11 Avr 2018 - 21:03

Bonsoir.

Klaus, lorsque j'utilise 12 en 5è paramètre, la combo est bien remplie avec les résultats corrects.
Mais, lorsque j'utilise la valeur 112, la combo reste désespérément vide.

Le fichier txt est téléchargeable à l'adresse indiquée dans le code.

Merci de la suite.

Code:
' https://e-nautia.com/share/69844-upcsu209

dim debut$, res%, f$, crit$, k%

f$="index_français_espagnol.txt"
crit$=" chat; mange; souris; "

dll_on "kgf"

combo 3:width 3,500:font_size 3,14:font_bold 3

debut$=time$

for k%=1 to 10
    res%=dll_call6("SearchStringInTextFile",adr(f$),adr(crit$),1,1,112,handle(3))
next k%

message debut$+" : "+time$
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Mer 11 Avr 2018 - 21:37

Et maintenant ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 7:52

Bonjour.

Klaus, il subsiste encore un petit problème.

Seule la 1ère occurrence du premier mot est trouvée.
La fonction ne donne pas l'occurrence du 3è mot.

Merci de voir.

Essaies donc ce code avec 21 puis 121: les résultats sont différents.

Code:
dim debut$, res%, f$, crit$, k%

f$="index_français_espagnol.txt"
crit$=" chat; mange; souris; "

dll_on "kgf"

memo 3:width 3,500:height 3,400:font_size 3,14:font_bold 3

debut$=time$

for k%=1 to 10
    res%=dll_call6("SearchStringInTextFile",adr(f$),adr(crit$),1,1,21,handle(3))
next k%

message debut$+" : "+time$
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 8:34

Voici ce que j'obtiens:

C'est bon, non ? Par sécurité, j'ai refait mes copies sur les 3 sources de téléchargement...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 9:12

Bonjour.

Non, désolé Klaus, ce n'est pas correct.
On voit bien que la ligne correspondant au 3è mot n'est pas affichée !

Essaie avec le code 21, et tu le verras bien.

La fonction devrait afficher ce qui suit:

Code:
[chat;]
58184 chat;
[mange;]
[souris;]
1031118 souris;
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 10:52

J'ai enfin compris... Je comprends vite, mais il fait m'expliquer longtemps ! Smile Smile Smile

Ca marche maintenant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 15:52

Bonjour.

Merci Klaus, tout semble fonctionner maintenant.

Je regrette cependant le manque de performances de cette fonction.

Le test avec une Dlist indique une durée globale de 0 sec pour 1000 itérations !

Code:
dim debut$, res%, f$, crit$, k%, te$

f$="index_français_espagnol.txt"
dlist 1
file_load 1,f$
te$=string$(255," ")
crit$="chat;"

dll_on "kgf"

combo 3:width 3,500:height 3,400:font_size 3,14:font_bold 3

debut$=time$

for k%=1 to 1000
   ' 24 sec.
   res%=dll_call6("SearchStringInTextFile",adr(f$),adr(crit$),1,1,111,handle(3))
   ' 0 sec.
   ' res%=dll_call3("SearchStringList",object_internal(1),adr(crit$),adr(te$))
   ' message trim$(te$)
next k%

message debut$+" : "+time$
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   Jeu 12 Avr 2018 - 15:57

Eh oui, c'est la différence engtre une recherche en mémoire et une autre dans un fichier. La recherche dans le fichier implique des lectures séquentielles dans tout le fichier, pour chaque mot.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Demande d'amélioration de 'SearchStringInTextFile'.   

Revenir en haut Aller en bas
 
Demande d'amélioration de 'SearchStringInTextFile'.
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Annulée] Demande de page d'aceuil
» [Annulée] Demande de description des catégories.
» [résolu] demande d'aide à l'optimisation
» [Basil] Demande de mise en page
» Demande de CSS

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: