Вроде всё железно, а не работает

[Kiryusha]

Вобщем проблема такая: хочу считать бэ-эм-пэшный файл как текстовый, ну делаю

Open тра-та-та For Input As #1
Do While Not Eof(1)
Input #1,s

итд

Работает прога-работает, потом бац и говорит, что усё отрабатала я -конец файла, прога завершает чтение и типа всё так и должно быть. С какого х.. не пойму, ведь еще не всё???. Ладно думаю, что просто строка слишком большая делаю

Open тра-та-та For Input As #1
for i=1 to 1000
s=Input(1,1)

Ну 1000 это так из башки для пробы и нифига, читает ровно столько же символов после чего вылетает эрорка типа Ввод конец файла.

Кто знает почему так может быть, напишите, буду рад любой из версий. Заранее сэнькс.

[ALX_2002]

А как ты определил, что ещё не всё ?

Ни сколько не сомневаюсь в твоих умственных способностях, так что заранее извиняюсь если не прав, но надеюсь ты так не делал - "msgbox S", чтобы это определить ?

[BV]

Код: Выделить всё

Private Sub LoadFile(ByVal strFileName As String)
    Dim Data() As Byte
    Dim n As Long: n = FreeFile
    ReDim Data(FileLen(strFileName))
    Open strFileName For Binary As #n
        Get #n, , Data
    Close #n
    '...
End Sub

[alibek]

BV, я бы так не делал.

[Kiryusha]

ALX_2002
Да нет, всё куда проще открываешь файл с помощью блокнота или WordPada и лицезреешь бальшущий файл.

[Kiryusha]

alibek
А что?

[BV]

Код: Выделить всё

Private Sub LoadFile(ByVal strFileName As String)
    Dim bData() As Byte
    Dim n As Long: n = FreeFile
    ReDim bData(FileLen(strFileName))
    Open strFileName For Binary As #n
        Get #n, , bData
    Close #n
    '...
End Sub

[Kiryusha]

Да еще добавлю, что мне нужно после этого всего всё равно получить символы. Ведь когда открываешь bmp файл с помощью блокнота там же буквы.

[BV]

Код: Выделить всё

strData As String
strData = Space$(FileLen(strFileName))
'...
Replace(strData, vbNullChar, Chr$(32))

[Kiryusha]

BV
Он возвращает большую пустую строку (из одних пробелов)

[BV]

А подумать сложно?

Код: Выделить всё

Private Sub LoadFile(ByRef hTextBox As TextBox, ByVal strFileName As String)
    Dim strData As String
    Dim n As Long: n = FreeFile
    strData = Space$(FileLen(strFileName))
    Open strFileName For Binary Access Read As #n
        Get #n, , strData
    Close #n
    strData = Replace(strData, vbNullChar, Chr$(32))
    hTextBox.Text = strData
End Sub

[Andrey Fedorov]

Да еще добавлю, что мне нужно после этого всего всё равно получить символы. Ведь когда открываешь bmp файл с помощью блокнота там же буквы.

В общем, погляди как выводится это дело в простейшем Hex-редакторе - он приложен (скриншот с него - тоже).

[tyomitch]

Kiryusha, просто попробуй заменить у себя в коде For Input на For Binary. Говорят, помогает.

[Kiryusha]

tyomitch
Уже попробовал. Он как данные всё считывает, но формат данных не тот, что мне нужно.

Мне нужно получить из файла bmp код ( asc(s) ) каждого символа.

[Andrey Fedorov]

tyomitch
Мне нужно получить из файла bmp код ( asc(s) ) каждого символа.

В бинарном массиве (в который тебе все и советуют считывать) каждый байт содержит этот самый код! Разве не так?

[Kiryusha]

Andrey Fedorov
Да я честно говоря никогда этим For Binary и не пользовался. За всю мою практику мне с лихвой хватало Input. Поэтому если не трудно объясни поподробней что возвращается переменной. И почему, когда я пытаюсь вывести в текстовое окно значение переменной, он мне возвращает только 2-3 символа(!)

[BV]

2 Kiryusha

Ты мой код смотрел?

[alibek]

А что?

А то, что файлы могут быть четырехгигобайтные.

[Andrey Fedorov]

А что?

А то, что файлы могут быть четырехгигобайтные.

Да ладно на этом пока можно не зацикливаться - человек просто не может содержимое на экран вывести, а тут еще и четырехгигобайтные - запугаете совсем...

[Kiryusha]

Andrey Fedorov
Танки грязи не боятся!