Конференция VBStreets

**Saturn.65** » 08.07.2009 (Ср) 10:57

Можно ли добавить на этом примере текст из Тектовый файл.txt в Combo1?

Код: Выделить всё: Open App.Path & "\Тектовый файл.txt" For Input As 1 Do Until EOF(1) Input #1, Collumn1 'Заносим инормацию из Collumn1 в LF - это колонка "меню" Set LF = ListView1.ListItems.Add(, , Collumn1) Loop Close

Или как вообще добавить информацию из текстового лог файла, где только числа?

**alibek** » 08.07.2009 (Ср) 11:05

Line Input

**Saturn.65** » 08.07.2009 (Ср) 11:33

alibek писал(а):Line Input

А как ее применить?

**JohnK** » 08.07.2009 (Ср) 12:32

**Saturn.65** » 08.07.2009 (Ср) 12:58

JohnK писал(а):
Код: Выделить всё
Line input #1, tmpStr

Ну а дальше то как? Вот так вроде работает.

Код: Выделить всё: Open App.Path & "\1.txt" For Input As 1 Do Until EOF(1) Line Input #1, tmpStr Combo1.AddItem tmpStr Loop Close Close

**alibek** » 08.07.2009 (Ср) 12:59

А ты думать совсем не хочешь?

**JohnK** » 08.07.2009 (Ср) 13:07

А как ее применить?

Думать нужно, или за тебя все писать нужно? И вообще, такие вопросы (применение и декларация) есть в гугле в избытке!

ComboBox