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
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Demande d'amélioration de 'SearchStringInTextFile'.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1104
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 : 1104
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 : 1104
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 : 1104
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 : 1104
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: