Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Считать в ListBox? Добавлено: 23.07.02 06:41  

Автор вопроса:  alek
Как считать данные из файла в ListBox
Пишу так(но нечего не получается):
Dim fnumber As Integer
Dim fname As String
Dim fn As String
fname = "C:\red.txt"
Open fname For Input As #fnumber
List1.Text = Input$(LOF(fnumber), fnumber)
Close #fnumber
Если кто знает подскажите пожалуйста!

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 Smith



ICQ: ненавижу 

Вопросов: 28
Ответов: 317
 Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
 Профиль | | #1
Добавлено: 23.07.02 08:19

На 5 странице форума есть тема ListBox. от 25 июня.

Ответить

Номер ответа: 2
Автор ответа:
 Barsik



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
 Web-сайт: barsik.newmail.ru
 Профиль | | #2
Добавлено: 14.06.04 19:28

dim st as string

Open "C:\red.txt" for input as #1

do while not eof(1)

line input #1,st

list1.add st

loop

close #1

Писал сходу, поэтому не даю 100% гарантии....


 

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #3 Добавлено: 15.06.04 02:45
>List1.Text = Input$(LOF(fnumber), fnumber)
а причём тут Текст? тебе ж строку новою добавлять! List1.AddItem "Вася"

Ответить

Номер ответа: 4
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #4
Добавлено: 15.06.04 15:01
dim nf as integer, sOut as string, sArr() as string
nf=freefile

open filename as binary read as nf
    sOut = space$(lof(nf))
    get nf, vbnull,sout
close nf

sArr = split(sOut, vbCrLf)

for nf=0 to ubound(sArr)
    call List1.AddItem(sArr(nf))
next

Ответить

Номер ответа: 5
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #5 Добавлено: 15.06.04 17:07
2 sne
Ну думаю для новичков так способ непонравится, та често говоря и мне не очень он нравится, ведь чтоб каждую строку загрузить в файл достаточно, открыть файл для чтения, и циклом Do Loop загрузить строки в список, это даже с виду понятнее чем твой пример.

Ответить

Номер ответа: 6
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #6
Добавлено: 15.06.04 18:22
Угу... тока если в нем нет нечитаемых символов... (например сочетания символов конца файла!)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам