28.03.2010, 14:55
|
|
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
А то совсем не понимаю такие циклы
Заранее спс |
|
|