Загрузка текстового файла, через ActiveX

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Загрузка текстового файла, через ActiveX

Опции темы

Поиск в этой теме

Опции просмотра

Загрузка текстового файла, через ActiveX

28.03.2010, 14:55

~~bosscs~~

Banned

Регистрация: 15.06.2008

Сообщений: 177

С нами: 9423202

Репутация: 99

Загрузка текстового файла, через ActiveX

Код:

Private SUB Command1_Click()
DIM F AS LONG
DIM Stroka AS STRING
Text1.Text = ""
CommonDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
CommonDialog1.ShowOpen
F = FREEFILE
Text2.Text = CommonDialog1.FileName
OPEN CommonDialog1.FileName FOR INPUT AS #F
DO WHILE NOT EOF(F)
LINE INPUT #F, Stroka
Text1.Text = Text1.Text & Stroka
LOOP
CLOSE #F
END SUB

После строки CommonDialog1.ShowOpen нечего не понимаю, плз обьясните.
И можно ли написать вместо цикла DO WHILE - If then
А то совсем не понимаю такие циклы
Заранее спс

𝕏 Twitter Reddit Telegram Копировать ссылку

07.04.2010, 17:16

Interceptor

Новичок

Регистрация: 06.04.2010

Сообщений: 7

С нами: 8473254

Репутация: 0

Узнаю старый добрый VB

'получение свободного дескриптора для использования в методе OPEN
F = FREEFILE

'присвоение контролу имени файла
Text2.Text = CommonDialog1.FileName

'открытие файла для чтения по имени взятом из CommonDialog1.FileName и присвоение дескриптора переменной F
OPEN CommonDialog1.FileName FOR INPUT AS #F

'Начало цикла до тех пор пока входной поток не кончится (файл не прочитается до конца)
DO WHILE NOT EOF(F)

'Чтение из файла в переменную Stroka
LINE INPUT #F, Stroka

'конкатенация уже имеющегося текста в контроле с текстом переменной Stroka
Text1.Text = Text1.Text & Stroka
LOOP 'оператор окончания цикла
CLOSE #F 'закрытие файла

Можно написать используя IF но тогда GOTO придется поюзать для организации цикла четния

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Размер файла, каков он на самом деле =)	VERte][	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	6	29.11.2009 00:31

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход