Импорт и анализ данных из текстового лога .txt в табличный отчет .xlsx

[Hugo121]

Что-то вроде:

Dim xtime As Date, ytime$

xtime = Now() - 1
ytime = Day(xtime) & Month(xtime) & Right(Year(xtime), 2)

...
...
    Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile("c:\Temp\moonis\" & ytime & ".log", ForReading)
...
...
Cells(2, 1) = ytime

Или

Dim ytime$
ytime = Day(Now() - 1) & Month(Now() - 1) & Format(Now() - 1, "yy")

Cells(2, 1) поставьте текстовый формат, или дополнительно преобразуйте "121111" в правильную дату.
Или проще - формат "Дата":

Cells(2, 1) = Now() - 1

[moonis]

ура!
It`s Alive

[moonis]

однако не совпадает с ручными значениями:
Дата МaxГВ ВрMax МинГВ ВрMин СрГВ
13.11.2011 32,4 21:21:18 27,8 0:00:56 30,1

Дата МaxГВ ВрMax МинГВ ВрMин СрГВ
13.11.2011 32,4 21:21:18 27,5 0:38:24 31,7
...ладно это на завтра, я мозга уже не чувствую - вскипел)
зы. спасибо за Ваше время

[Hugo121]

А, так это я не тот столбец анализировал, так правильно:

        For ii = 0 To UBound(tempArr)
            If IsNumeric(tempArr(1)) Then If MaxGv < --tempArr(1) Then MaxGv = --tempArr(1): VrMax = tempArr(0)
            If IsNumeric(tempArr(1)) Then If MinGv > --tempArr(1) Then MinGv = --tempArr(1): VrMin = tempArr(0)
            If IsNumeric(tempArr(1)) Then
                Count = Count + 1
                SrGvS = SrGvS + (--tempArr(1))
            End If
        Next

и тогда можно чуть короче написать:

            For ii = 0 To UBound(tempArr)
                If IsNumeric(tempArr(1)) Then
                    If MaxGv < --tempArr(1) Then MaxGv = --tempArr(1): VrMax = tempArr(0)
                    If MinGv > --tempArr(1) Then MinGv = --tempArr(1): VrMin = tempArr(0)
                    Count = Count + 1
                    SrGvS = SrGvS + (--tempArr(1))
                End If
            Next

И среднее получается 31,8344099378885

И ещё (помарочка) - лучше не использовать имя переменной Count. Лучше писать Cnt или Count_. От греха...

[Hugo121]

Сделал в виде скрипта vbs (что и брал в общем за основу, поэтому и переменные были не определены).
Его можно запускать планировщиком - он будет искать в прописанной в коде папке вчерашний файл, обрабатывать, и данные скидывать в первую пустую строку прописанного в коде файла, и сохранять его.
Если так годится - то нужно ещё поработать над ошибками - что делать, если файлы не откроются (нет или заняты)
Ещё нужно вероятно проверить, нет ли уже в последней заполненной строке вчерашней даты, чтоб не повторяться, если вдруг планировщик сглючит.
Задание значения t и вывод месиджбокса в рабочей версии нужно отключить - это при наладке, чтоб видеть, что процесс прошёл и завершился.
Файл можно править любым текстовым редактором - рекомендую Notepad++

[moonis]

Если так годится

более чем! спасибо...

.Cells(iLastrow, 1) = Now() - 1
теперь задает не только DD:MM:YYYY но и время...

ytime = Day(Now() - 1) & Month(Now() - 1) & Format(Now() - 1, "yy")

ytime = Day(Now() - 1) & Month(Now() - 1) & Right(year(Now() - 1), 2)

[Hugo121]

Ну пишите в
.Cells(iLastrow, 1) = ytime
Только тогда формат этой ячейке задайте текстовый, я выше уже говорил.
Или преобразуйте эту строку в дату.
В vbs можно использовать
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 1)
или
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 2)

[moonis]

Сообщение от Hugo121

Ну пишите в
.Cells(iLastrow, 1) = ytime
Только тогда формат этой ячейке задайте текстовый, я выше уже говорил.
Или преобразуйте эту строку в дату.
В vbs можно использовать
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 1)
или
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 2)

все туплю... формат на дату изменить - и все нормально... вчера также со временем писал просто файл уже был по форматам настроен ...
дописал на ХВ и ВД... вроде все считает, Спасибо Огроменное!
как будет время - попробую реализовать фенечки...

[Hugo121]

Ну и хорошо.
Только я сам дурак - цикл For ii = 0 To UBound(tempArr) не нужен, это осталось от задумки перебирать этот массив.
Т.е. правильно без лишнего будет так

    For i = 0 To UBound(arrLineList)
        tempArr = Split(arrLineList(i), ";")
        If UBound(tempArr) = 3 Then
                If IsNumeric(tempArr(1)) Then
                    If MaxGv < --tempArr(1) Then MaxGv = --tempArr(1): VrMaxGv = tempArr(0)
                    If MinGv > --tempArr(1) Then MinGv = --tempArr(1): VrMinGv = tempArr(0)
                    cnt1 = cnt1 + 1
                    SrGvS = SrGvS + (--tempArr(1))
                End If
                If IsNumeric(tempArr(2)) Then
                    If MaxXv < --tempArr(2) Then MaxXv = --tempArr(2): VrMaxXv = tempArr(0)
                    If MinXv > --tempArr(2) Then MinXv = --tempArr(2): VrMinXv = tempArr(0)
                    cnt2 = cnt2 + 1
                    SrXvS = SrXvS + (--tempArr(2))
                End If
                If IsNumeric(tempArr(3)) Then
                    If MaxVd < --tempArr(3) Then MaxVd = --tempArr(3): VrMaxVd = tempArr(0)
                    If MinVd > --tempArr(3) Then MinVd = --tempArr(3): VrMinVd = tempArr(0)
                    cnt3 = cnt3 + 1
                    SrVdS = SrVdS + (--tempArr(3))
                End If
        End If
    Next

Вообще удивительно, что не давало ошибки в строках
cnt1 = cnt1 + 1
SrGvS = SrGvS + (--tempArr(1))
Т.е. количество было в 3 раза больше реального, и сумма тоже, и в итоге всё сходилось..

[moonis]

Пусть это останется секретом Билла