VBS Выводить сообщение, каких файлов не хватает
- Автор темы josh
- Дата начала
А вот в этом и вопрос, может не хватать любых файлов просто не сформировались и тд. Для этого и требуется, я так думаю создать эталонный файл с актуальной датой, а потом файл подсчета существующих и сравнить (2 файла эталон=файл подсчета) каких файлов нет. Длину строки да можно изменить.
- Сообщения
- 8,030
- Решения
- 14
- Реакции
- 6,805
На счёт эталона ясно. Вы сами создаетё текстовой файл со списком имён файлов (точных имён? или тоже по какому-то шаблону? )
Но задание все равно слишком неточное.
В том же логе у Вас один и тот же файл повторяется у нескольких отделов:
И регулярку всё же уточните...
Что из себя представляет шаблон y731* ? - Имя файл начинается на y731 и продолжается любым кол-вом любых символов?
Но задание все равно слишком неточное.
В том же логе у Вас один и тот же файл повторяется у нескольких отделов:
получается нужно считать как-то не вместе, а по отделам?
И регулярку всё же уточните...
что это означает? Строка постоянно меняется и вы подставляется в таком виде прямо в скрипт из какого-то другого документа?
Что из себя представляет шаблон y731* ? - Имя файл начинается на y731 и продолжается любым кол-вом любых символов?
- Сообщения
- 8,030
- Решения
- 14
- Реакции
- 6,805
Полностью - это как?
Вот у Вас одно и тоже имя файла присутствует у отделов № 1, 2 и отсутствует у отдела № 3. И что в таком случае делать?
И на остальные вопросы вы ответите, особенно на первый?
- Сообщения
- 8,030
- Решения
- 14
- Реакции
- 6,805
С актуальной датой это как?
Самому нужно подставлять сюда \02.08.2016\ сегодняшнюю дату?
\y731_b400_CB_d_F_08_02 - и сюда?
Или вообще ничего не надо, т.к. эталон всегда будет сам обновляться?
- Сообщения
- 8,030
- Решения
- 14
- Реакции
- 6,805
а с этим что делать?
- Сообщения
- 8,030
- Решения
- 14
- Реакции
- 6,805
Нет в смысле нет, или да? Если нет, то зачем в таком случае вы мне пишите:
Это как-то относится к заданию?
А как понимать эти ошибки/разночтения в эталоне?
Если например, подменить даты в двух последних файлах, то получится конфликт - два одинаковых имени файла. Итого общее кол-во файлов для сравнения уже будет другим.
Вообщем, из всех кусочков задания, которые мне пришлось выщипывать из Вас клещами на протяжении 3 недель,
получился вот такой самостоятельный скрипт:
VB.NET / VBA:
'Источник
'sSrcFile = "C:\scripts\log\log1_"& d & "_" & m & "_" & Year(Date) & ".txt"
sScrFile = "C:\Users\tfcor\Desktop\12\log1_08_2016.txt"
'Эталон
sEtalonFile = "C:\Users\tfcor\Desktop\12\ЭТАЛОН_log_02_08_2016.txt"
'Файл-разницы (для записи)
sDiffFile = "C:\Users\tfcor\Desktop\12\Diff_result.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Чтение файла-этолона
Set oTS = oFSO.OpenTextFile(sEtalonFile, 1, False)
sEtaAll = oTS.ReadAll()
oTS.Close
'Нормализация путей эталона
' \DD.MM.YYYY\
sCurDate1 = "\" & Right("0" & Day(Now), 2) & "." & Right("0" & Month(Now), 2) & "." & Year(Now) & "\"
' MM_DD
sCurDate2 = Right("0" & Month(Now), 2) & "_" & Right("0" & Day(Now), 2)
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global = True
oRegExp.MultiLine = True
'замена даты
oRegExp.Pattern = "\\\d{2}\.\d{2}\.\d{4}\\"
sEtaAll = oRegExp.Replace(sEtaAll, sCurDate1)
'удаление нумерации
oRegExp.Pattern = "^\d{1,3}\.\s*"
sEtaAll = oRegExp.Replace(sEtaAll, "")
'замена даты в окончании имени файла
oRegExp.Pattern = "(\d{2}_\d{2})(\..*?)?$"
sEtaAll = oRegExp.Replace(sEtaAll, sCurDate2 & "$2")
aEta = Split(sEtaAll, vbCrLf)
Set oDict = CreateObject("Scripting.Dictionary")
oDict.CompareMode = 1
For i = 0 To UBound(aEta)
If Len(aEta(i)) <> 0 Then
If Not oDict.Exists(aEta(i)) Then oDict.Add aEta(i), 0
End If
Next
'Чтение файла-источника
Set oTS = oFSO.OpenTextFile(sEtalonFile, 1, False)
aSrc = Split(oTS.ReadAll(), vbCrLf)
oTS.Close
For i = 0 To UBound(aSrc)
If oDict.Exists(aSrc(i)) Then oDict.Remove (aSrc(i))
Next
If oDict.Count <> 0 Then
Set oTS = oFSO.OpenTextFile(sDiffFile, 2, True)
For Each Key In oDict.Keys
oTS.WriteLine (Key)
Next
oTS.Close
End IfПохожие темы
- Статья
- Статья
