Построчное считывание из txt файла

@mazahaker-ncux · Регистрация: 21.01.2012

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

Доброго времени суток, форумчане!

Столкнулся с такой проблемой. Пишу программу тестирования и необходимо чтобы при каждой работе с программой. вопросы были в разном порядке. Решил что проще всего будет организовать путем считывания вопросов из файла txt(один вопрос=одной строке). Но вот как считывать строки random'но ума не приложу. Т.е. необходимо при нажатии кнопки "Следующий вопрос" в Label1.Caption был новый случайный вопрос(ну и желательно чтобы не повторялись вопросы при нажатии на кнопку "Следующий вопрос"). Всего вопросов-30

Visual Basic
1
2
3
4
5
6
7
For i = 1 To 30
i = FreeFile
Open App.Path & "\int.txt" For Input As #i
Line Input #i, MyText
Label1.Caption = MyText & vbCrLf
Next i
Close #i

Таким образом естественно считывает только первую строку. Догадок никаких нет.

Заранее признателен за помощь))

SoftIce · 19.08.2013, 08:24

Так что ли?

@mazahaker-ncux · 19.08.2013, 23:36 **[ТС]**

Сообщение от SoftIce

Так что ли?

да-да-да!!!! SoftIce, что бы я без тебя делал!!! Прям очень большое спасибо!)))

SoftIce · 20.08.2013, 07:05

Немного поправил код. Обратите внимание на 8-ю строку. А то "правильные" ответы иногда отображались неправильно

(это нужно больше для отладки и контроля работы программы), хотя в целом программма работает хорошо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
    'If CStr(Label2(Index).Caption) = CStr(Split(Ans(NumQ), "/")(0)) Then
    If Trim(Combo1.Text & "/" & Combo2.Text & "/" & Combo3.Text) = Trim(Ans(NumRndQ(NumQ))) Then
         MsgBox "Правильно", vbExclamation
    Else
         MsgBox "Неправильно", vbCritical
         MsgBox "Ваш ответ  " & Combo1.Text & "/" & Combo2.Text & "/" & Combo3.Text & vbCrLf & _
                "Правильный ответ   " & Ans(NumRndQ(NumQ))
    End If
End Sub

@vmag · 18.08.2024, 15:07

Сообщение от mazahaker-ncux

Таким образом естественно считывает только первую строку. Догадок никаких нет.

Прошло столько лет...
И всё же...
В первом посте чел 30 раз открывает файл и считывает в нем первую строку...

Всего то нужно было For i = 1 To 30 поставить после Open перед Line Input

и тогда файл открылся 1 раз и в нем прочиталось 30 строк...

@locm · 18.08.2024, 18:24

Сообщение от vmag

В первом посте чел 30 раз открывает файл и считывает в нем первую строку

Он мазахакер-псих!

Ему простительно, т. к. диагноз!

@HackerVlad · 19.08.2024, 13:35

Через 10 лет смеяться над кодом не камильфо

@Rh2Dark · 20.08.2024, 20:38

Могу предложить еще такой метод считывания файла:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim sFile as String
Dim N as Integer 'номер файла для открытия
Dim sBuff as String 'буфер считывания файла
Dim arrQuestions() as String 'массив куда файл будет распарсен
'******************************
sFile = App.Path & "\int.txt" 'путь и название файла
N = Freefile() 'определяем свободный номер файла
sBuff = Space(FileLen(sFile)) 'размер буфера=размеру файла
'открываем и читаем файл
Open sFile for Binary as N#
Get,, sBuff
Close #N
'парсим буфер в массив по строкам
arrQuestions() = Split(sBuff, vbCrLf)
'Готово!

@HackerVlad · 20.08.2024, 20:43

Rh2Dark, лучше всего загружать файл через API, а стандартная встроенная функция Split в VB6 она сама по себе медленная. Лучше всего использовать другой код для Split.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	19.08.2024, 13:35
	Через 10 лет смеяться над кодом не камильфо 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	20.08.2024, 20:43
	Rh2Dark, лучше всего загружать файл через API, а стандартная встроенная функция Split в VB6 она сама по себе медленная. Лучше всего использовать другой код для Split. 0