VBNet - Форум - Проблема с чтением файла !!!

Вопрос: Проблема с чтением файла !!! Добавлено: 12.06.02 06:32

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

У меня проблемка с чтением больщих файлов (от 1 Мгб) тормозит комп..
С чем это может быть связано.
вот текст программы :
Private Sub But1_Click()
CommDlg1.ShowOpen
If CommDlg1.FileName <> "" Then
    Open CommDlg1.FileName For Binary As 1
    ProgBar1.Min = 1
    ProgBar1.Max = LOF(1)
    Txt1.Text = CommDlg1.FileTitle
    Do While Not Loc(1) = LOF(1)
        a$ = Input$(1, #1)
        ProgBar1.Value = Loc(1)
    Loop

End If
Close
End Sub
Private Sub Form_Terminate()
Unload Me
End
End Sub

Ответить

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

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 12.06.02 10:02

Misha !

Пожалуйста не насилуй компьютер.

Прогрессбар на каждый байт - это слишком для нескоростного VB.

Попробуй, зависимости от LOF, читать не один байт, а скажем LOF/100

Попробуй, также заменить команду Input$ на GET.

Ответить

Номер ответа: 2 Автор ответа: j3d1 ICQ: 8370005 Вопросов: 34 Ответов: 466	Профиль \| \| #2	Добавлено: 12.06.02 10:27
	а ещё лучше гнать из фаила инфу строками это побыстрее будет Ответить

Номер ответа: 3
Автор ответа:

Misha

Вопросов: 5
Ответов: 5

Профиль | | #3

Добавлено: 13.06.02 03:19

Спасибо попробуем.

Ответить

Номер ответа: 4
Автор ответа:

Misha

Вопросов: 5
Ответов: 5

Профиль | | #4

Добавлено: 14.06.02 03:39

Гнать инфу строками это Line Input чтоль ?

Да а как быть если в файле встречаються символы или Ascii-код - 26,13,10.

Ответить

Номер ответа: 5
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #5

Добавлено: 14.06.02 17:45

Да ещё CHR(8), CHR(27).

=================

Ивану.

Это конечно тоже влиет на рейтинг, но не могу же я вообще молчать.

Это всё равно что не иметь женщину из принципа.

С ума сойти можно.

Ответить

Номер ответа: 6 Автор ответа: Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708	Web-сайт: www.vbnet.ru Профиль \| \| #6	Добавлено: 14.06.02 19:40
	А что если вот сюда: a$ = Input$(1, #1) подставить FileLen вместо единицы??? И файл считается махом. Ответить

Номер ответа: 7
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #7

Добавлено: 17.06.02 14:32

А что если FileLen>64Kб ?

Ответить

Номер ответа: 8
Автор ответа:

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #8

Добавлено: 17.06.02 17:42

Совет: лучше вместо чтения по методу Input используй метод Binary. То есть прмиерно вот так:

Open xxx For Binary As #1

str=Space(LOF(1))

Get #1,,str

Close #1

А лучше вообще используй для чтения Апи.

Ответить

Номер ответа: 9 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #9	Добавлено: 10.02.03 17:53
	Эсли так используй доп. файлы.... ил доп. память! Ответить

Страница: 1 |