home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / UTILS / FDATE61A.ZIP / TIC.BAT < prev   
DOS Batch File  |  1992-02-15  |  7KB  |  187 lines
  1. @echo off
  2.  
  3. goto endcomment
  4. revision history
  5. ================
  6. Jan 7, 1992
  7.     Added ADDDOW function for regular weekly appointments
  8. Jan 12, 1992
  9.     Removed all /Od1 and /Imm-dd-ccyy, which are now defaults
  10. Jan 15, 1992
  11.     Added ability to accept +1, etc. as parms
  12. Jan 22, 1992
  13.     Fixed ability to list by date, which had been messed up when
  14.       adding ability to accept +1, etc. as parms
  15. Feb 14, 1992
  16.     replaced calls to batch files with use of new /V parm
  17. :endcomment
  18.  
  19. REM TicBAT points to the tickler batch file
  20. set TicBAT=C:\TICKLER.BAT
  21. set ticdat=
  22. set ticdow=
  23. set ticmsg=
  24. set tictmp=
  25.  
  26. REM ECHO PARM1 IS %1 AND PARM2 IS %2 AND PARM3 IS %3
  27. if (%1)==() goto HELP
  28. for %%v in (t+1 T+1) do if (%%v)==(%1) %0 T +1
  29. for %%v in (t+2 T+2) do if (%%v)==(%1) %0 T +2
  30. for %%v in (t+3 T+3) do if (%%v)==(%1) %0 T +3
  31. for %%v in (t+4 T+4) do if (%%v)==(%1) %0 T +4
  32. for %%v in (t+5 T+5) do if (%%v)==(%1) %0 T +5
  33. for %%v in (t+6 T+6) do if (%%v)==(%1) %0 T +6
  34. for %%v in (t+7 T+7) do if (%%v)==(%1) %0 T +7
  35. for %%v in (ed Ed ED edit Edit EDIT) do if (%%v)==(%1) goto EDIT
  36. for %%v in (t T today TODAY Today  ) do if (%%v)==(%1) goto LIST
  37. for %%v in (dow DOW Dow DoW) do if (%%v)==(%1) goto adddow
  38. if (%2)==() goto LIST
  39.  
  40. :ADD
  41. rem -------------------------------------------------------------
  42. rem use a batch file to set ticdat, because it will display full error
  43. rem message if bad date has been passed in via parm %1
  44. rem -------------------------------------------------------------
  45. Fdate /Ff /A%1 /Imm-dd-yy /Omm-dd-ccyy /Vticdat
  46. if errorlevel 1 goto endit
  47.  
  48. set tictmp=%0 %1
  49.  
  50. shift
  51. set ticmsg=%1
  52. shift
  53.  
  54. :LOOPTOP1
  55. if (%1)==() goto LOOPEND1
  56. set ticmsg=%ticmsg% %1
  57. shift
  58. goto LOOPTOP1
  59. :LOOPEND1
  60.  
  61. if exist %TicBAT% goto exists1
  62. echo @echo off >> %TicBAT%
  63. :exists1
  64. echo if (%%today%%)==(%ticdat%) echo %ticmsg%>>%TicBAT%
  65. CLS
  66. %tictmp%
  67. goto endit
  68.  
  69.  
  70.  
  71. :ADDDOW
  72. set tictmp=%0 %1
  73. rem -------------------------------------------------------------
  74. rem use a batch file to set ticdat, because it will display full error
  75. rem message if bad date has been passed in via parm %1
  76. rem -------------------------------------------------------------
  77. set ticdow=
  78. for %%v in ( 1 2 3 4 5 6 7 ) do if (%2)==(%%v) set ticdow=%2
  79. if (%ticdow%)==() echo Invalid day-of-week number: %2
  80. if (%ticdow%)==() goto endit
  81.  
  82. shift
  83. shift
  84. set ticmsg=%1
  85. shift
  86. :LOOPTOP2
  87. if (%1)==() goto LOOPEND2
  88. set ticmsg=%ticmsg% %1
  89. shift
  90. goto LOOPTOP2
  91. :LOOPEND2
  92.  
  93. IF (%TICDOW%)==(1) SET TICMSG=%ticmsg% [REGULAR SUNDAY APPOINTMENT]
  94. IF (%TICDOW%)==(2) SET TICMSG=%ticmsg% [REGULAR MONDAY APPOINTMENT]
  95. IF (%TICDOW%)==(3) SET TICMSG=%ticmsg% [REGULAR TUESDAY APPOINTMENT]
  96. IF (%TICDOW%)==(4) SET TICMSG=%ticmsg% [REGULAR WEDNESDAY APPOINTMENT]
  97. IF (%TICDOW%)==(5) SET TICMSG=%ticmsg% [REGULAR THURSDAY APPOINTMENT]
  98. IF (%TICDOW%)==(6) SET TICMSG=%ticmsg% [REGULAR FRIDAY APPOINTMENT]
  99. IF (%TICDOW%)==(7) SET TICMSG=%ticmsg% [REGULAR SATURDAY APPOINTMENT]
  100.  
  101. if exist %TicBAT% goto exists2
  102. echo @echo off >> %TicBAT%
  103. :exists2
  104. echo if (%%ticdow%%)==(%ticdow%) echo %ticmsg%>>%TicBAT%
  105. CLS
  106. echo Added: %ticmsg%
  107. goto endit
  108.  
  109.  
  110. :HELP
  111. REM use ansi.sys to set color to blue
  112. echo 
  113. cls
  114. echo ┌─────────────────────────────────────────────────────────────────────────────┐
  115. echo │ TIC.BAT  : maintains and displays TICKLER.BAT, an automated tickler file.   │
  116. echo │═════════════════════════════════════════════════════════════════════════════│
  117. echo │  Usage   : TIC           displays this HELP screen                          │
  118. echo │─────────────────────────────────────────────────────────────────────────────│
  119. echo │  Usage   : TIC T         displays today's    appointments                   │
  120. echo │  Usage   : TIC T  +1     displays tomorrow's appointments                   │
  121. echo │─────────────────────────────────────────────────────────────────────────────│
  122. echo │  Usage   : TIC ED (or TIC EDIT)   calls text editor to edit TICKLER.BAT     │
  123. echo │─────────────────────────────────────────────────────────────────────────────│
  124. echo │  Usage   : TIC mm/dd/yy  displays appointments for date mm/dd/yy            │
  125. echo │  EXAMPLE : TIC 2/2/92    displays appointments for Feb 2, 1992              │
  126. echo │  EXAMPLE : TIC 2/2/tt    displays appointments for Feb 2 of this year       │
  127. echo │─────────────────────────────────────────────────────────────────────────────│
  128. echo │  Usage   : TIC mm/dd/yy  words ...     adds an appointment for date         │
  129. echo │                                        [mm/dd/yy]  to TICKLER.BAT           │
  130. echo │  EXAMPLE : TIC 2/2/92    Quality Improvement committee meeting @ 10 am      │
  131. echo │  EXAMPLE : TIC 2/2/tt    Quality Improvement committee meeting @ 10 am      │
  132. echo │─────────────────────────────────────────────────────────────────────────────│
  133. echo │  Usage   : TIC DOW dow#  words ...     adds a regular appointment           │
  134. echo │                                        for [dow#] day to TICKLER.BAT        │
  135. echo │  EXAMPLE : TIC DOW 2     Regular Monday-morning staff  meeting @ 8:30       │
  136. echo └─────────────────────────────────────────────────────────────────────────────┘
  137. REM use ansi.sys to set color to normal default colors
  138. echo  A
  139. goto endit
  140.  
  141.  
  142. REM ==================================================================
  143. :EDIT
  144.   SPFPC %TicBAT%
  145.   goto endit
  146.  
  147.  
  148. REM ==================================================================
  149. :LIST
  150. if not exist %TicBAT% goto endit
  151.  
  152. for %%v in (t T today TODAY Today  ) do if (%%v)==(%1) goto LISTPLUS
  153. goto LISTDATE
  154.  
  155. :LISTPLUS
  156. set TICfut=0
  157.  
  158. for %%v in (+1 +2 +3 +4 +5 +6 +7) do if (%2)==(%%v) set TICfut=%%v
  159. for %%v in (-1 -2 -3 -4 -5 -6 -7) do if (%2)==(%%v) set TICfut=%%v
  160. for %%v in ( 1  2  3  4  5  6  7) do if (%2)==(%%v) set TICfut=%%v
  161. Fdate /Fadd /At /N%TICfut% /Omm-dd-ccyy /Vtoday
  162. set TICfut=
  163. goto LISTIT
  164.  
  165. :LISTDATE
  166. Fdate /Ff /A%1 /Imm-dd-yy /Omm-dd-ccyy /Vtoday
  167.  
  168. :LISTIT
  169. if (%today%)==(ERROR) echo Invalid date parameter [%1] received by %0
  170. if (%today%)==(ERROR) goto endit
  171.  
  172. rem ------- call batch file to set ticdow Evar -------
  173. Fdate /Ff /A%today% /Odow#   /Vticdow
  174.  
  175.  
  176. echo ───────────────────────────────────────────────────────────────────────────────
  177. FDATE /Ff /A%today% /P"APPOINTMENTS & THINGS TO DO: "
  178. echo ───────────────────────────────────────────────────────────────────────────────
  179. CALL %TicBAT%
  180.  
  181. :endit
  182. set ticdow=
  183. set fdate=
  184. set ticdat=
  185. set ticmsg=
  186. set TicBAT=
  187.