Серый форум — VBS: Отбирать в коллекцию папки по определенному фильтру

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Wed, 24 Feb 2016 18:14:54 +0000

Flasher, Вы гений! Низкий Вам поклон и миллион благодарностей!

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Wed, 24 Feb 2016 17:47:56 +0000

CSV.WriteLine Replace(Ltrim(Replace(rNom,"0"," "))," ","0") & ";" & Ubound(Split(Cors, ", ")) + 1 & ";" & Replace(Cors,",",";")

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Wed, 24 Feb 2016 17:32:04 +0000

Flasher, огромнейше благодарен за Ваше желание помочь и разобраться!
К сожалению, на работе Интернет заблокирован, поэтому прочитал Ваш пост только сейчас. Зато на работе нашлось время для работы над скриптом. Нашел свою ошибку: Set-ы и другие переменные, которые участвуют в процедуре, нужно прописывать до вызова самой процедуры, а у меня было прописано после. Никак не мог понять, что процедура, в отличии от функции, начинается не с Sub, а раньше. Теперь хорошо это усвоил и сразу решилась куча проблем! Отдельное спасибо за Ваши пояснения к скрипту! Поэтому нужно добавить к Вашему комментарию:

Но такое может произойти только при условии добавочного объявления внутри процедуры или закрытии/очищении объекта CSV.

Или при условии открытия объекта CSV после вызова самой процедуры.

Единственное, что осталось еще нерешенным, так это подсчет числовых значений в атрибуте "correct". Как получать значения видно в посте 26, как их просто записать в CSV показано в Вашем посте 29. Но необходимо вклинить между двумя нижепредставленными значениями третье:

CSV.WriteLine Replace(Ltrim(Replace(rNom,"0"," "))," ","0") & ";" & Replace(Cors,",",";")

Как его получить долго ломал голову. Суть в том, что значения атрибута "correct" могут иметь вид "3", а могут "1, 5, 7, 15, 9, 12". Необходимо посчитать их количество и вывести такой результат: 1 - для первого случая и 6 - для второго. Ничего лучше не придумал, как если по-умолчанию будет выводиться 1, а после очищаем все числовые значения, считаем число запятых и прибавляем их к значению по-умолчанию. Но с помощью чего это реализовать, да еще чтоб можно было вклинить в одну строчку кода выше, даже не представляю...

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 20:24:04 +0000

Никакого запрета на запись в корень С: нет? Такой скрипт работает?:

Option Explicit
Const File = "C:\Test.csv"
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim CSV : Set CSV = FSO.OpenTextFile(File, 8, True)
Dim n : WrText : CSV.Close
GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").document.Application._
NameSpace(FSO.GetParentFolderName(File)).ParseName(FSO.GetFileName(File)).Verbs.Item(0).DoIt

Sub WrText
	n = n + 1
	CSV.WriteLine n & ";Текст;"
	If n < 10 Then WrText
End Sub

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 20:03:25 +0000

Flasher пишет:

Я понимаю. Но такое может произойти только при условии добавочного объявления внутри процедуры или закрытии/очищении объекта CSV.

Добавочного объявления внутри процедуры нет:

Dim Items, Max, Filt, Fold, rNom, Cors

Закрытие/очищение объекта CSV тоже отсутствует - такой строки в файле нигде нет:

Set CSV = nothing

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 19:54:28 +0000

Я понимаю. Но такое может произойти только при условии добавочного объявления внутри процедуры или закрытии/очищении объекта CSV.

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 19:48:38 +0000

Flasher пишет:

Глобальные можно объявлять где угодно вне процедур и функций единожды.
Соответственно, если указывать в перечислении, то от 'Dim CSV :' нужно избавиться.

Спасибо за еще одно пояснение!
Глобальную переменную CSV объявил единожды, но всё же ошибка "Требуется объект: CSV" на строке

CSV.WriteLine Replace(Ltrim(Replace(rNom,"0"," "))," ","0") & ";" & Replace(Cors,",",";")

о чем уже писал в 30 посте.

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 19:41:36 +0000

Глобальные можно объявлять где угодно вне процедур и функций единожды.
Соответственно, если указывать в перечислении, то от 'Dim CSV :' нужно избавиться.

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 19:32:20 +0000

Flasher пишет:

Тут только одна глобальная переменная - CSV. В процедуре открывать файл на запись и не надо, он же один.

Глобальные переменные перечисляются после "Option Explicit : Dim ..." Если сюда добавляю CSV, тогда на строке

Dim CSV : Set CSV = FSO.OpenTextFile("C:\Test.csv", 8, True)

получаю ошибку "имя было переопределено"...

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 19:21:51 +0000

Какие переменные? Тут только одна глобальная переменная - CSV. В процедуре открывать файл на запись и не надо, он же один.

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 18:55:41 +0000

Flasher пишет:

Плюс ко всему никто не мешает дописывать новые строки в файл

Прописал переменные глобально и добавил строки в файл. При компиляции ошибка "Требуется объект CSV".
Set CSV находится ведь вне процедуры (в процедуру прописать нельзя - "разрешение отклонено")...

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 18:01:04 +0000

Не нужно присваивать пустые значения. Я же писал, что достаточно объявить переменные глобально.
От счётчика тут вообще никакого толку. Главное, что запись попала под условие.
Плюс ко всему никто не мешает дописывать новые строки в файл:

Dim CSV : Set CSV = FSO.OpenTextFile("C:\Test.csv", 8, True)

Sub FFolder(Folder, T)
    '...........
	CSV.WriteLine Replace(Ltrim(Replace(rNom,"0"," "))," ","0") & ";" & Replace(Cors,",",";")
End Sub

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 17:38:18 +0000

Flasher если

If nCountSC > 0 Then sRN = sRN & ";" & sCS & chr(13)

заменить на

sRN = sRN & ";" & sCS & chr(13)

или вместо nCountSC > 0 поставить T
То файл CSV выходит с пустым содержанием...
Может быть нужно каждую переменную дописать к

Dim Items, Max, Filt, Fold

?
До процедуры прописал:

sRN = ""
sCS = ""

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Flasher) — Tue, 23 Feb 2016 17:26:56 +0000

Mik пишет:

но как их теперь отобрать

Конкретней, пож-та.

Re: VBS: Отбирать в коллекцию папки по определенному фильтру

null@example.com (Mik) — Tue, 23 Feb 2016 17:15:35 +0000

Flasher пишет:

Тогда не вижу проблемы

Прошу извинить еще раз, но столкнулся всё же с проблемой на отрезке:

If Not IsNull(ReadXML(F.Path, "correct")) Then ' ReadXML определяется функцией
	T = 1 ' запоминаем, что есть такие файлы
	rNom = ReadXML(F.Path, "regNo")
	Cors = ReadXML(F.Path, "correct")
	If nCountSC > 0 Then sRN = sRN & ";" & sCS & chr(13)
	sRN = sRN & Replace(Ltrim(Replace(rNom,"0"," "))," ","0")
	sCS = Replace(Cors,",",";",1,-1)
	'Shell.NameSpace(OutDir).CopyHere F.Path, AllOptions
End If

Поясняю: старый скрипт использовался не только для копирования файлов, но чаще всего для получения определенных значений и записи их в CSV-файл (без копирования исходных файлов - поэтому в примере строку копирования закомментировал). Как записать в CSV знаю, но как их теперь отобрать, не понимаю. Раньше для этого использовался счетчик внутри процедуры (nCountSC). Как быть теперь?