Форум успешных вебмастеров - GoFuckBiz.com

  Форум успешных вебмастеров - GoFuckBiz.com > Бизнес-решения > Скрипты, программы и технические решения
Дата
USD/RUB58.6890
BTC/USD0.0000
Скрипты, программы и технические решения Обсуждаем скрипты, программы и новые технологии.

Закрытая тема
Опции темы Опции просмотра
Старый 25.01.2011, 00:55   #1
k3t
ЭМО Блондинка
 
Аватар для k3t
 
Регистрация: 27.02.2009
Сообщений: 144
Бабло: $5790
Question Переименовать файлы

Господа хорошие, помогите девушке переименовать несколько десятков тысяч файлов согласно списку ключевиков из текстового файлика.
__________________
Мне наплевать, что вы обо мне думаете. Я о вас не думаю вообще. © Коко Шанель
k3t вне форума  
Старый 25.01.2011, 00:58   #2
imgreen
Lion King
 
Аватар для imgreen
 
Регистрация: 15.11.2008
Сообщений: 12,090
Бабло: $247698106
По умолчанию

сначала сиськи
__________________
ДетскиеДомики.ру - забота о детях с особыми нуждами.
imgreen вне форума  
Старый 25.01.2011, 01:40   #4
Xenu
Ебланнед
 
Регистрация: 08.11.2008
Адрес: Les Yebenes
Сообщений: 1,878
Бабло: $261432
По умолчанию

Xenu вне форума  
Старый 25.01.2011, 01:43   #5
Zodar
Ебланнед
 
Регистрация: 01.10.2009
Адрес: Online
Сообщений: 1,881
Бабло: $294890
По умолчанию

Этот топик имеет светлое будущие, только кеглей нет
__________________
Zodar = Affbox
Zodar вне форума  
Старый 25.01.2011, 02:26   #6
banzai
Senior Member
 
Аватар для banzai
 
Регистрация: 28.04.2007
Сообщений: 1,568
Бабло: $190592
Отправить сообщение для banzai с помощью ICQ
По умолчанию

злые вы )
ТС, делаешь файлик, называешь чтото.vbs
в него пишешь
Код:
  Set fso = CreateObject("Scripting.FileSystemObject")
  set inFile=fso.OpenTextFile("keywords.txt")
  Set f = fso.GetFolder(".")
  Set fc = f.Files
  key=""
  For Each curfile in fc
    if InStr(curfile.Name,".jpg")>0 then
        s=Replace(inFile.ReadLine," ","-")
        newName=s+".jpg"
        if(fso.FileExists(newName)) then
           fso.DeleteFile(newName)
        end if
        fso.MoveFile curfile.Name,newName
        if(inFile.AtEndOfStream <> False) then
             exit for     
        end if
    end if
  Next
keywords.txt - файлик со списком кеев твоих
*.vbs у тебя должен запуститься по дабл-клику в винде
__________________
Заспамит все, что шевелится, что не шевелится сначала разговорит Гугла бояться - в интернет не ходить.
banzai вне форума  
Старый 25.01.2011, 02:31   #7
Drg
Senior Member
 
Регистрация: 19.09.2009
Сообщений: 4,100
Бабло: $611505
По умолчанию

Offtopic
Если бы линукс, то помог бы)
Drg вне форума  
Старый 25.01.2011, 02:37   #8
RedHead
Senior Member
 
Аватар для RedHead
 
Регистрация: 26.08.2008
Адрес: UA
Сообщений: 2,946
Бабло: $402755
По умолчанию

Offtopic
RedHead вне форума  
Старый 25.01.2011, 02:44   #9
banzai
Senior Member
 
Аватар для banzai
 
Регистрация: 28.04.2007
Сообщений: 1,568
Бабло: $190592
Отправить сообщение для banzai с помощью ICQ
По умолчанию

Цитата:
Сообщение от RedHead Посмотреть сообщение
Offtopic
Offtopic
__________________
Заспамит все, что шевелится, что не шевелится сначала разговорит Гугла бояться - в интернет не ходить.
banzai вне форума  
Старый 25.01.2011, 03:11   #10
παφ
накидка-антиблик адидас
 
Аватар для παφ
 
Регистрация: 20.11.2010
Сообщений: 2,153
Бабло: $361580
По умолчанию

Цитата:
Сообщение от imgreen Посмотреть сообщение
сначала сиськи
пизда, разорвал к ебеням
παφ вне форума  
Закрытая тема



Опции темы
Опции просмотра