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

запись в файл и из файла в 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)

вот...

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

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

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

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

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