Считывание данных из файла в переменную - VB

Узнай цену своей работы

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

Всем привет! Подскажите, пожалуйста, как считать данные из файла в переменную. Вот так записываю в файл:
Получается текстовый файл такого типа типа: 1 1 1 true 1 1 2 true 1 1 3 false ......... И так далее. Как мне теперь записать данные из файла в булеву переменную sSvet(i, j, k):

Решение задачи: «Считывание данных из файла в переменную»

textual
Листинг программы
Do Until EOF(intFH)
    Line Input #intFH, strString
    t1 = InStr(1, strString, " ")
    t2 = InStr(t1, strString, " ")
    t3 = InStr(t2, strString, " ")
    If t1 * t2 * t3 > 0 Then
        i = CInt(Mid(strString, 1, t1 - 1))
        j = CInt(Mid(strString, t1 + 1, t2 - t1 - 1))
        k = CInt(Mid(strString, t2 + 1, t3 - t2 - 1))
        If Mid(strString, t3 + 1, 4) = "true" Then
            sSvet(i, j, k) = True
        Else
            sSvet(i, j, k) = False
        End If
    Else
        'ошибка в прочитанных данных
    End If
Loop

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


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

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

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