ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Загрузка текстового файла, через ActiveX
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Загрузка текстового файла, через ActiveX
  #1  
Старый 28.03.2010, 14:55
Аватар для bosscs
bosscs
Banned
Регистрация: 15.06.2008
Сообщений: 177
Провел на форуме:
1268554

Репутация: 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
А то совсем не понимаю такие циклы
Заранее спс
 
Ответить с цитированием

  #2  
Старый 07.04.2010, 17:16
Аватар для Interceptor
Interceptor
Новичок
Регистрация: 06.04.2010
Сообщений: 7
Провел на форуме:
34985

Репутация: 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#, Delphi, .NET, Asm 6 29.11.2009 00:31
Взлом через cookie k00p3r Чужие Статьи 0 13.06.2005 13:56
SQL-injection и не только, через cookies k00p3r Чужие Статьи 0 12.06.2005 12:46
Получение шела через Cgi приложения k00p3r Чужие Статьи 0 08.06.2005 15:04



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


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




ANTICHAT.XYZ