Страница: 1 |
На 5 странице форума есть тема ListBox. от 25 июня. 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% гарантии.... Страница: 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
Номер ответа: 2
Автор ответа:
Barsik
Разработчик Offline Client
ICQ: 343368641
Вопросов: 17
Ответов: 686
Web-сайт:
Профиль | | #2
Добавлено: 14.06.04 19:28
Номер ответа: 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-сайт:
Профиль | | #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-сайт:
Профиль | | #6
Добавлено: 15.06.04 18:22
Угу... тока если в нем нет нечитаемых символов... (например сочетания символов конца файла!)