Max_T Posted March 27, 2005 Report Share Posted March 27, 2005 В 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 то … Подскажите кто знает как это все сделать, очень надо. Заранее благодарен. Quote Link to comment Share on other sites More sharing options...
Gray Angel Posted May 9, 2005 Report Share Posted May 9, 2005 Первая проблема решается так: 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) вот... Что косательно второй проблемы, можно хранить соответствия в отдельном файле (НомерВарианта,ИмяФайла), а редоктировать соответствия можно блокнотом Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.