Считывание данных из файла в переменную - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д