Реклама на сайте Advertise with us

Как батчем нанести на картинки их имя файла в винде?

Расширенный поиск по форуму
 
Новая тема Новая тема   
Автор
Поиск в теме:

Shameless Cynic

С нами с 09.07.04
Сообщения: 1767
Рейтинг: 560

Ссылка на сообщениеДобавлено: 07/03/10 в 20:37       Ответить с цитатойцитата 

Лучше в фотошопе smail54.gif

0
 



С нами с 13.10.09
Сообщения: 385
Рейтинг: 49

Ссылка на сообщениеДобавлено: 08/03/10 в 02:29       Ответить с цитатойцитата 

в фотошопе такое сделать как раз не просто - надо специальный скрипт писать

2
 

Shameless Cynic

С нами с 09.07.04
Сообщения: 1767
Рейтинг: 560

Ссылка на сообщениеДобавлено: 10/03/10 в 11:20       Ответить с цитатойцитата 

А не в фотошопе?

0
 



С нами с 13.10.09
Сообщения: 385
Рейтинг: 49

Ссылка на сообщениеДобавлено: 10/03/10 в 20:50       Ответить с цитатойцитата 

Ну много наверняка приблуд есть. Например в ACDSee Pro 2.5 так: Выделяем нужные пикчи. Меню Tools > Batch Processor > ставим галку Text Overlay. В поле Text убираем "Sample text", нажимаем кнопку со стрелкой вниз и выбираем Insert Metadata. Далее раскрываем File Properties и ставим галку Filename(w/o extension). Контролируем процесс в окне Preview. Декорируем текст на свой вкус. smail54.gif
Нифигасе тутор получился...

5
 



С нами с 09.03.09
Сообщения: 6053
Рейтинг: 3538


Передовик Master-X (01.11.2009) Передовик Master-X (16.11.2009) Передовик Master-X (01.02.2011) Передовик Master-X (01.12.2011) Передовик Master-X (16.12.2011) Ветеран трепа Master-X (01.01.2014)
Ссылка на сообщениеДобавлено: 10/03/10 в 22:14       Ответить с цитатойцитата 

Сценарий Powershell, который можно взять за основу:

Код:
param ($path)
[Void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
try
{
   ls $path | %{
      $bitmap=[System.Drawing.Bitmap]::FromFile($_.FullName)      
      $graphics=[System.Drawing.Graphics]::FromImage($bitmap)
      $graphics.DrawString($_.BaseName,
         (New-Object System.Drawing.Font("Arial",60,[System.Drawing.GraphicsUnit]::Pixel)),
         (New-Object System.Drawing.SolidBrush([System.Drawing.Color]::Red)),
         20,
         $bitmap.Height-80)
      $bitmap.Save([String]::Concat([System.IO.Path]::Combine($path,$_.BaseName),'.jpeg'),
         [System.Drawing.Imaging.ImageFormat]::Jpeg)
   }
}
catch
{
   $error[0]
}
finally
{
   $graphics.Dispose()
}

icon_smile.gif

5
 
Новая тема Новая тема   

Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте!


Перейти:  



Спонсор раздела Стань спонсором этого раздела!

Реклама на сайте Advertise with us

Опросы

Рецепт новогоднего блюда 2022



Обсудите на форуме обсудить (11)
все опросы »