home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Internet / Strony_WWW / Opus4.x / files / SequenceSelect.lha / SequenceSelect.dopus next >
Text File  |  2000-07-24  |  762b  |  36 lines
  1. /*
  2.     $VER: SequenceSelect.dopus 1.0 (24.07.00) Copyright (c) Christoph Gutjahr
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. Status 3
  8. actwin=RESULT
  9.  
  10. Status 9 actwin
  11. files=RESULT
  12.  
  13. IF files>0 THEN DO
  14.    DO i=1 TO files
  15.       GETNEXTSELECTED actwin
  16.       filename=RESULT
  17.       filename2=COMPRESS(filename,'0123456789')
  18.       SELECT
  19.          WHEN filename2="" THEN DO
  20.             basename.i=LEFT('??????????',LENGTH(filename))
  21.          END
  22.          WHEN filename2=filename THEN DO
  23.             basename.i=filename
  24.          END
  25.          OTHERWISE DO
  26.             numstart=COMPARE(filename, filename2)
  27.             basename.i=INSERT('#?',filename2,numstart-1)
  28.          END
  29.       END
  30.       SELECTFILE filename 0 1
  31.    END      
  32.    DO i=1 to files
  33.       'Select 'basename.i' ONLYFILES'
  34.    END
  35. END
  36.