home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Internet / Strony_WWW / Opus4.x / files / PatternOpus.lha / Rename2Pattern.dopus < prev   
Text File  |  2000-07-22  |  1KB  |  56 lines
  1. /*
  2.    $VER: Rename2Pattern.dopus 1.0 (10.07.00) Copyright (c) Christoph Gutjahr
  3. */
  4.  
  5. OPTIONS RESULTS
  6. file=""
  7. files=""
  8. pattern1=""
  9. pattern2=""
  10.  
  11. STATUS 3
  12. actwin=RESULT
  13. STATUS 9 actwin
  14. files=RESULT
  15.  
  16. DO FOREVER
  17.    GETSTRING '"Give new name pattern:"'
  18.    IF RC~="0" THEN EXIT
  19.    pattern=RESULT
  20.    i=INDEX(pattern,"?")-1
  21.    IF i~=-1 THEN DO
  22.       IF LEFT(pattern,1)~="?" THEN pattern1=LEFT(pattern,i)
  23.       i=LASTPOS("?",pattern)
  24.       IF RIGHT(pattern,1)~="?" THEN DO
  25.          i=LENGTH(pattern)-i
  26.          pattern2=RIGHT(pattern,i)
  27.       END
  28.       LEAVE
  29.    END
  30.    ELSE DO
  31.       NOTIFY 'You MUST specify '"'?'"' as a placehoder for the file number!'
  32.    END
  33. END
  34.  
  35. lang=LENGTH(pattern)-LENGTH(COMPRESS(pattern,"?"))
  36.  
  37. GETSTRING '"Start at which number:"'
  38. IF RC~="0" THEN EXIT
  39. num=RESULT
  40.  
  41. DO i=1 TO files
  42.    GETNEXTSELECTED actwin
  43.    file=RESULT
  44.    CALL KOPIER
  45.    num=num+1
  46. END
  47.  
  48. EXIT
  49.  
  50. KOPIER:
  51. IF lang=1 THEN num2=num
  52. ELSE num2=RIGHT("0000000000000000000000"||num,lang)
  53. filedest=pattern1||num2||pattern2
  54. RENAME file filedest
  55. RETURN
  56.