******************************************************************** * Description.......: Test_Amenities - tests amenities criteria * Calling Samples...: * Parameter List....: * Created by........: * Modified by.......: Nadya Nosonovsky 10/12/2000 02:38:10 PM ******************************************************************** *set talk on clear local lcSelList, lnSec, lcCrit, lcFileName, lcStr, lnElapsed, li lcStr='' lcFileName='TestAmenities.txt' lcSelList='ABD' for li=1 to 10 lnSec=seconds() lcCrit = [Len(Chrtran(amenities, Chrtran(amenities, lcSelList, ""), "")) = 3] select amenities from bldgmstr where &lcCrit into cursor tt lnElapsed=round(seconds()-lnSec,1) ? lnElapsed, _tally lcStr=lcStr+chr(13)+'2 chrtrans: '+'Elapsed time: '+transform(lnElapsed)+' sec. Number of records: '+transform(_tally) *********************************** lnSec=seconds() lcCrit = ['A' $ amenities and 'B' $ amenities and 'D' $ amenities] select amenities from bldgmstr where &lcCrit into cursor bb lnElapsed=round(seconds()-lnSec,1) ? lnElapsed, _tally lcStr=lcStr+chr(13)+'3 $: '+'Elapsed time: '+transform(lnElapsed)+' sec. Number of records: '+transform(_tally) ************************************************ lnSec=seconds() lcCrit = [occurs("~", Chrtran(amenities, lcSelList, "~~~")) = 3] select amenities from bldgmstr where &lcCrit into cursor bb lnElapsed=round(seconds()-lnSec,1) ? lnElapsed, _tally lcStr=lcStr+chr(13)+'Occurs+chrtran : '+'Elapsed time: '+transform(lnElapsed)+' sec. Number of records: '+transform(_tally) ************************************************ lnSec=seconds() lcCrit = [amenities like '%BDA%'] select amenities from bldgmstr where &lcCrit into cursor bb lnElapsed=round(seconds()-lnSec,1) ? lnElapsed, _tally lcStr=lcStr+chr(13)+'Like : '+'Elapsed time: '+transform(lnElapsed)+' sec. Number of records: '+transform(_tally) ************************ strtofile(lcStr,lcFileName,.t.) next modi file (lcFileName)It's still running... :) But 2 previous result indicated no speed benefit.