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

Новые блоги и статьи Все статьи Все блоги /
23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .	22. Подключение слоя системной динамики (потоковые диффуры): экономические метрики модели anaschu 17.06.2026 Апдейт модели: финансовый контур, разделение затрат Продолжаю развивать модель рабочего коллектива на AnyLogic. В этот раз работа шла над агентом Экономика — финансовым SD-слоем модели. Задача:. . .	[golang] Insert Delete GetRandom O(1) (Leetcode: 380) alhaos 16.06.2026 Insert Delete GetRandom O(1) Сложность: Medium Источник: LeetCode 380 Задача Реализовать структуру данных RandomizedSet, которая поддерживает следующие операции за O(1) в среднем:	Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .
[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 Min Stack Сложность: Medium Источник: LeetCode 155 Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы:	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .

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

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