Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2011, 21:10   #21
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Что-то вроде:
Код:
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
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 13.11.2011 в 21:17.
Hugo121 вне форума Ответить с цитированием
Старый 13.11.2011, 21:27   #22
moonis
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 16
По умолчанию

ура!
It`s Alive
moonis вне форума Ответить с цитированием
Старый 13.11.2011, 21:37   #23
moonis
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 16
По умолчанию

однако не совпадает с ручными значениями:
Дата М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
...ладно это на завтра, я мозга уже не чувствую - вскипел)
зы. спасибо за Ваше время
Вложения
Тип файла: rar LOG.rar (97.4 Кб, 8 просмотров)
moonis вне форума Ответить с цитированием
Старый 13.11.2011, 21:50   #24
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

А, так это я не тот столбец анализировал, так правильно:
Код:
        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_. От греха...
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 13.11.2011 в 22:00.
Hugo121 вне форума Ответить с цитированием
Старый 13.11.2011, 23:02   #25
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Сделал в виде скрипта vbs (что и брал в общем за основу, поэтому и переменные были не определены).
Его можно запускать планировщиком - он будет искать в прописанной в коде папке вчерашний файл, обрабатывать, и данные скидывать в первую пустую строку прописанного в коде файла, и сохранять его.
Если так годится - то нужно ещё поработать над ошибками - что делать, если файлы не откроются (нет или заняты)
Ещё нужно вероятно проверить, нет ли уже в последней заполненной строке вчерашней даты, чтоб не повторяться, если вдруг планировщик сглючит.
Задание значения t и вывод месиджбокса в рабочей версии нужно отключить - это при наладке, чтоб видеть, что процесс прошёл и завершился.
Файл можно править любым текстовым редактором - рекомендую Notepad++
Вложения
Тип файла: zip Moonis.zip (1.2 Кб, 11 просмотров)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.11.2011, 07:33   #26
moonis
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 16
По умолчанию

Цитата:
Если так годится
более чем! спасибо...

.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)

Последний раз редактировалось moonis; 14.11.2011 в 07:35.
moonis вне форума Ответить с цитированием
Старый 14.11.2011, 10:33   #27
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ну пишите в
.Cells(iLastrow, 1) = ytime
Только тогда формат этой ячейке задайте текстовый, я выше уже говорил.
Или преобразуйте эту строку в дату.
В vbs можно использовать
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 1)
или
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 2)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.11.2011, 11:58   #28
moonis
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Ну пишите в
.Cells(iLastrow, 1) = ytime
Только тогда формат этой ячейке задайте текстовый, я выше уже говорил.
Или преобразуйте эту строку в дату.
В vbs можно использовать
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 1)
или
.Cells(iLastrow, 1) = FormatDateTime(Date-1, 2)
все туплю... формат на дату изменить - и все нормально... вчера также со временем писал просто файл уже был по форматам настроен ...
дописал на ХВ и ВД... вроде все считает, Спасибо Огроменное!
как будет время - попробую реализовать фенечки...
Вложения
Тип файла: rar LOG.rar (109.2 Кб, 9 просмотров)
moonis вне форума Ответить с цитированием
Старый 14.11.2011, 12:22   #29
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ну и хорошо.
Только я сам дурак - цикл 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 раза больше реального, и сумма тоже, и в итоге всё сходилось..
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.11.2011, 12:25   #30
moonis
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 16
По умолчанию

Пусть это останется секретом Билла
moonis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Импорт данных из текстового файла в структуру glinin Общие вопросы C/C++ 1 20.10.2011 08:35
импорт данных из большого txt файла Неологист Microsoft Office Excel 14 28.09.2011 18:45
Импорт данных из текстового файла chobo Microsoft Office Excel 7 28.10.2010 14:29
импорт из txt, работа с массивом данных, экспорт в txt Danara Microsoft Office Excel 4 31.03.2010 00:26
Пишу диплом. Срочно нужен не табличный,подробный анализ сред программирования tosik Свободное общение 4 11.12.2009 10:46