Чтение текста из файла и разбивание по переменным - VB
Формулировка задачи:
Народ! помогите пожалуйста. хочу смудрить программу тестер. шобы вопросы она брала из текстового файла. я полный новичок в этом деле. как записать текст из файла я вроде как знаю. а как разбить отдельные его части по переменным не вкурсе. к примеру. текстовый файл:
Чему равен 1 байт?.8 бит.1024 бита.1000 бит.1 килобайт.a
Самая малая величина измерения информации?.Бит.Килобит.Нанобит.Байт.a
ну и вот, нужно чтобы первые слова до точки были записаны в переменную vopros, от первой точки до второй в переменную a, и т. д.
Или это сделать невозможно? Подскажите плиз как этот замысел воплотить в жизнь?
Решение задачи: «Чтение текста из файла и разбивание по переменным»
textual
Листинг программы
x = x + 1 If x = 1 Then OpenFileDialog1.Filter = "Текстовый файл (*.txt)|*.txt" OpenFileDialog1.ShowDialog() FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) stroka = LineInput(1) Dim figna() As String = Split(stroka, ".") Label1.Text = figna(0) a.Text = figna(1) b.Text = figna(2) v.Text = figna(3) g.Text = figna(4) End If If x = 2 Then Dim figna() As String = Split(stroka, ".") If figna(5) = "a" Then If a.Checked = True Then Label1.Text = "Браво!" Else Label1.Text = "Неверно!" End If End If If figna(5) = "b" Then If b.Checked = True Then Label1.Text = "Браво!" Else Label1.Text = "Неверно!" End If End If If figna(5) = "v" Then If v.Checked = True Then Label1.Text = "Браво!" Else Label1.Text = "Неверно!" End If End If If figna(5) = "g" Then If g.Checked = True Then Label1.Text = "Браво!" Else Label1.Text = "Неверно!" End If End If End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д