Чтение опредеоенных строк с файла

12.03.2008, 22:53. **Показов** 900. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Как читать из файла 3 или 6 и т.д. строку??

За ранее спаибо!

@AlexeyTyurin · 13.03.2008, 06:47

ну в общем если ты читаешь из текстового файла (файлы последовательного доступа) то можно сделать вот так:
Private Sub BlaBlaBla()
Dim i As Integer, st As String
' Открываем файл
fileno = FreeFile
Open 'c: est.txt' For Input As fileno
'Читаем
For i = 1 To 9
Line Input #fileno, st
'Отфильтровываем 2, 4, 6 строки
If i = 2 Or i = 4 Or i = 6 Then
Form.Print st
End If
Next i
'Loop
Close #fileno
End Sub
я создал файл test.txt
его содержимое
a
b
c
d
e
f
g
h
j

результат выполнения

b
d
f

возможно делать и по другому это зависит от типа доступа и от того что ты хочешь получить...

Новые блоги и статьи Все статьи Все блоги /
Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .

Мурзик

	Чтение опредеоенных строк с файла 12.03.2008, 22:53. Показов 900. Ответов 1 Метки нет (Все метки) Как читать из файла 3 или 6 и т.д. строку?? За ранее спаибо!

@AlexeyTyurin 0 / 0 / 0 Регистрация: 28.08.2007 Сообщений: 171
	13.03.2008, 06:47
	ну в общем если ты читаешь из текстового файла (файлы последовательного доступа) то можно сделать вот так: Private Sub BlaBlaBla() Dim i As Integer, st As String ' Открываем файл fileno = FreeFile Open 'c: est.txt' For Input As fileno 'Читаем For i = 1 To 9 Line Input #fileno, st 'Отфильтровываем 2, 4, 6 строки If i = 2 Or i = 4 Or i = 6 Then Form.Print st End If Next i 'Loop Close #fileno End Sub я создал файл test.txt его содержимое a b c d e f g h j результат выполнения b d f возможно делать и по другому это зависит от типа доступа и от того что ты хочешь получить... 0