home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BATWORKS.ZIP / REVERT.PTM < prev    next >
Encoding:
Text File  |  1990-05-22  |  952 b   |  34 lines
  1. ; Re-read current file as currently on disk (automatically discard
  2. ; current workspace).  This may not be possible in some cases.
  3.  
  4. title=WinGetAct()
  5. if strsub(title,1,10)!="Notepad - " then exit
  6. filename=strsub(title,11,strlen(title)-11+1)
  7. if filename=="(untitled)" then exit
  8. SpecialChars="+^{~!"
  9. i=strscan(filename,SpecialChars,1,@fwdscan)
  10. if i>0 then goto Sanitize
  11.  
  12. :Reopen
  13. sendkey("!fo")
  14. if WinGetAct()=="Notepad" then sendkey("n")
  15. sendkey(strcat(filename,"~"))
  16. exit
  17.  
  18. :Sanitize
  19. ; Any of the special characters "+,^,{,~,!" have to be surrounded
  20. ; by {} before use by SendKey.
  21. file=filename
  22. l=strlen(file)
  23. filename=strcat(strsub(file,1,i-1),"{",strsub(file,i,1),"}")
  24. :Loop
  25. if i>=l then goto Reopen
  26. j=strscan(file,SpecialChars,i+1,@fwdscan)
  27. if j>0 then goto Embed
  28. filename=strcat(filename,strsub(file,i+1,l-i))
  29. goto Reopen
  30. :Embed
  31. filename=strcat(filename,strsub(file,i+1,j-i-1),"{",strsub(file,j,1),"}")
  32. i=j
  33. goto Loop
  34.