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

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

02.12.2010, 17:18. Просмотров 443. Ответов 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
И что-то мне подсказывает, что я что-то упустил. В чем может быть моя проблема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2010, 17:18
Ответы с готовыми решениями:

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

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

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

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

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

2
Alex77755
10738 / 3311 / 549
Регистрация: 13.02.2009
Сообщений: 9,746
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

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

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

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


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

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

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