Re: Recherche dans les chaines |
Sujet: Re: Recherche dans les chaines par BENJI sur 28/9/2006 16:46:02 //Recherche simple critère textesaisie est une chaîne=SAI_Saisie1 sTextecompare est une chaîne i est un entier //Recupère le nombre de fois le mot saisie dans tous les enregistrements " rubrique observation " j est un entier // il fait le total d'enregistrement TableSupprimeTout(TABLE_Table1) codesql est une chaîne="SELECT Facture.NumFacture,Facture.Observations FROM Facture" HExécuteRequêteSQL("Reqtest",hRequêteDéfaut,codesql) HLitPremier("Reqtest") TANTQUE PAS HEnDehors("Reqtest") sTextecompare=HRécupèreRubrique("Reqtest",2) i=ChaîneOccurrence(sTextecompare,textesaisie,SansCasse) j=j+i SI i>0 ALORS sTextecompare=HRécupèreRubrique("Reqtest",1) TableAjouteLigne(TABLE_Table1,sTextecompare) FIN HLitSuivant("Reqtest") FIN Info(textesaisie+"a était trouve"+j) En esperant t'avoir aidé chez moi cela fonctionne |