Max_T Опубликовано 27 марта, 2005 Жалоба Поделиться Опубликовано 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 то … Подскажите кто знает как это все сделать, очень надо. Заранее благодарен. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Gray Angel Опубликовано 9 мая, 2005 Жалоба Поделиться Опубликовано 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) вот... Что косательно второй проблемы, можно хранить соответствия в отдельном файле (НомерВарианта,ИмяФайла), а редоктировать соответствия можно блокнотом Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.