Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Данные из текстового файла в текстовые поля / 10 сообщений из 10, страница 1 из 1
13.12.2008, 22:01
    #35712847
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

есть текстовый файл с табличным содеражинем


Тестовые задания
данные 1 данные2 данные3
данные 1 данные2 данные3
данные 1 данные2 данные3

есть форма на которой три текстовых поля и одна кнопка

мне надо чтобы при нажатии на кнопку

первая строка из текстового файла распределялась по полям формы

грубо говоря так

text1.text=данные 1
text1.text=данные2
text1.text=данные3

но чтобы строка -тестовые задания- игнорировалась

при нажатии второй раз на кнопку
данные менялись соответственно второй строке текстового файла

что то вроде формы для базы данных только в качестве
источника не таблица а текстовый файл

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
14.12.2008, 12:13
    #35713051
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Два варианта.
1.
Line Input для чтения и счетчик для пропуска уже прочитанных строк.
2
ADO.
...
Рейтинг: 0 / 0
14.12.2008, 14:52
    #35713163
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Благодарю Вас за ответ

я пробовал вот так

Input #1, fam$, imya$, god$
Text2.Text = fam
Text3.Text = imya
Text4.Text = god

но в данном случае если между строками будет
больше одного пробела или ненужное мне слово
тогда значения смешиваются и в текстовых полях отображается пустота

может есть какой пример

с ADO я не пробовал но думаю что с ADO
будет даже лучше

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
15.12.2008, 07:50
    #35713703
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Namikно чтобы строка -тестовые задания- игнорироваласьNamikтогда значения смешиваются и в текстовых полях отображается пустотаполучается, что у Вас текстовый файл не строгой структуры? или чтобы не гадать, сочините хотя бы десяток строк, сюда,
с нужными записями и с не нужными
...
Рейтинг: 0 / 0
15.12.2008, 18:14
    #35715446
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Благодарю Вас за ответ

вот пожалуйста

--------------------------------------------------------- начало текстового файла
Заголовок теста - Новейшая история - Первая мировая война
время на тест - 45 минут


первый вопрос теста - когда началась Великая Отечественная Война ?
ответ1 - 1941
ответ2 - 1939
ответ3 - 1914
ответ4 - 1937
ответ5 - 1945
правильный ответ - 1941


второй вопрос теста - когда закончилась Великая Отечественная Война ?
ответ1 - 1941
ответ2 - 1939
ответ3 - 1914
ответ4 - 1937
ответ5 - 1945
правильный ответ - 1945
---------------------------------------------------------------- окончание текстового файла

может надо какие то теги предусмотреть
чтобы программа рапозновала
какая строка отнистя к вопросу
какая к заголовку
а какая к правильному ответу

но я не знаю как это сделать

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
15.12.2008, 18:18
    #35715457
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
XML, структура INI-файла, самописная структура

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
15.12.2008, 19:24
    #35715593
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Переведите , как вам и советовали, в XML и спокойно парсите через MSXML.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
<?xml version="1.0" encoding="windows-1251"?>
<test>
<testheader><title>Новейшая история - Первая мировая война</title><testduration> 45 </testduration></testheader>
<question>
<text>когда началась Великая Отечественная Война ?</text>
<answer1> 1941 </answer1>
<answer2> 1939 </answer2>
<answer1> 1914 </answer1>
<answer1> 1937 </answer1>
<answer1> 1945 </answer1>
<rightanswer> 1941 </rightanswer>
</question>
<question>
<text>когда закончилась Великая Отечественная Война ?</text>
<answer1> 1941 </answer1>
<answer2> 1939 </answer2>
<answer1> 1914 </answer1>
<answer1> 1937 </answer1>
<answer1> 1945 </answer1>
<rightanswer> 1945 </rightanswer>
</question>
</test>
...
Рейтинг: 0 / 0
15.12.2008, 19:42
    #35715631
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Благодарю Вас

да вот это именно то что нужно (я в свое время работал кодировщиком)

только подскажите пожалуйста
для меня вот этот момент - парсите через MSXML.- нов
где об этом можно почитать

а я уже разберусь

с Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
15.12.2008, 22:41
    #35715829
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Ставьте референс на Microsoft XML, v.?
и что то в таком роде
(пишу по памяти, так что не обессудьте)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
dim myXML As MSXML.DOMDocument
    Set myXML = New MSXML.DOMDocument
myXML.Load "test.xml"
Dim iTest As IXMLDOMElement
For Each iTest In myXML.selectNodes("/test/qustion")
itest.getAttribute("answer1")
....
next
...
Рейтинг: 0 / 0
16.12.2008, 17:18
    #35717851
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Данные из текстового файла в текстовые поля
Благодарю Вас

уже разбираю

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Данные из текстового файла в текстовые поля / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]