Перейти к содержанию
СофтФорум - всё о компьютерах и не только

запись в файл и из файла в Visual Basic


Рекомендуемые сообщения

В Visual Basic

В одной форме из 4 TextBox сохраняется текст,

вот таким образом:

file1 = FreeFile

Open "base.mmm" For Output As file1

Write #file1, Text3; Text4; Text5; Text6

В файле это выглядит вот так:

"вариант 0","ответ 1","ответ 2","ответ 3"

Нужно чтобы в другой форме файл открылся и главное нужный текст встал в нужный TextBox.

Другая проблема заключается в том что файлы нужно сохранять и открывать в зависимости от варианта и номера файла

Например если 1 то файл "base.mmm", если 2 то …

Подскажите кто знает как это все сделать, очень надо.

Заранее благодарен.

Ссылка на комментарий
Поделиться на другие сайты

  • 1 месяц спустя...

Первая проблема решается так:

file1 = FreeFileOpen "base.mmm" For Input As file1Input #file1, Text3; Text4; Text5; Text6Close file1

...но возможно VB будет читать с ковычками, тогда так:

dim a(3) as Stringfile1 = FreeFileOpen "base.mmm" For Input As file1Input #file1, a(0); a(1); a(2); a(3)Close file1for i%=0 to 3if mid(a(i),1,1)=chr(34) then a(i)=mid(a(i),2)if mid(a(i),len(a(i))-1)=chr(34) then a(i)=mid(a(i),1,len(a(i)-1)nexttext3=a(0):text4=a(1)text5=a(2):text6=a(3)

вот...

Что косательно второй проблемы, можно хранить соответствия в отдельном файле (НомерВарианта,ИмяФайла), а редоктировать соответствия можно блокнотом

Ссылка на комментарий
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...