Чтение текста из файла и разбивание по переменным - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.364 из 5
Похожие ответы