Построчное считывание из 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.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

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

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