VBNet - Форум - Спасите!!! Извлечь из файла txt и xls и обработать

Вопрос: Спасите!!! Извлечь из файла txt и xls и обработать Добавлено: 18.03.10 22:08

Автор вопроса: doctor

Памагите плз. Надо достать из файла txt данные.
По порядку:
1. Файл txt такого содержания - это лог файл моей проги
21.02.10 14:32:15 Запуск программы
21.02.10 14:35:24 Операция такаято 1
21.02.10 14:37:48 Операция такаято 2
21.02.10 14:39:15 Операция такаято 3 + номер платы 12345
21.02.10 14:39:36 Закрытие

22.02.10 и так каждый день сотнями плат

Так вот надо из файла достать время начала и конца операции. При этом кол-во операций не одиннаковое. При этом надо пересчитать каждую изготовленную плату. При этом надо составить графики загрузки оборудования (использования оборудования за весь рабочий день).

Помогите. Я на заводе работаю. Меня начальство разорвет
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 19.03.10 18:55
	это лог файл моей проги Это обнадеживает. Так вот надо из файла достать время начала и конца операции. 21.02.10 14:35:24 Операция такаято 1 21.02.10 14:37:48 Операция такаято 2 Вопрос - можно ли считать начало следующей операции концом предыдущей? А может быть, надо считать операцией выполнение программы от запуска до закрытия (изготовления платы)? При этом надо составить графики загрузки оборудования (использования оборудования за весь рабочий день) А где тут инфа об оборудовании? Помогите. Я на заводе работаю. Меня начальство разорвет Меняй начальство! Ответить

Номер ответа: 2 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #2	Добавлено: 20.03.10 11:03
	здесь пример на vb6 как тебе подсчитать кол-во операций в твоей проге при желании можно перевести на vbs, на этом же можно и найти как графики строить Dim lRunCount As Long Dim lCloseCount As Long Dim lCardCount As Long Dim lOperationCount As Long Private Sub Form_Load() ProcessLogFile "C:\Текстовый документ.txt" End Sub Private Sub ProcessLogFile(sPath As String) Dim txt As String Dim sDate As String Dim sOldDate As String Dim FileNum As Integer FileNum = FreeFile Open sPath For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, txt txt = Trim$(txt) sDate = Left$(txt, 17) If InStr(1, txt, "Запуск", 1) <> 0 Then lRunCount = lRunCount + 1 Debug.Print lRunCount & " Запуск: " & sDate ElseIf InStr(1, txt, "Закрытие", 1) <> 0 Then lCloseCount = lCloseCount + 1 Debug.Print lCloseCount & " Закрытие: " & sDate Else If InStr(1, txt, "Операция", 1) <> 0 Then lOperationCount = lOperationCount + 1 Debug.Print lOperationCount & " Операция, начало: " & sOldDate & " конец: " & sDate If InStr(1, txt, "номер", 1) <> 0 Then lCardCount = lCardCount + 1 Debug.Print lCardCount & " Плата, начало: " & sOldDate & " конец: " & sDate End If End If End If sOldDate = sDate Loop Close #FileNum End Sub Ответить

Страница: 1 |