Скажите пожайлуста как прочитать сразу 4-ю строку текстового

[alex77777]

Hi!

Скажите пожайлуста как прочитать сразу 4-ю строку текстового файла.
Необходимо прочитать 1955.

например:

"Иванов", "Иван", 1955

спасибо всем заранее.

[Jenizix]

так 4 строку надо прочитать, или значение после 4 запятой?

[Jenizix]

если строку, то так:

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

Dim str As String
dim nStr as Long

nStr=4

Open "text.txt" For Input As 1
For i = 1 To nStr
Input #1, str
If i = nStr Then MsgBox str
Next
Close #1


[Jenizix]

а вот с запятыми... вроде так...

вот:

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

Open "text.txt" For Input As 1
Input #1, a, s, d, str
MsgBox str
Close #1


[Jenizix]

пробуй...

[alex77777]

Спасибо за Хелп. Может я поспешил, хочу немного "исправить" свой вопрос (
Текстовый файл такой:

"БЛА-БЛА","БЛА-БЛА"
"БЛА-БЛА","БЛА-БЛА","БЛА-БЛА","БЛА-БЛА"
"БЛА-БЛА","БЛА-БЛА"
"Иванов","Иван",1995

Вот так будет правильно. I'm sorry.

[IVAN008]

В смысле строки между собой разделены переводом строки?
или нет?

[Jenizix]

Ну тк а что тебе нужно извлеч из файла?, если только 4 строку то мой 1 пример, если из каждой строки 3 знач после запятой, то 2+1 пример... пробуй...

[Daz]

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


Dim sss as string
Open "C:\test.txt" For Input As #1
sss = Input(LOF(1), 1)
Close #1
Dim aaa() As String
aaa() = Split(sss, vbCrLf)
MsgBox aaa(3)


[GM]

2Daz зачем считывать весь файл ???
2 alex77777 если тебе нужен Иванов то первое что приходит в голову:

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

Dim s as string
dim i as integer
Open "C:\test.txt" For Input As #1
for i = 1 to 4
line input #1,s
next
Close #1


[alex77777]

Всем спасибо за }{елп.
Прошу помочь ещё раз


Задача такая:
1) Открыть файлы в папке C:\data
(например: 12345678.001, 23456789.002, и т.д. )
2) Занести название файлов в Excell ;
3) Прочитать 4-ю строку (после запятой - тобишь 1955)
и должна получиться такая картина:

12345678.001 156
23456778.002 33
33233333.003 33

Спасибо Всем кто откликнется.