home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Exec 3
/
CD_Magazyn_EXEC_nr_3.iso
/
Internet
/
Strony_WWW
/
Opus4.x
/
files
/
PatternOpus.lha
/
Move2Pattern.dopus
< prev
next >
Wrap
Text File
|
2000-07-22
|
1KB
|
56 lines
/*
$VER: Move2Pattern.dopus 1.0 (10.07.00) Copyright (c) Christoph Gutjahr
*/
OPTIONS RESULTS
file=""
files=""
pattern1=""
pattern2=""
STATUS 3
actwin=RESULT
STATUS 9 actwin
files=RESULT
DO FOREVER
GETSTRING '"Give new name pattern:"'
IF RC~="0" THEN EXIT
pattern=RESULT
i=INDEX(pattern,"?")-1
IF i~=-1 THEN DO
IF LEFT(pattern,1)~="?" THEN pattern1=LEFT(pattern,i)
i=LASTPOS("?",pattern)
IF RIGHT(pattern,1)~="?" THEN DO
i=LENGTH(pattern)-i
pattern2=RIGHT(pattern,i)
END
LEAVE
END
ELSE DO
NOTIFY 'You MUST specify '"'?'"' as a placehoder for the file number!'
END
END
lang=LENGTH(pattern)-LENGTH(COMPRESS(pattern,"?"))
GETSTRING '"Start at which number:"'
IF RC~="0" THEN EXIT
num=RESULT
DO i=1 TO files
GETNEXTSELECTED actwin
file=RESULT
CALL KOPIER
num=num+1
END
EXIT
KOPIER:
IF lang=1 THEN num2=num
ELSE num2=RIGHT("0000000000000000000000"||num,lang)
filedest=pattern1||num2||pattern2
MOVEAS file filedest
RETURN