Re: Recherche dans les chaines
Posté par BENJI le 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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4609&post_id=19126