|
Тотальное переименование
|
|
| Xakep_nsk | Дата: Понедельник, 04 Июня 2007, 16:48 | Сообщение # 1 |
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Вот проблема такая хотел переименовать все файлы на локальном диске с помошью mmb (поменять разрешение)
Испоьзовал код as-mastеr'a
| Quote |
EXT$='jpg'
BrowseForFolder("","")
seldir$=CBK_OpenDir
If (seldir$ <> '') Then
SearchForFiles("seldir$","EXT$")
If (CBK_NumInList>0) Then
ListBoxAddItem("SongList","RESET")
ListBoxAddItem("SongList","<List>")
ListBoxSortItems("SongList","NAME")
SongListReset()
ListBoxGetItems("SongList","<List>")
End
Else
Return()
End
ListBoxGetItems("SongList","It$,Num$,#,Num")
Num$=CHAR(Num)
ListBoxGetItems("SongList","Items$,NumItems$,#,Count")
For i=1 To Count
Item$=GetArrayItem(Items$,#,i)
???????????Незнаю как тут сделать скрипт чтоб разрешение меняло
Next i
|
Помогите если можете.
Заранее спасибо!Добавлено (04 Июня 2007, 16:48)
---------------------------------------------
Надо чтоб переименовывало)
|
| |
| |
| YURIY | Дата: Понедельник, 04 Июня 2007, 17:43 | Сообщение # 2 |
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Xakep_nsk, http://mmbuilder.ru/forum/12-358-3496-16-1178877170
Вечная память Андрею Сергееву!
|
| |
| |
| toizy | Дата: Понедельник, 04 Июня 2007, 17:57 | Сообщение # 3 |
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
| | Quote (Xakep_nsk) | | поменять разрешение |
Расширение...
Жизнь оказалась не такой уж и забавной, как поначалу...
|
| |
| |
| Xakep_nsk | Дата: Понедельник, 04 Июня 2007, 18:42 | Сообщение # 4 |
|
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Извините за ошибку торопился.
Я уже смотрел не работает .
Програмка должна выполнять поиск файлов по заданому расширению и менять его
Сообщение отредактировал Xakep_nsk - Понедельник, 04 Июня 2007, 19:07 |
| |
| |
| Xakep_nsk | Дата: Вторник, 05 Июня 2007, 10:27 | Сообщение # 5 |
|
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Спасибо тебе большое toizy.
сейчас проверю!
Сообщение отредактировал Xakep_nsk - Вторник, 05 Июня 2007, 10:36 |
| |
| |
| YURIY | Дата: Вторник, 05 Июня 2007, 15:12 | Сообщение # 6 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| | Quote (Xakep_nsk) | | Спасибо тебе большое toizy. |
я типа ничего не сделал... ладненько
Вечная память Андрею Сергееву!
|
| |
| |
| Xakep_nsk | Дата: Вторник, 05 Июня 2007, 16:16 | Сообщение # 7 |
|
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Yuriy блин извини(нехорошо как то вышло).
И тебе большое спасибо.
|
| |
| |
| YURIY | Дата: Вторник, 05 Июня 2007, 18:25 | Сообщение # 8 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Xakep_nsk, 
Вечная память Андрею Сергееву!
|
| |
| |
| Andrey | Дата: Среда, 13 Июня 2007, 16:27 | Сообщение # 9 |
|
Новый участник
Группа: Проверенные
Сообщений: 26
Репутация: 0
Награды: 0
Статус: Offline
| Quote (Xakep_nsk) Вот проблема такая хотел переименовать все файлы на локальном диске с помошью mmb (поменять разрешение)Испоьзовал код as-mastеr'a
А зачем изобретать велосипед, только для того, что бы переименовать несколько файлов, если Вы пользуетесь тотал командером (он же windows командер), то кнопочка ctrl+m поможет справиться с этой проблемой.
Quote (toizy) Програмка должна выполнять поиск файлов по заданому расширению и менять его
Опять же, только Alt+F7 поиск по расширению. ... Если только ради спортивного интереса...
|
| |
| |
| as-master | Дата: Четверг, 21 Июня 2007, 09:51 | Сообщение # 10 |
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Quote (Andrey) А зачем изобретать велосипед, только для того, что бы переименовать несколько файлов, если Вы пользуетесь тотал командером (он же windows командер), то кнопочка ctrl+m поможет справиться с этой проблемой. Всю жизнь именно так и делаю :)
Да пребудет с вами ММВ!
|
| |
| |
| Xakep_nsk | Дата: Пятница, 22 Июня 2007, 19:30 | Сообщение # 11 |
|
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Проблема в том что переименовывать на до на куче машин и не обязательно jpg.
Да и так учше на флешку 200 кб кинуть чем тотал
|
| |
| |
| toizy | Дата: Пятница, 22 Июня 2007, 20:37 | Сообщение # 12 |
|
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
| Quote (Xakep_nsk) Да и так учше на флешку 200 кб кинуть чем тотал
Ну уж 200... 450 как минимум. А я лучше всё-таки тотал кину. Любая флешка позволяет, и размер тут ни при чём
Жизнь оказалась не такой уж и забавной, как поначалу...
|
| |
| |
| as-master | Дата: Пятница, 22 Июня 2007, 20:50 | Сообщение # 13 |
|
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Я такую программу сделаю как два пальца об асфальт или как два файла отослать
В самом деле, может сделать проект для сайта? А то как раз бездельем мучаюсь.
ВОПРОС: переименовывать надо расширения или имена, или и то и другое?
Да пребудет с вами ММВ!
|
| |
| |
| as-master | Дата: Суббота, 23 Июня 2007, 08:28 | Сообщение # 14 |
|
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Чёта мне нынче ночером не спалось, и я заху.. забабахал такую программу.
Вот вам скрин:  Пока выкладываю её как программу, если понравится,
то могу выложить на сайте в виде проекта. Quote (toizy) Ну уж 200... 450 как минимум. Ну уж не 450, а в 376 кило я упаковал :)
Да пребудет с вами ММВ!
|
| |
| |
| toizy | Дата: Суббота, 23 Июня 2007, 10:34 | Сообщение # 15 |
|
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
| Не хватат ещё "Открыть папку".
Жизнь оказалась не такой уж и забавной, как поначалу...
|
| |
| |
| as-master | Дата: Суббота, 23 Июня 2007, 11:19 | Сообщение # 16 |
|
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Quote (toizy) Не хватат ещё "Открыть папку".
Если бы ты качал файл, а не только скрин смотрел,
то знал бы, что кнопка "Открыть файлы" как раз и открывает папку.
И ищет там все с указанным расширением. А вот кнопку, действительно открывающую только файлы по выбору,
сделать трудно, так как в ММВ нет мультивыбора при открытии файла,
и будет открываться только по одному файлу. А это очень неудобно.
И только музыкальные файлы можно открывать сразу группой,
командой AudioOpen(""). Но я думаю, что для его целей достаточно и открытия папки. Кстати, ты бы лучше проверил, как прога работает.
Вроде, я всё предусмотрел "от дурака". И багов нет. Отклики давайте млиааа!
Да пребудет с вами ММВ!
|
| |
| |
| YURIY | Дата: Суббота, 23 Июня 2007, 13:44 | Сообщение # 17 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Quote (as-master) Чёта мне нынче ночером не спалось, и я заху.. забабахал такую программу. Посмотрел. Работает Всё чётко!
Вечная память Андрею Сергееву!
|
| |
| |
| Xakep_nsk | Дата: Воскресенье, 24 Июня 2007, 14:04 | Сообщение # 18 |
|
Новый участник
Группа: Проверенные
Сообщений: 6
Репутация: 0
Награды: 0
Статус: Offline
| Блин обалдеть все работает все красиво.
ВСЕМ БОЛЬШОЕ СПАСИБО.
as-master'y еще больше
|
| |
| |
| as-master | Дата: Понедельник, 25 Июня 2007, 12:40 | Сообщение # 19 |
|
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Программа "Переименователь расширений" выложена на сайте ММВ
в виде проекта на страничке "Проекты - Утилиты". Забирайте кому надо :)
Да пребудет с вами ММВ!
|
| |
| |
Все права защищены
