home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 55 / af055sub.adf / filex11.lha / FileX / ARexx / FindVersion.FileX next >
Encoding:
Text File  |  1993-10-22  |  459 b   |  26 lines
  1. /*
  2.  * FileX arexxscript
  3.  *
  4.  * FindVersion - Searches for the versionstring
  5.  */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. GETATTR PROJECT SEARCHSTRING VAR oldsearchstring
  10. GETATTR PROJECT CURSORPOS VAR oldpos
  11.  
  12. GOTOBYTE 0
  13.  
  14. FIND QUIET TEXT '$VER:'
  15.  
  16. IF rc ~= 0 THEN DO
  17.     GOTOBYTE oldpos
  18.     REQUESTNOTIFY PROMPT '"No Versionstring found!"'
  19.     END
  20.  
  21. IF LENGTH(oldsearchstring) = 0 THEN
  22.     SETATTR PROJECT SEARCHSTRING FROMVAR '"' || '"'
  23.     else
  24.     SETATTR PROJECT SEARCHSTRING FROMVAR oldsearchstring
  25.  
  26.