Loading ...
Sorry, an error occurred while loading the content.
 

variations on a theme

Expand Messages
  • BHCS
    Alan, I got the tasks clip to work. I made several changes to get it going so I m not exactly sure which one did it (so much for one change at a time when
    Message 1 of 1 , Nov 5, 2003
      Alan,

      I got the tasks clip to work. I made several changes to get it going so
      I'm not exactly sure which one did it (so much for "one change at a time
      when troubleshooting..."). The file not found error went away when I
      deleted all of my comments intersperse throughout the clip code.
      Apparently "; some comment here..." is not the right way to add
      comments. Also, somehow I had put one to many fields (",*") in the Find
      line, so getting that right probably helped too. Anyhow, here's what the
      working clip looks like...

      ^!Set %scratchdoc%=temp_tasks.txt
      ^!Set %path%="R:\Clients\BillableHrs\"
      ^!Set %whattask%=^?[What Task?]
      ^!Set %period%=^?[What Billing Period?]
      ^!IfFileExist "^%path%^%scratchdoc%" skip
      ^!GoTo skip
      ^!DeleteFile "^%path%^%scratchdoc%"
      ^!Jump Doc_Start
      :repeat
      ^!Find ""^%whattask%".*",".*",".*",".*",".*",".*",".*"" RSI
      ^!IfError finish
      ^!AppendToFile "^%path%^%scratchdoc%" ^$GetSelection$^%NL%
      ^!Replace "^$GetSelection$" >> "^%EMPTY%" IS
      ^!GoTo repeat
      :finish
      ^!Open "^%path%^%scratchdoc%"
      ^!SetWizardLabel "Save to ^%path%"
      ^!Set %new_name%=^?{As:=^%whattask%-^%period%.txt}
      ^!IfFileExist "^%path%^%new_name%" warn
      ^!RenameDoc ^%new_name%
      ^!GoTo end
      :warn
      ^!Skip A file named ^%path%^%new_name% already exists. Overwrite?
      ^!GoTo end
      ^!DeleteFile "^%path%^%new_name%"
      ^!RenameDoc ^%new_name%


      Bill,

      Bill Harriff ComputerSystems
      PO Box 3286
      Ashland, OR 97520
      1-541-482-7385 (Voice & Fax)
      1-541-951-3680 (Cell)
    Your message has been successfully submitted and would be delivered to recipients shortly.