Замена именов файлов

[avniv]

Уважаемые господа. Очень нужен скрипт или иное решение.
Есть публикация с большим количеством линкованных изображений с расширением jpg. Очень нужно заменить все линки на файлы с темиже именами но с расширением tif.
Буду очень признателен за совет.

 

[Jоhan]

Ответ: Замена именов файлов

Попробуйте это. Натравливать на каждую главу отдельно. Все очень сыро, так что не забудьте забэкапить публикацию, и потом все три раза проверить. По окончании процесса джыпеги из навигатора удалить ручками.

dim fcrw as long, cpcrw as long, i as long, j as long, cpfrs as string
const ext1 as string ="jpg"
const ext2 as string ="tif"
WITHOBJECT "CorelVentura.Automation.8"
cpcrw = .ChapterPageCount()
for j=1 to cpcrw
	.ViewGotoPage .PageNumber=j, .RelativeTo=0, .GoWhere=4, .UserNumbering=false
	fcrw = .FrameCount(.IncludeSpecialFrames=false)
	for i=1 to fcrw
		.FrameFirst .BaseFrame=false, .FrameIndex=i, .IgnoreGroup=true, .Extend=false
		cpfrs = .CurrentPictureFile()
		if right(cpfrs,3)=ext1 then
			cpfrs = left(cpfrs, len(cpfrs)-3)+ext2
			.FileImportPicture .FileName=cpfrs, .FilterType=0, .ReplaceExisting=false, .External=true
		end if
	next
next
end withobject

 

[Jоhan]

Ответ: Замена именов файлов

Исправлено.

 

[avniv]

Ответ: Замена именов файлов

Спасибо!
Но у меня не запускается этот скрипт.
Может дело в версии? У меня 10.

 

[Jоhan]

Ответ: Замена именов файлов

это для 8-й

 

[Jоhan]

Ответ: Замена именов файлов

поменяйте в withobject версию вентуры на вашу. Авось сработает

 

[avniv]

Ответ: Замена именов файлов

Это я сразу поменял.
А ошибка такая

 

[Jоhan]

Ответ: Замена именов файлов

Запустите его из Script Editor-а, он напишет, что за ошибка, и в какой строке.

 

[arrierguard]

Ответ: Замена именов файлов

А не проще в к-л. тоталь коммандере поменять расширения у файлов?

 

[Jоhan]

Ответ: Замена именов файлов

arrierguard, и что, это сработает?