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



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Размер файла, каков он на самом деле =) 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