Чтение текста из файла и разбивание по переменным - VB

Формулировка задачи:

Народ! помогите пожалуйста. хочу смудрить программу тестер. шобы вопросы она брала из текстового файла. я полный новичок в этом деле. как записать текст из файла я вроде как знаю. а как разбить отдельные его части по переменным не вкурсе. к примеру. текстовый файл: Чему равен 1 байт?.8 бит.1024 бита.1000 бит.1 килобайт.a Самая малая величина измерения информации?.Бит.Килобит.Нанобит.Байт.a ну и вот, нужно чтобы первые слова до точки были записаны в переменную vopros, от первой точки до второй в переменную a, и т. д. Или это сделать невозможно? Подскажите плиз как этот замысел воплотить в жизнь?


textual

Код к задаче: «Чтение текста из файла и разбивание по переменным - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5

Источник