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
» Version instantanée V 0.9.28i18 du 27/04/2018
par Jack Aujourd'hui à 8:49

» Et encore un éditeur...
par Jean Claude Aujourd'hui à 8:41

» Un CONTAINER sans bordure
par Fredisland Hier à 23:27

» windows
par Klaus Hier à 23:21

» Exécutables et Applications
par Jack Hier à 20:07

» Une suggestion pour soulager l'auteur de PANORAMIC
par Fredisland Hier à 20:05

» Le serpent qui se mange la queue avec LE DOSSIER EN COURS
par Fredisland Hier à 20:00

» Utilisation de Make_Exe
par Jack Hier à 19:50

» Comment travaille l'auteur de Panoramic
par Jack Hier à 19:43

» API Windows
par Fredisland Hier à 19:16

» Utilisation de RunDll32
par Fredisland Hier à 17:55

» pbs dessin et ecriture sur form
par Fredisland Hier à 17:34

» Panoramic et Windows
par Fredisland Hier à 14:55

» Identifiants Globaux utilisés par Windows
par Fredisland Hier à 14:05

» Nouvelle version 0.32
par Jean Claude Hier à 14:00

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Demande d'amélioration de 'SearchStringInTextFile'.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1001
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 : 10970
Age : 68
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 : 10970
Age : 68
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 : 1001
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 : 10970
Age : 68
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 : 1001
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 : 10970
Age : 68
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 : 1001
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 : 10970
Age : 68
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 : 1001
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 : 10970
Age : 68
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: