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) вот... Что косательно второй проблемы, можно хранить соответствия в отдельном файле (НомерВарианта,ИмяФайла), а редоктировать соответствия можно блокнотом Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Для публикации сообщений создайте учётную запись или авторизуйтесь
Вы должны быть пользователем, чтобы оставить комментарий
Создать учетную запись
Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!
Регистрация нового пользователяВойти
Уже есть аккаунт? Войти в систему.
Войти