Alles файлы пришли, буду смотреть.

Это сообщение отредактировал(а) Vach - 16.11.2004, 15:54

Да , там стоит перенос , но какова хрена он не переносит я не знаю ))
Ворд показал наличие переноса после значения каждого параметра и еще точки вместо пробелов .
Добавлено @ 15:52
Hi Vach !
все должно быть у тебя

Alles, что значит перенос? Какой ASCII код?
Line Input читает строку до ASCII кода 13 или (13 и 10)
Добавлено @ 15:55
А может стоит весь файл целиком прочитать в стринговую переменную, поделить split-ом на строки и уже работать с готовым массивом строк.

Hi boevik !
большое спасибо за участие !!!
может тебе тоже лог кинуть и сам тогда все увидишь

Alles, кидай. [email protected]

Hi boevik !
файлы у тебя

Вот так вроде работает.

Код

Dim File_Name As String Dim Bytes() As Byte Dim fNum As Long Dim File_Length As Long File_Name = App.Path & "\BSCmevent.1115040015.tmp" File_Length = FileLen(File_Name) fNum = FreeFile ReDim Bytes(1 To File_Length) Open File_Name For Binary As #fNum Get #fNum, 1, Bytes Close fNum Dim sText As String Dim nF1 As Long sText = String(File_Length, " ") For nF1 = 1 To File_Length    Mid$(sText, nF1, 1) = Chr$(Bytes(nF1))    Next nF1 sText = Replace(sText, Chr$(10), vbCrLf, 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) Dim BTS_DATA_RECORD() As String Dim BTS_DATA_RECORD_Row() As String Dim BTS_DATA_RECORD_Header() As String BTS_DATA_RECORD = Split(sText, "BTS_DATA_RECORD", -1, vbBinaryCompare) For nF1 = 1 To UBound(BTS_DATA_RECORD)    BTS_DATA_RECORD_Row = Split(BTS_DATA_RECORD(nF1), vbCrLf, -1, vbBinaryCompare)    BTS_DATA_RECORD_Header = Split(BTS_DATA_RECORD_Row(0), " ", -1, vbBinaryCompare)    ' ...    ' Тут все и считай    ' ...    Next nF1

Это сообщение отредактировал(а) Vach - 16.11.2004, 17:07

Alles, так и есть. Символ разделения строк в файле имеет код 10, поэтому Line Input его игнорировал.


Vach, тебе уже подсказал код.
Но если не боишься использовать дополнительные библиотеки (Microsoft Scripting Runtime), то вот код:

Код

Dim File_Name As String Dim oFSO As New FileSystemObject Dim sFile As String Dim sLines() As String File_Name = "c:\temp\1.txt" sFile = oFSO.OpenTextFile(File_Name).ReadAll sLines = Split(sFile, Chr(10)) ' a дальше цикл для обработки строк ....

Это сообщение отредактировал(а) boevik - 16.11.2004, 16:52

Мужики !!!!!!!!!!!!!!!!!!!!!!
боооольшое спасибо !!!!!!!!!!!!
сегодня у нас уже поздновато тут на севере.
Завтра все попробую. Еще раз боольшое спасибо за участие.
с меня ящик коньяку !!!!!!!!!!!!!!!!!!!!!!!!!!!!

на моей машине "Microsoft Scripting Runtime" быстрее на 25% при файле в 6.5мб
Так всяко лучше.

Код

Dim nF1 As Integer Dim File_Name As String Dim oFSO As New FileSystemObject Dim sText As String Dim BTS_DATA_RECORD() As String Dim BTS_DATA_RECORD_Row() As String Dim BTS_DATA_RECORD_Header() As String File_Name = App.Path & "\BSCmevent.1115040015.tmp" sText = oFSO.OpenTextFile(File_Name).ReadAll sText = Replace(sText, Chr$(10), vbCrLf, 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) sText = Replace(sText, "  ", " ", 1, -1, vbBinaryCompare) BTS_DATA_RECORD = Split(sText, "BTS_DATA_RECORD", -1, vbBinaryCompare) For nF1 = 1 To UBound(BTS_DATA_RECORD)    BTS_DATA_RECORD_Row = Split(BTS_DATA_RECORD(nF1), vbCrLf, -1, vbBinaryCompare)    BTS_DATA_RECORD_Header = Split(BTS_DATA_RECORD_Row(0), " ", -1, vbBinaryCompare)    ' ...    ' Тут все и считай    ' ...    Next nF1

Еще раз всем привет !
Вы уж простите меня тупорылого , но результат остался тот же !!!(((((

Код

File_Name = ListBox2 sText = oFSO.OpenTextFile(File_Name).ReadAll Debug.Print sText ' В переменную залетает последние две строки

Задача стоит такая, когда я открываю лог-файл я должен его пробежать по строчно.
Ключевые строки в логе это :

Цитата

BTS_DATA_RECORD      2004-11-16 00:30:00  2004-11-16 00:45:00  TurboMAX_BSPLUS.TurboMAX_BSPLUS_bts_0-Cel  20100  1

.
Для меня тут важно:
20100 - устройство (всего их 5 - 20100,20200,10100,10200,10300)
00:30 - время записи
и дальше идут параметры со значениями данного устройсва. Дальше пошел цикл на интересуещие меня параметры их пока 19. т.е. я пробегаю по файлу 19 раз.
Все скидывается на лист Impotr, где :
Параметр_____Заначение______Время______Устройство
Когда лог сохранен в тхт все идет просто здорово. т.е. просто открываю его Вордом и жму сохранить, ВСЕ!!! проблем нет все читается по строчно ( уже в программе) , но когда я открываю его как есть опять повторюсь

Цитата

' В переменную залетает последние две строки

т.е. небольшой кусок от 10200 начиная с параметра ARCmServAbt = 0
и до конца файла все залетает скопом.
И как с этим бороться я не знаю ((((

Alles, привет.

Код

Dim File_Name As String Dim oFSO As New FileSystemObject Dim sFile As String Dim sLines() As String File_Name = "c:\temp\1.txt" sText = oFSO.OpenTextFile(File_Name).ReadAll sLines = Split(sFile, Chr(10)) ' a дальше цикл для обработки строк ....

После того как ты считал данные в sText, надо разбить их на строки командой Split.
И уже пробегать по sLines()

Это все понятно !
Но почему только данные берутся только конечные ?
Не сначала файла , а просто последний кусок !!!

Alles, я не понимяю о чем ты. У меня считывается весь файл.
Добавлено @ 08:39
Показывай код.

У меня короче уже башню рвет.
Немного по позже, лишнее повыкидываю и если хочешь метну к тебе.