This code queries the foxuser resource file. What does it do?


 


#if 0


What does the code below do?


 


Here’s a clue


      Unknown,


      Command,


      File,


      Label,


      Menu,


      Query,


      Report,


      Form,


      Class,


      Table,


      Database,


      Project,


      Memo,


      Vue,


      Procedure,


      Classlib,


      View,


#endif


USE SYS(2005) AGAIN ALIAS fuser


SELECT * from fuser WHERE id = “MRU” ORDER BY id INTO CURSOR foo


SCAN


      cData=data


      ?id


      ALINES(aa,SUBSTR(cData,3),0,CHR(0))


      FOR i = 1 TO ALEN(aa)


            ?SPACE(5),aa(i)


      ENDFOR


ENDSCAN


 

Comments (5)

  1. This is GREAT stuff!  Thanks Calvin!!

    Most Recently Used entries: MRUB (programs), MRUC (text files), MRUE (menus), MRUH (forms), MRUL (projects), MRUS (tables), MRUT (start folders)

  2. ank says:

    Thanks for code,

    but 2 little corrections:

    1.

    SET ANSI OFF

    2.

    ALINES(aa,SUBSTR(cData,3),.F.,CHR(0))

    && parameter lTrim must be logical (at least for VFP8)

  3. don dodge says:

    This must be what feeds the drop downs you you enter modify command, e.g.

  4.  

    In my prior two posts (This code queries the foxuser resource file. What does it do? and More…