Серый форум — VBS: Чтение Файла, поиск имени файла и копирование

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Sat, 20 Dec 2014 08:29:11 +0000

В каждой папке проводится поочерёдный поиск всех совпадений. А до этого была полная рекурсия с каждым совпадением. Так тебе помогло?

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Sat, 20 Dec 2014 07:49:53 +0000

а за счет чего ты ускорил? у меня там в районе 20 ТБ файлов от 100 кбайт до 30 мбайт. или бит

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Fri, 19 Dec 2014 21:46:50 +0000

rayden888 пишет:

а можно ускорить как то поиск?

Немного ускорил.

rayden888 пишет:

а то мне 6 файлов ищет полтора часа

6 файлов? Фантастика какая-то. Должны быть сущие долисекунды.

rayden888 пишет:

Или хотя бы тогда запускался в невидимом режиме

Изменил опцию, но не уверен, что это сработает вне локальной системы.

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Fri, 19 Dec 2014 17:15:54 +0000

Может тут конвеерезацию можно как то устроить?

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Fri, 19 Dec 2014 15:01:35 +0000

Или хотя бы тогда запускался в невидимом режиме, чтобы можно было бы другие дела делать.

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Fri, 19 Dec 2014 14:37:29 +0000

а можно ускорить как то поиск? или лучше использовать другие скрипты? а то мне 6 файлов ищет полтора часа

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Wed, 17 Dec 2014 15:05:46 +0000

rayden888 пишет:

В итоге работает только на локальных дисках.

Окей. А сейчас?

rayden888 пишет:

Для подключения по сетевым дискам необходимы ли дополнительные модули?

Что такое "подключение по дискам"?

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Wed, 17 Dec 2014 13:50:20 +0000

протестировано, поигрался. В итоге работает только на локальных дисках. Для подключения по сетевым дискам необходимы ли дополнительные модули? Может авторизацию как то можно добавить ?

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Tue, 16 Dec 2014 05:23:24 +0000

alexii
Имелось в виду - без внутренней отладки (Err.Raise и т.п.). Есть ещё Script Debuger IDE, MS Script Debuger.

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (alexii) — Tue, 16 Dec 2014 03:09:03 +0000

Дебагить можно в VbsEdit, например.

Можно и без «VbsEdit» .

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Mon, 15 Dec 2014 16:27:38 +0000

Кое-что исправил.
Пишу без тестов, т.ч. не обессудьте.
Дебагить можно в VbsEdit, например.

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Mon, 15 Dec 2014 14:17:12 +0000

Flasher пишет:

Вот, поиграйте:

Играю. Не работает. Как можно VBS скрипты дебагить?

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (Flasher) — Mon, 15 Dec 2014 13:32:58 +0000

rayden888 пишет:

чтобы я сам поиграл

Вот, поиграйте:

Const RCntSym = 6 ' число искомых правых символов
Const LstFile = "C:\Файл.txt"   ' список искомых строк
Const SFolder = "\\file\folder\"
Const TFolder = "C:\copy"

Set SHA  = CreateObject("Shell.Application")
Set Dict = CreateObject("Scripting.Dictionary")
With CreateObject("Scripting.FileSystemObject").OpenTextFile(LstFile,,,-2)
  Do Until .AtEndOfStream
    Str = Trim(.ReadLine)
    If Len(Str) >= RCntSym Then Dict.Add Right(Str, RCntSym), ""
  Loop
End With : FFolder SFolder

Sub FFolder(Folder)
  Set Items = SHA.NameSpace(Folder).Items
  For Each Key in Dict.Keys
    Items.Filter 192, "*" & Key & "*.doc"
    SHA.NameSpace(TFolder).CopyHere Items, 12
  Next : Items.Filter  32, "*"
  For Each Fd In Items : FFolder Fd.Path : Next
End Sub

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Mon, 15 Dec 2014 13:26:35 +0000

Все разобрался. Спасибо

Re: VBS: Чтение Файла, поиск имени файла и копирование

null@example.com (rayden888) — Mon, 15 Dec 2014 13:21:01 +0000

точнее работает. но не универсален в плане файла. а вдруг у файла будет больше символов спереди. то он не копирует.

можно как то изменить

"%from%\*_%%x:~-6%%.*"

этот параметр на универсальный перед 6 цифрами?

Или хотя бы объяснить что тут записано, чтобы я сам поиграл)))