Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
stasix
0 / 0 / 0
Регистрация: 29.11.2010
Сообщений: 2
#1

Очень долгая загрузка текстового файла - VB

02.12.2010, 17:18. Просмотров 438. Ответов 2
Метки нет (Все метки)

Всем привет!
Сразу хочу оговориться, что VBA я только начал изучать. Возникла следующая проблемка - если загрузить текстовый файл (в районе нескольких сотен килобайт) в переменную типа string, то он загружается непозволительно долго - около 5-7 минут. Вот сам код "проблемного" участка:
Visual Basic
1
2
3
4
5
6
7
8
CommonDialog1.ShowOpen
On Error Resume Next
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
    Line Input #1, txt
    alltxt = alltxt + txt + vbCrLf
Loop
Close #1
И что-то мне подсказывает, что я что-то упустил. В чем может быть моя проблема?
http://www.cyberforum.ru/visual-basic/thread109703.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2010, 17:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Очень долгая загрузка текстового файла (VB):

Загрузка и выгрузка информации из базы данных, очень нужен Ваш совет!
Доброго времени суток! Очень прошу помощи у Вас, не могу разобраться в...

Загрузка файла в ТекстБокс и открытие файла, зная его полный путь!
Всем привет! Имеется определенная проблема: ввожу в textbox полный путь к...

Расшифровка текстового файла
Многоуважаемые форумчане! Пожалуйста помогите с этим заданием, препод зверь,...

VB 6.0 открытие текстового файла?
Подскажите пожалуйста в VB 6.0, после нажатия кнопки, хочу открыть текстовый...

RecordSet из текстового файла...
Подскажите, пожалуйста, самый оптимальный способ загрузки данных из плоского...

2
Alex77755
10694 / 3269 / 543
Регистрация: 13.02.2009
Сообщений: 9,647
02.12.2010, 19:17 #2
ИМХО
Сама по себе инструкция
LINE INPUT Очень тормознутая
Лучше считывать целиком весь файл.
Я пользуюсь:
Visual Basic
1
2
3
4
5
6
7
8
9
   Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log" 
   'ycтановим имя файла и пyть 
   Open File For Binary As #1 
   'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1 
   'закpыть файл
1
stasix
0 / 0 / 0
Регистрация: 29.11.2010
Сообщений: 2
02.12.2010, 19:36 #3
Alex77755, огромное спасибо за помощь!
вместо полутора минут файл теперь загружается за несколько секунд
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2010, 19:36
Привет! Вот еще темы с решениями:

Заполнить массив из текстового файла
Здравствуйте. Уважаемые программисты, подскажите пожалуйста, как заполнить...

Чтение строк из текстового файла
Помогите с кодом! Имеется текстовый файл, в к-ом построчно идут вопрос, 4...

Открытие текстового файла в текстбоксе
На серваке лежит текстовый файл доступный через Фтп протокол. Все текст боксы в...

Чтение текстового файла столбцами
В общем суть. Есть тхт файл, в котором в виде таблице данные: слово, столбец в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru