Серый форум — VBS сортировка файлов по содержимому

Re: VBS сортировка файлов по содержимому

2019-03-10T22:21:24Z

alexii, почему ? Я в своём примере выше сделал отбор по ^sum\s*=\s*([0-9,.\s]+)$. Так как я далеко не знаток регулярок, возможно это неверно, но дальше значение проверяю на IsNumeric для удобства. А вот результат IsNumeric будет уже зависеть от региональных настроек, как я понял. Но автор об этом не спросил и я решил оставить решение этого вопроса на его усмотрение.

Re: VBS сортировка файлов по содержимому

2019-03-10T19:12:29Z

Xameleon, тогда хрен мы регуляркой выцепим из текста эту сумму . Не?

Re: VBS сортировка файлов по содержимому

2019-03-03T22:39:48Z

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

Пример - в файле строка "Sum=1500.55", а в системных настройках стоит разделитель ",". Тогда CCur("1500.55") вернёт ошибку.

Re: VBS сортировка файлов по содержимому

2019-03-03T22:19:01Z

NovaRo, а где тут место исключениям для срабатывания? Я не особо вижу.

Re: VBS сортировка файлов по содержимому

2019-03-03T13:54:14Z

alexii пишет:

panda4x4, Вам следует прочитать всё содержимое файла в переменную, затем воспользоваться регулярным выражением....

Полностью согласен!
Такие вещи лучше всего делаются по схеме "вычитываем в массив + обрабатываем регуляркой".
Т.е. построчно вычитываем файл в переменную-массив, а затем регуляркой проверяем - нет ли в строке "мусора" (непечатных символов, пробелов, табов и проч.) а затем уже ищем искомые данные.
Вот это "'пропускаем в строке 4 первых символа" - в корне не правильно - завтра у вас в "шапку" файла добавиться коммент или перенос строки/"мусор" от входящих данных, и вся ваша логика пойдет "по бороде"!
И вообще, лучше уж делать в Js или Powershell через конструкцию try, catch, finaly - с явной обработкой исключений.

Re: VBS сортировка файлов по содержимому

2019-02-21T10:14:52Z

Я бы наверное так сделал.

Re: VBS сортировка файлов по содержимому

2019-02-20T14:39:44Z

«Неправильно ты, Дядя Фёдор, бутерброд ешь (зачеркнуть) ищешь».

panda4x4, Вам следует прочитать всё содержимое файла в переменную, затем воспользоваться регулярным выражением для поиска и получения суммы заказа, которую потом Вы будете сравнивать с искомым ограничением.

Re: VBS сортировка файлов по содержимому

2019-02-20T07:12:35Z

Работает ) Не хватало слэша в конце пути

'************************************************************************************************
'Скрипт должен искать строку суммы заказа в файле, затем по сумме заказа копировать файл в нужную папку
'***********************************************************************************************

Option Explicit

dim oFSO, oFolder, oFolder1, oFile, oFileCopy
dim coll
dim a, b

For Each a in oFolder.Files 'Наполняем массив а значениями из папки e:\temp\zakaz\ через свойство объекта Folder.Files
coll = a.Path 'Узнаем путь к каждому файлу из массива
set oFile = oFSO.OpenTextFile(coll, 1, 0) 'Открываем файл для чтения
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.Skip 4 'пропускаем в строке 4 первых символа
b = oFile.Read (8) 'Считываем 10 строку и 7 символов стоки и просваиваем значение переменной b
Call MySub
oFile.Close 'Закрываем файл
Next

Sub MySub 'Процедура сортирует файлы в зависимости от содержания переменной b
If b < 1500 then
MsgBox "Сумма заказа слишком мала "+b
'set oFileCopy=oFSO.GetFile(coll)
'oFileCopy.Copy"e:\temp\zakaz"
else
MsgBox "Заказ принят "+b
set oFileCopy=oFSO.GetFile(coll)
oFileCopy.Copy"e:\temp\zakaz\1500\"

End If
End Sub

set oFolder=Nothing
set oFile=Nothing
set oFileCopy=Nothing

set oFSO=Nothing

Re: VBS сортировка файлов по содержимому

2019-02-20T07:06:55Z

Отвечаю сам себе.
Чтобы считать сумму заказа, достаточно пропустить первые 4 символа нужной строки
Осталось разобраться, почему не копируется файл - ошибка разрешение отклонено

Option Explicit

dim oFSO, oFolder, oFolder1, oFile, oFileCopy
dim coll
dim a, b

End If
End Sub

set oFolder=Nothing
set oFile=Nothing
set oFileCopy=Nothing

set oFSO=Nothing

VBS сортировка файлов по содержимому

2019-02-20T05:19:49Z

Есть папка с файлами txt, в каждом файле есть строка вида
Sum=1742,00
Это сумма заказа. Строка иногда на 10й иногда на 9й строчке файла
Строка уникальна, больше в файле не повторяется.
Нужно заказы с суммой более 1500 копировать в другую папку.
Я нашел похожий скрипт и попытался переделать его под себя.
Что у меня не выходит
1. Как найти строчку по слову Sum? нужно перебирать все строки, пока первые 3 символа строки не совпадут? потом запомнить номер этой строки для дальнейших действий?
2. Как присвоить переменной b число после "Sum=" (сейчас я так понимаю ей присваивается текст)
3. В скрипте во время тестов я попытался копировать файл в папку e:\temp\zakaz\1500 - при запуске выдается ошибка что нужно разрешение.
Извиняюсь за глупые вопросы )
Вот скрипт.
'************************************************************************************************
'Скрипт должен искать строку суммы заказа в файле, затем по сумме заказа копировать файл в нужную папку
'***********************************************************************************************

Option Explicit

dim oFSO, oFolder, oFolder1, oFile, oFileCopy
dim coll
dim a, b

set oFSO=CreateObject("Scripting.FileSystemObject") 'Создаем объектную модель FSO
set oFolder=oFSO.GetFolder("e:\temp\zakaz") 'Даем доступ к папке e:\temp\zakaz\ и создаем объект Folder
set oFolder1=oFSO.GetFolder("e:\temp\zakaz\1500") 'Даем доступ к папке e:\temp\zakaz\1500 и создаем объект Folder

For Each a in oFolder.Files 'Наполняем массив а значениями из папки e:\temp\zakaz\ через свойство объекта Folder.Files
coll = a.Path 'Узнаем путь к каждому файлу из массива
set oFile = oFSO.OpenTextFile(coll, 1, 0) 'Открываем файл для чтения
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.SkipLine
oFile.Skip 24
b = oFile.Read (7) 'Считываем 10 строку и 7 символов стоки и просваиваем значение переменной b
Call MySub
oFile.Close 'Закрываем файл
Next

Sub MySub 'Процедура сортирует файлы в зависимости от содержания переменной b
If b > 1500 then
set oFileCopy=oFSO.GetFile(coll)
oFileCopy.Copy"e:\temp\zakaz\0"

End If
End Sub

set oFolder=Nothing
set oFile=Nothing
set oFileCopy=Nothing

set oFSO=Nothing
MsgBox "Конец сортировки"