List - считывание с файлов

[DKbelRoma]

Немогу найти, как можно считать с txt файла (например) именно первую строчку или вторую в List1.

[dr.MIG]

Как вариант, FSO, функция ReadLine.

[Хакер]

Код: Выделить всё

Dim sFirstLine As String
Dim sSecondLine as String

Open "Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??" For Input as #1
     Line Input #1, sFirstLine
     Line Input #1, sSecondLine
Close #1
MsgBox "Первая строчка: [" + sFirstLine + "]"
MsgBox "Вторая строчка: [" + sSecondLine + "]"

[DKbelRoma]

Спасибо. А как потом добавить эти строчки в List ???

[Хакер]

MySuperListBox.Add "Ы!"

[DKbelRoma]

Хакер ясно. Спасибо

[[LEV&n]]

Не легче ли так:?

Dim A As String 'Объявляем стринговую текущей строки, считываемой из файла
Dim g As Integer ' Объявляем индикатор строк, как переменную
Open Dir1.Path + "\" + File1.FileName For Input As #1
Do While Not EOF(1) 'Условие, «пока файл не будет считан до конца»
Input #1, A$
L_opn.AddItem A$ 'Поскольку файл может быть неограниченного размера, то было бы бессмысленным объявлять константу, допустим Dim A$ (1 to 100), это можно прописывать только в том случае, если размер файла не предполагает в себе превышения 100 строк, тем более, что объявление Dim A$ (1 to X) не предоставляется возможным и программа выдаёт сообщение о том, что это значение должно являться константой.
Loop
Close

[Денис]

[LEV&n]
Спокойно!
Постановка задачи немного иная: Вывести нужную строку из файла а на остальные забить. В случае если в файле меньше строк, вывести какой-нибудь код ошибки. И зачем тебе массив?

[[LEV&n]]

[LEV&n]
Спокойно!
Постановка задачи немного иная: Вывести нужную строку из файла а на остальные забить. В случае если в файле меньше строк, вывести какой-нибудь код ошибки. И зачем тебе массив?

Я просто привык извлекать из примеров, только тот участок кода, который мне нужен, допустим извлечь первую строчку из листа можно следующим путём: g=0:label1=list1.list(g). Тем же самым путём, передвигая g и определяя тип записи, можно присваивать значения к ряду объектов.

[Хакер]

[LEV&n]
Ты в курсе, насколько то, что ты предлагаешь, ужасно?

[Денис]

[LEV&n]
Я тута в соседнем топике про индусский код написал, ты тока без обид, но вот совет: Все (практически абсолютно все) алгоритмы уже изобретены и оптимизированы. Никто не заставляет тебя собирать прогу из чужих кирпичей, но и никто не мешает тебе изучить все эти приемы. Источники известны: MSDN, поисковики, библиотеки кирпичей, одна из которых лежит прямо на этом форуме. Юзай

З.Ы. Во всем важна мера. Не перемудрить с чужими компонентами и не переусердствовать со своими, наспех придуманными алгоритмами.

[[LEV&n]]

[LEV&n]
Ты в курсе, насколько то, что ты предлагаешь, ужасно?

Нет, прошу пояснить, в чём причина его критичности, и что может произойти, если пустить его в ход?

[Viper]

[LEV&n], вдумайся, что делает строка:

Код: Выделить всё

Input #1, A$

И в чем отличие от

Код: Выделить всё

Line Input #1, A$

[[LEV&n]]

[LEV&n], вдумайся, что делает строка:

Код: Выделить всё

Input #1, A$

И в чем отличие от

Код: Выделить всё

Line Input #1, A$

Незнаю, по моему они идентичны.

[Lumen]

Line Input считывает одну строку из файла последовательного доступа и присваивает эту строку String переменной. Он считывает посимвольно строку, пока не встретит последовательность vbCrLf. Причем vbCrLf к считанной строке не добавляется.
Input считывает данные из файла последовательного доступа и присваивает их переменным. При чтении стандартной строки или числовых данных результат присваивается переменной без преобразования данныъх. Если же другие исходные данные, то происходят следующие преобразования:
Пустая строка - Empty
#NULL# - Null
#TRUE# (#FALSE#) - True (False)
#yyyy-mm-dd hh:mm:ss# - Дата (время)
#ERROR errornumber# - errornumber (переменная - Variant, помеченная как ошибка)

[[LEV&n]]

Line Input считывает одну строку из файла последовательного доступа и присваивает эту строку String переменной. Он считывает посимвольно строку, пока не встретит последовательность vbCrLf. Причем vbCrLf к считанной строке не добавляется.
Input считывает данные из файла последовательного доступа и присваивает их переменным. При чтении стандартной строки или числовых данных результат присваивается переменной без преобразования данныъх. Если же другие исходные данные, то происходят следующие преобразования:
Пустая строка - Empty
#NULL# - Null
#TRUE# (#FALSE#) - True (False)
#yyyy-mm-dd hh:mm:ss# - Дата (время)
#ERROR errornumber# - errornumber (переменная - Variant, помеченная как ошибка)

Я добивался в работе принципа схожего действия несколько иным путём, импорта в текстбокс и рассмотрение строки, как совокупность символов. После этого по специальным из них, я мог оределить тип данных. К чему базар ведём-то?

[vpnacc]

"базар" к тому что для достижения разных целей применяются соответсвующие средства...

можно и проще: по мухам из пушки не стреляют.