View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 28, 2012 14:41 Post subject: |
|
|
Альваро
А просто поиском (Alt+F7) по маске <НАЧАЛО>*.* воспользоваться нельзя? |
|
Back to top |
|
|
Альваро
Joined: 28 Feb 2012 Posts: 4
|
(Separately) Posted: Tue Feb 28, 2012 16:09 Post subject: |
|
|
Так счас и делается, но файлов много и такие запросы бывают часто.
P.S.: расширение у всех файлов одинаковое |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Feb 28, 2012 16:53 Post subject: |
|
|
Заменить (не проверял):
169 строка: Code: | If FSO.FileExists(pF) And StrComp(Left(pF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(pF), 1) = 0 Then | 209 строка: Code: | ElseIf StrComp(Left(lF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(lF), 1) = 0 Then | Вставка после 106-й строки: Code: | Top = InputBox("Введите начало имён копируемых файлов:", "Фильтрация файлов")
Ext = InputBox("Введите расширение копируемых файлов:", "Фильтрация файлов") |
|
|
Back to top |
|
|
Альваро
Joined: 28 Feb 2012 Posts: 4
|
(Separately) Posted: Wed Feb 29, 2012 10:25 Post subject: |
|
|
Неработает начинает вызывать ошибку за ошибкой, сначала ругается на лишнюю end if, если в 209й поставить пробел между Else if то ругается уже в других подпрограммах.
Добавлено спустя 5 минут:
Зачем инпут бокс, нужно чтобы из файлсписка все выбирало. Думаю расширение файла можно опустить, так как файлы с одинаковым названием но разными расширениями не встретятся, пусть ищет по началу имени например
! | Avada: | Чтобы теги нормально обрабатывались, надо включить в профиле BBCode! | |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Feb 29, 2012 11:25 Post subject: |
|
|
Альваро wrote: | сначала ругается на лишнюю end if | Не вижу, где она там лишняя.
Альваро wrote: | если в 209й поставить пробел между Else if | А кто сказал, что так можно? Не зная броду, ...
Альваро wrote: | Зачем инпут бокс | Затем что Альваро wrote: | такие запросы бывают часто |
Альваро wrote: | нужно чтобы из файлсписка все выбирало. | Всё - это что? И как "выбирало"?
Альваро wrote: | Думаю расширение файла можно опустить, так как файлы с одинаковым названием но разными расширениями не встретятся | Раз можно опустить, то не надо было писать Альваро wrote: | расширение у всех файлов одинаковое | Мне какая разница?
И просьба соблюдать грамматические азы. Читать такой текст особого удовольствия не доставляет.
___________________________________________
Вот рабочий вариант:
Code: | MIME-Version: 1.0
Content-Type: application/octet-stream; name="Рекурсивное_копирование.7z"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Рекурсивное_копирование.7z"
N3q8ryccAAOpoesG4woAAAAAAAByAAAAAAAAAPY5pF3gJLIK210AE49zOwaCmRElQDRbSzl3SKDj
4F2Y71vb25V7EmD7Lh925KiN4pFIgUtKwOAsMXyYIR5N0cbVbxU/aOfGk+SZ+TpDuVIvQueODEFx
CgnfqoY1AnF1vpN5Z+1hx82hynOVIf0WN5QqgNWY/wShTzRdd0WviPJFk4kUjbhBCYOfce15BTCc
8fwek+lOqTWNXBCtW/5oUFBTet+60mTlQVE2RueH86psl9kzkOxdUxl2hXEst0kJpgyA2Wc0Mshx
3dq7OWBVGlAS81qikM9TgFHLBZqIh6TIlvZxrg5s4/uD1iyk0PBewbFwiCOaH8tewcJtT8hePvN1
dA8D8hV2DJoxpKZkF+Gwv1D1UbpLOThysdyY4+9S5EkQSbaXUv0qfFioLxAkfH69UjTY99VOn4GU
Ol7AM9JXl9LCwtKBtEHZi+1ue6eLoYRCmQq0DaqpIjZAQ5CMqsGolUOQU6k4axyZKCis8rb7EEE8
/g9/+bZY+QnFfh9QV4mmw0IG6EmgzJCVyiNH9jEFn8U/0a7cAl8JOipHxYZQqcN7J1ElhjCZwiuV
rObFnrfF8Z/RTlPPmju++JLUoSoqmzLV9h3+cvzAre0qED+LS1uA5wC6HRBfmXUbicRLjffJ57kR
FTvKpjha8nGYiV7tYJX40XgCY8ZszkiWWAkKsUT7TV67d3v8+qHhY8bkAKwRpu1Slb/bIAU9G8GG
mZBbKhCUxpDD6hfS79apbTPQ4UkNF+qmg3KhRZ7jyZSBTafTh7jClwiaSu+LAwU8v7jTnozqfayZ
xKEbZJMCcm+p/Lr6RW4gyGi6uVv6/Ne1K88u/RPMSvS+v+hUp/iBRANayr9ZGj9b9SkM5mYf1MjM
xpzaj7+715g6rGW9aA0eXMAZJbbqEqB3aErcSdzPOvwMVLqzW0IBcrHYxWFoluGAmpk0aIMF9Bx8
Y+86c78J1kHGur9ZKlmVBsNo2UM0BpefY/RVF1t+JoHIw6cFg1c5VzFatcPoqPXHQDFcm8pDu4P+
StLnsqLo34UcTIG0R5gFPZR3fijVeKGKEsfELUeg1A4mqRSAc8/se2+IIds+KzxrYpA0TDoUNGVZ
HLYcSTr0jB6dAxxxRaQ61XYLQ/Sj6U9C3YooB/pz4Bup36E/MuvYg+OLRXkRjYyvf5MtDeRG7JFb
w5/BTuEFB65e6BMmQvg58+Pfr2ggcQGI8ZA5D+6djjRAV6R+piOhcak/OPYg8+dcdnww+G6uCRDH
bADCU9+lTA1t4GyqOKDsjnKpbvdc+UkFwoK4IE8BpF9pKySLO4TWrfIpderdF0tPeFrMeg7xNuTf
BXgqVTFFjL7EaZFmLonLd9lVXpUPjvjXJXKNZ1AOIbCNYTEhCXOXCvBy9tg/vJyZZ4RL/YE8of4y
k5cf4wgqvMvEa8zfS00Q4SEU/Y3ONouoYLYLWShfPl0xBLxGJu5TIiLyUy1pUSmNOZmFcztr/XfK
F7MA9i5NXEc27xRK0dWFUw/IjEjPEi9W4cTTcEsfnlTtGiMqcEFVnrRMD60nUw5bD8apm6HahWHK
onKLjQiu+s+IzPy7OWf1r85HKal5/2pPQhl+6zark0LMEk8qwQyi19jH8PL+RyItsa5Ms5yBBjNP
9peVeie2m8ZZgxOpv7hvkVhojAagdwZ87CXpGcDbu3Rum7eu3ijxd1LTN+Q0Wpt8bvBljh831TmH
vPizpDflgClcXRC9kGQ/waN/E8zDirZebq7vylvEAyzNoVJGAMmhHj3XMMOOQnxqdInUTrYw3Zo0
z7fSrvwsURYaPtymTAHAN7Vb51H/ixy2Heu4g36l6LDxZGpSdly+c0jI7YZaIdYEWLExykoewqOo
wRvLiMmhaTzKcNjZK8gScUsPTf7YuYiv7C9dkvA4+r+epegcE1jai5IfIa6DSM2ksgN9QkFf3Opl
JuDsOOEAj9LALuzgso1+sQE306+YAVaiP+4PobWqlggOJckznHeGMc6Ytze2+Y24K1PZhCEZCG4G
ZzTyYUn5AvtUNXVOB2g6S7liHMZXXCZVd63Dcol7LBnLx9J/hq5OT24OuPUlgsQnEDd8l+KgTNLF
xdM9AobcSQzRYVOxUtEeLPyFsfl76FbljN8pWwo4V+DINttxrY3mFsyWWSVxVSTZGfORDobr/8uV
1m7cz5cb2Ks/N/BuH8nB0Q0p7G5OnZ4PKHK+Odezjo2vMFx5KIGfHf6lh0Yb+sChVPUfo9SpVTVj
Zv1LzU3jaIeCl6C1IiI/qUMiqf7JIstkpoQQnNjmf/09T4K4m6RUBlGXIhRJdbel4oe4Yx/vRRbE
qAgHO8Z4vmzAQjPlo0+2hURxMw8bkJFF2Yq6rY0dX4PqgUkmGVqrNt71tfngHDuw65eve68NDY7H
z2lSHvcVnnRo4HzHUUhs8godmxSpp5mLYyfb+2YSGA3a8r+6mhcnE/SNVdBbONPzCBX5mVJVZ8s8
ZLlo6Yl7sKdcvqkNyOA+MWQ77ysCh5XrVBTIplr7Q0LlVYXu1MrLFCwefnDcI+OOheAWDwn8ll01
NYXkV1HhuzhBlkFnHmrco8nUGNc4QvPhilmPhTFfB1gvEAW8JaiqyLwytbPOrt9gE+VWDryuvKyh
F8J71N0Ve5ht0+O069aNTnqq/DP5sEPrWoixv5k9flTGMVdv82hGzKGxlqh9TTgL6qjisQ6Ug/XL
ET1uMr9zKH83opqluz9NSx9wbza8hE7NcFh3KMt8DKXSwMGpBsPEPp+5zC7VaREebC9AU/AUwhPj
3+F8jq/Ckr82oY0gXx0Jq9QXMqBNqHAzlVjH7pkWM7mfQssalL3GdjH6gB7FAq0KpppJs+68uU1x
UkhZQM+PSvLrAAs1hznYGDuO2VAHhmZAV4CETJi8rusDXaSuqHiX2C+uI6oT9/I6CNv3cTBU3shZ
sTA5GtmKNJY+Ey8twQHaSLp9zfNfe9mLQJ/r3zgBxKLa2rthg9k3IQtuJ87LKFhRtMHrfjqybIw6
76EG4AxVfFdm/a23e8+AzWkMs86A8CzbFw/9lPDi7oauz3fsvztGymhfQrHMCwt5xxTNtcth+0OK
edL+renFwdHxHr80c1nvI6bRNXFnSai4yR3s8P/OLtpC+vg50N0Td4seW4znxA9Zg1wswTnD5jIX
+1R0mAtX6w+Tl50fG4yqeXoilDBE0NUkqkEYOL8wBS40ZQg2w5guOl+g0zsz42N7/+05iWMXEtvP
MNuaAHFsbXwPo8RPA3qGGpttGlqx4QfJzRtTjT9Rzd6q9iKmcW2TOxB2TcuQPLDWLu2JdyGhGfh/
Afx46raJobm3F64MDWbvgpYm6S4oJwVdo+akxihhd4VS4CcWuHzuitIaw7awoawBGcvbKJHvv4ws
q9kOx2KL5X/1bWIDhmm66t2xtmtj+bJA+dmarK0WnaPGaMEu/fbLPo+1NuA4Q9MmkOcEPizbspTq
5teEnxPfh7StLHAkLg0sEtOPLIBNZPqMePtb4Qvbl9IcdErI7/ZW6q9P+8sP6LEz/0zjA/JsmVFE
lrxZkKBfmoS+W09PhtHbAQKy1UnjKWI5QWv4ddQw11h8O9B6Iy8wGtOHNqz880r/wcBisG1aAv5H
nsvkbCeONnCQgL3krq0zEDxFh2FUk0dE/pG4H2eqzvO1+uNytVWBPYJiNPGD5MgLll+2vWaNW+at
2Uzj+1sLRpfItvSAcl90CuF3dBHGX+RHEAABBAYAAQmK4wAHCwEAASEhAQgMpLMACAoBL1M37gAA
BQEROQAgBDUEOgRDBEAEQQQ4BDIEPQQ+BDUEXwA6BD4EPwQ4BEAEPgQyBDAEPQQ4BDUELgB2AGIA
cwAAABQKAQBVNJHZzfbMARUGAQAgAAAAAAA= |
|
|
Back to top |
|
|
Потай
Joined: 07 Sep 2012 Posts: 1
|
(Separately) Posted: Fri Sep 07, 2012 09:42 Post subject: |
|
|
Здравствуйте! У меня такая вот проблемка, нужно из структуры вида
C:\folder1\folder2\123\123\1.jpg
получить структуру
C:\folder1\folder2\123\1.jpg
Я хотел первый самый скрипт как-нибудь использовать, но не знаю как |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 09, 2012 14:13 Post subject: |
|
|
Потай
Первый скрипт не поможет. И вообще это неподходящая тема. Тут про копирование. Есть несколько скриптов перемещения на уровень вверх, но не уверен, что они подойдут. Поэтому задачу надо описывать более подробно (здесь, здесь или лучше в новой теме). Если бы задача была только в том виде, что представлена, то она элементарно решалась бы штатными средствами ТС (выделить всё и переместить в родительскую папку). А если этих 123 много и они все разные, то об этом и надо писать заранее, указав на несколько примеров. |
|
Back to top |
|
|
Matras
Joined: 28 Jan 2013 Posts: 3
|
(Separately) Posted: Mon Jan 28, 2013 18:07 Post subject: |
|
|
Добрый день, нашел ваш скрипт, пытался скопировать, но почему то ошибки возникают с путями типа вот таких "C:\data\zashita_porogi\Ford\F-150\2009-\7.jpg", пишет что там нет такого файла, а он там 100 % есть. из 234 файлов он 30 упускает, потом когда отдельно вставляешь пути к ним он находит, из з этого вопрос можно ли как то это исправить если нет, то хотя бы лог формировать с путями, которые небыли внесены, что бы их повторно вставлять. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jan 28, 2013 18:23 Post subject: |
|
|
Matras
Памятка была прочитана? См. первый пункт при ошибках. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Matras
Joined: 28 Jan 2013 Posts: 3
|
(Separately) Posted: Mon Jan 28, 2013 19:00 Post subject: |
|
|
Flasher
Я не могу найти эту памятку по ошибкам, вы имеете ввиду именно для этого скрипта есть? |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10280 Location: Россия, Саратов
|
(Separately) Posted: Mon Jan 28, 2013 19:41 Post subject: |
|
|
Matras
Для всех скриптов есть. Памятка прикреплена в данном подфоруме с обозначением, что обязательна к прочтению. Открываем содержание подфорума и смотрим. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Matras
Joined: 28 Jan 2013 Posts: 3
|
(Separately) Posted: Mon Jan 28, 2013 20:22 Post subject: |
|
|
TC версии 7,56а, win 7 64
Вот скрин ошибки, как быть с одинаковыми названиями?
Параметры: "d:\wamp\www\Работы Tuningdom\Работы\Читсим FTP\new.txt" "%T"
! | Avada: | Ссылка приведена в норму, ненужные подробности о регистрации TC убраны. | |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
(Separately) Posted: Fri Feb 01, 2013 17:08 Post subject: |
|
|
Matras wrote: | как быть с одинаковыми названиями? |
Это ты должен сам решить, чего ты хочешь. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
wizard_vrn
Joined: 03 Apr 2013 Posts: 1
|
(Separately) Posted: Tue Apr 09, 2013 13:14 Post subject: |
|
|
Помогите плиз! Прочитал первые посты скачал срипт от Batyaустановился но файлы не ищет
Задача:
Есть около 20 000 файлов все примерно такого типа имеют имена Data_From_to_XXXXXXXXX, где ХХХХХХХХ номера телефонов.
Расширение у файлов разное.
Нужно чтобы скрипт/плагин нашел файлы с номерами телефонов указанный в отдельном файле например file.txt
В файле только сами номера телефонов.
Спасибо оч надеюсь на помощь |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Apr 14, 2013 01:22 Post subject: |
|
|
wizard_vrn > Flasher wrote: | И вообще это неподходящая тема. Тут про копирование. | 1, 2,... _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|