>Dear Sir,
>
>Regards & Hello
>
>I want to Index on fields after removing unwanted characters . So I have written a function given below. which will remove all unwanted characters and then if the field value becomes Null it will add a space to it and then index on it. SET Procedure to file is also defined but not working.
>
>Help
>Rahul
>
>
>
>
>do form addbkpg.scx
>FUNCTION strindex
>PARAMETER strname
>clnstr=CHRTRAN(UPPER(strname),CHRTRAN(UPPER(strname),"01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",""),"")
> IF clnstr=""
> clnstr=" "
> endif
>RETURN clnstr
>ENDFUNC
You're going to endup with variable length keys, which will slow performance. If you're trying to upper case the index, why not INDEX ON UPPER(field). THis will have beter results in that the function is internal to VFP and the key will always be fixed length.
Craig Berntson
MCSD, Microsoft .Net MVP, Grape City Community Influencer