Robert van der Hulst wrote:Thanks, this helps.
Robert,
you are welcome. After eyeballing my setup, small changes might make grouping better. Pls. fire up the Fox:
Code: Select all
USE in SELECT("vfp_lang")
USE vfp_lang in 0 excl
index on Shrt tag Shrt
lcWhe = 'LEFT(typ_name,7)== "MODIFY "'
update vfp_lang set shrt = "Modify" where &lcWhe
lcWhe = 'LEFT(typ_name,5) in ("FOPEN", "FILET","STRTO")'
update vfp_lang set shrt = "LLF" where &lcWhe
lcWhe = 'shrt in ("CD | CHDIR","COPY FILE","DELETE FILE"' ;
+ ',"DIR or DIRECTORY","ERASE","MD | MKDIR","RD | RMDIR"' ;
+ ',"RENAME","ADIR( )","CURDIR( )","DIRECTORY( )"';
+ ',"DISKSPACE( )","DRIVETYPE( )","FILE( )")'
update vfp_lang set shrt = "File" where &lcWhe
lcWhe = 'shrt in ("GETFLDSTATE( )","GETNEXTMODIFIED( )"';
+ ',"GETCURSORADAPTER( )","OLDVAL( )","SETFLDSTATE( )"';
+ ',"TABLEREVERT( )","TABLEUPDATE( )")'
update vfp_lang set shrt = "Vfp Buffer" where &lcWhe
select shrt, art, COUNT(*) ;
from vfp_lang;
group by 1,2 ;
order by 3 desc ;
into table vfp_count
SET ORDER TO TAG Shrt IN Vfp_lang
SET RELATION TO shrt INTO Vfp_lang ADDITIVE
sele vfp_count
locate for shrt="LLF"
brow nowait
sele vfp_lang
browse nowait
You probably already have LLF done as I guess any language, including already finished VO needs them.
If by any chance not, I might get a quick drop in/shim done until Wednesday latest and implement better for use in Mono/Android as well later on.
regards
thomas