Ошибка считывания из файла - VB

  1. Столкнулся с ошибкой чтения в переменную. Нажимаю на кнопочку "insetsave" - сохранение переменной происходит успешно(значение в txt файле отображается). Но вот когда нажимаю на "insetloadgame", компилятор выдаёт мне ошибку - "variable required - can't assign to this expression" и выделяет:


textual

Код к задаче: «Ошибка считывания из файла - VB»

Private SUB insetsave_Click()
car = "123drgs"
Open App.Path & "\save.txt" For Output As #1
Write #1, car
Close #1
END SUB
 
Private SUB insetloadgame_Click()
If Dir(App.Path & "\save.txt") <> "" Then
Open App.Path & "\save.txt" For Input As #1
Input #1, car
Close #1
Print car
Else
MsgBox "Not"
End If

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

9   голосов, оценка 3.778 из 5



Похожие ответы
  1. Здравствуйте, помогите пожалуйста разобраться в чем тут ошибка?

  1. Программа открывает doc файл, меняет там текст в закладках, на тот, который укажу в TextBox и сохраняет его в другой файл в указанный в программе путь. Папка сохранения создается автоматически и туда сохраняется новый doc. Но если созданную папку оставить как есть и в ней удалить все файлы, то при выполнении программы выводится ошибка - Ошибка доступа к пути/файлу. IOExpecton не обработано Как исправить это? Привожу сам код программы:

  1. Выходит ошибка runtime error 1004 method range of object global failed при загрузки данных из файла excel. Помогите разобраться.

  1. Добрый день! Столкнулся с непонятной для себя проблемой. Программу внутри студии работает - всё как надо. Пытаюсь сделать .exe через "Make .exe". Всё формируется. Запускаю - главная форма включается, кнопки функционируют. Но, когда нажимаю кнопку по запуску процедуры подвисает и выпадает ошибка: "Windows прекращает работу программы" Сигнатура проблемы: Имя события проблемы: APPCRASH ... Имя модуля с ошибкой: MSVBVM60.DLL Версия модуля с ошибкой: 6.0.98.15 Думал, может где я накосячил. Скачал из готовых примеров (предлагаемых на форуме) - Многопоточность в Visual Basic Запускаю приложенный в архиве exe файл. Потоки запускаются. Но, после закрытия программы - та же ошибка, что и у меня. Пробовал запускать от администратора и с разрешением проблемы совместимости. Скачал данную библиотеку, закинул в System32, через regsvr32.exe зарегистрировал, перезагрузил компьютер - беда осталась...Как быть я не знаю..Может знает кто, как победить?

  1. При нахождении среднего возраста работников, ВБ пишет ошибку 13 "Несовпадение типов", ругается на эту строку: "v = v + (Year(Date) - Year(gs1.TextMatrix(I, 4)))", ума не приложу,что делать. Вот весь код:

  1. Всем привет, помогите разобраться с кодом. Постоянно выдает ошибку overflow. Заранее спасибо!

  1. Привет,помогите с ошибкой в vusal basic Программирую только 1 неделю,поэтому многого не знаю,здесь в коде выдает ошибку Private Sub cmdВычислить подсвечивается желтым,а вот это выдает ошибку Kolich=CSng(Text1(0).Text ), Ctoim=CSng(Text2.Text),Stag=CSng(Text.2.Text),когда стираю этот код он без ошибки запускает,помогите может,что-то я не правильно делаю

  1. Давно на бейсике не программировал, нашёл старый код и не могу понять почему не работает (P.s. написал за пару минут не ругайте, да да слепил из готового).

  1. 1. вопрос(особо важный)