home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 951 / ListViewforMacro5.sis / ListView.opl (.txt) < prev   
Encoding:
EPOC OPL Source  |  2000-10-13  |  1.5 KB  |  44 lines
  1.  
  2.  
  3. REM Macro ListView v1.02
  4. REM To be used with Macro5
  5. REM Written for the US/UK Serie 5
  6.  
  7. REM by S.Alisi - sergioalisi@geocities.com
  8. REM http://www.geocities.com/siliconvalley/bridge/1492
  9.  
  10. REM Starts Agenda and lists all the entries "from today"
  11. REM in chronological order (same as the "List View" of
  12. REM the glorous S3x)
  13.  
  14. REM Change path$ as you need for your Agenda file
  15.  
  16. REM Adapt the Pause 100 at the bottom, depending on how
  17. REM deep in the future you want to look; delete the last two
  18. REM lines if you want a complete search of your Agenda file
  19.  
  20. Const path$="C:\Documents\Agenda"
  21.  
  22. PROC Macro:
  23.     If FgApp%:(path$)
  24.         Pause 90
  25.     Endif
  26.         Pause 20
  27.     SendKey:("Ctrl+f")    rem select "FIND"
  28.     SendKey:("Del")            rem empty search string
  29.     SendKey:("Down")        rem move down one row
  30.     SendKey:("f")                rem choose "FROM TODAY" in find range
  31.     SendKey:("Down")        rem move down one row
  32.     SendKey:("Down")        rem move down one row
  33.     SendKey:("Down")        rem move down one row
  34.     SendKey:("a")                rem choose "ALL" for repeated entries
  35.     SendKey:("n")                rem choose "NONE" for repeated entries
  36.     SendKey:("n")                rem choose "NEXT ONLY" for repeated entries
  37.     SendKey:("Ctrl+r")    rem reset find options
  38.     SendKey:("Enter")        rem start the search
  39.     Pause 100                        rem let the search go on for a while...
  40.     SendKey:("Esc")            rem stop searching
  41. ENDP
  42.  
  43.  
  44.