Jump to content
СофтФорум - всё о компьютерах и не только

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


Recommended Posts

В 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 то …

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

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

Link to comment
Share on other sites

  • 1 month later...

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

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)

вот...

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...