| View previous topic :: View next topic |
| Author |
Message |
zlodei1988
Joined: 28 Sep 2011
Posts: 10
|
 (Separately) Posted: Sat Oct 01, 2011 17:41 Post subject: |
 |
|
Все просто великолепно! все работает!!! все супер!! Вы ну просто Величайшие умы всех времен и народов!!! удачи Вам, процветания и новых интересных изобретений!!!)
_________________
ХОЧУ ВСЕ ЗНАТЬ |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Oct 01, 2011 17:57 Post subject: |
|
|
| zlodei1988 wrote: | | В том то и дело, что я буду смотреть эскизы файлов, выделять, нажимать кнопку, и они начинают перемещаться в создаваемые папки, вот что надо сделать то( |
И в чём проблема?
В этом скрипте поставить
Поставить Const Rank = 1 и заменить строку n = 1 на | Code: | n = InputBox("Введите имя-число первой папки :", "Создание каталогов и перемещение в них выделенного") |
Ну, можно ещё число на разбиение задавать. Вместо
| Code: | Count = CInt(WScript.Arguments(2)) |
вставить | Code: | Count = CInt(InputBox("Введите число, на которое следует разбивать :", "Создание каталогов и перемещение в них выделенного")) |
А, ну и поменять копирование на перемещение, само собой:
| Code: | If FSO.FileExists(F) Then FSO.CopyFile F, Path |
на
| Code: | If FSO.FileExists(F) Then FSO.MoveFile F, Path |
и
| Code: | FSO.CopyFolder F, Path |
на | Code: | FSO.MoveFolder F, Path |
Last edited by Flasher on Sat Oct 01, 2011 18:17; edited 1 time in total |
|
| Back to top |
|
|
zlodei1988
Joined: 28 Sep 2011
Posts: 10
|
| (Separately) Posted: Sat Oct 01, 2011 18:07 Post subject: |
|
|
Ой Товарищи если бы я что нибудь в этом понимал, я бы сделал))) извините меня глупенького))
_________________
ХОЧУ ВСЕ ЗНАТЬ |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Oct 01, 2011 18:19 Post subject: |
|
|
А что неясного? См. код по ссылке и произодим замену текста.
Дополнил кое-что выше. |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
|
zlodei1988
Joined: 28 Sep 2011
Posts: 10
|
| (Separately) Posted: Sat Oct 01, 2011 18:25 Post subject: |
|
|
Я и тот и тот тестил! А Вы ВАХМУРКА вообще красавец!
_________________
ХОЧУ ВСЕ ЗНАТЬ |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Oct 01, 2011 18:39 Post subject: |
|
|
Вахмурка
А где я прикалывался? Не хочу чужой скрипт с парой тройкой небольших коррекций сюда выкладывать. К тому же там тема профильная и больше подходит.
| Quote: | | Надо было моим скриптом. Он проще. |
Что ты имел в виду? Не вижу никаких ссылок.
| zlodei1988 wrote: | | Я и тот и тот тестил! |
И тот и тот - что и на каком языке? |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
| (Separately) Posted: Sat Oct 01, 2011 18:55 Post subject: |
|
|
| Quote: | | Что ты имел в виду? Не вижу никаких ссылок |
В личку ему выслал. | Quote: | | И тот и тот - что и на каком языке? |
Второй - видимо, мой (см. выше). А насчет языка - последние лет шесть, кроме С++, общаюсь исключительно на PowerPro 
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Oct 01, 2011 18:58 Post subject: |
|
|
| Вахмурка wrote: | | В личку ему выслал. |
Чтобы на флуд не тянуло, ссылкой закрепи, т.с.
То, что один (второй) на PP, это я понял. А первый? |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
| (Separately) Posted: Sat Oct 01, 2011 19:13 Post subject: |
|
|
Какую ссылку?! Во избежание флуда привожу сообщение полностью: | Quote: | Скрипт: | Code: | args Sel, TPath, From
local F
if(not From) do
x9++
else
x9 = From
quit
endif
for each word F in Sel
file.move(F, TPath ++ x9)
endfor |
Образы кнопок:
| Code: | TOTALCMD#BAR#DATA
e:\Utils\PowerPro\powerpro.exe
runfile.test("%P%S", "%T", 12)
E:\Storage\Graphics\Icons\Visual Basic\BULLSEYE.ICO
Начальный запуск
-1 |
| Code: | TOTALCMD#BAR#DATA
e:\Utils\PowerPro\powerpro.exe
runfile.test("%P%S", "%T")
E:\Storage\Graphics\Icons\Visual Basic\BULLSEYE.ICO
Перемещение
-1 |
В первой кнопке третьим параметром задаешь стартовый номер директории. Положение курсора произвольно, выделение - тоже. Затем жмешь только вторую кнопку, предварительно выделив нужные файлы. Директории создаются заранее скриптом, который я выслал тебе вчера.
На всякий случай. Я не несу ответственности за пропажу файлов, за... да вообще ни за что.
Настоятельно рекомендую потренироваться на кошках - создать полигон с ненужными файлами и погонять скрипт.
Желаю успеха. |
Накануне я выслал ему это.
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
| Back to top |
|
|
zlodei1988
Joined: 28 Sep 2011
Posts: 10
|
| (Separately) Posted: Sat Oct 01, 2011 21:56 Post subject: |
|
|
Так и было!)
_________________
ХОЧУ ВСЕ ЗНАТЬ |
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Wed Oct 05, 2011 12:10 Post subject: |
|
|
Дабы не плодить мини топики, опишу свою проблему:
есть папки с фильмами и скриншотами к ним, теперь бы надо автоматически создавать папки внутри этих папок (с названием фильма) и перемещать туда те графические файлы. |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10417
Location: Россия, Саратов
|
| (Separately) Posted: Wed Oct 05, 2011 12:29 Post subject: |
|
|
Riemann
Это пока проблема, но не точное техзадание. Откуда брать название фильма? Какие графические файлы считать "теми", а не "этими"?
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Wed Oct 05, 2011 12:37 Post subject: |
|
|
| Avada wrote: | Riemann
Это пока проблема, но не точное техзадание. Откуда брать название фильма? Какие графические файлы считать "теми", а не "этими"? |
Если конкретизировать, то ситуация такая: имеем в папке Политех
Политех.avi
Политех.jpg
Политех.000.jpg
Политех.001.jpg
Политех.002.jpg
Политех.003.jpg
Необходимо превратить беспорядок в этой папке в такой вид
Политех\ (внутри Политех.jpg Политех.000.jpg Политех.001.jpg Политех.002.jpg Политех.003.jpg )
Политех.avi
Т.е. в основном картинки jpg и их надо упрятать в папку с название видео файла в этой же папке. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Oct 05, 2011 17:40 Post subject: |
|
|
А jpg обязательно будут иметь спереди базовое имя avi?
Last edited by Flasher on Wed Oct 05, 2011 17:46; edited 1 time in total |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
