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