| Вопрос: Про файловые потоки | Добавлено: 08.03.07 14:46 |
Автор вопроса:  mrMoRiC
|
|
Здравствуйте!
Пишу сейчас простенькую прожку для брата(готовится к тестированию по русскому). Дело в том, что он подходит ко мне каждый вечер и просит, чтобы я подиктовал ему слова, а он их следом писал - словом, диктант провести. Я делал, это делал и мне надоело. Но брату отказать немогу. Поэтому решил написать программу - тестер. Суть: один файл содержит правильные слова, без ошибок, причём на каждой строке по одному слову. Второй файл содержит слова и возможные для них ошибки. Так вот, собственно проблема: у меня есть рандомайзер, по которому я считываю любых сто слов(строк) из первого файла в массив. Но мне так же нужно считать эти же (с такими же номерами) строки из второго файла. Понятно зачем? Ну, чтобы проверить потом. Вот. Но как это реализовать через фаловые потоки, чтобы устанавливать ридер на строки с определёнными номерами и читать их. Такого вроде делать нельзя или можно? Как? |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  mrMoRiC Вопросов: 1 Ответов: 7 |
Профиль | | #1 | Добавлено: 08.03.07 15:20 |
|
Если ничего не придумаём, то думаю мож таблицу в Акцесе сделать. Со строками конкретными там работать лего..
Кстати, пока в книге по теме потков рылся. Узнал, что поток имеет член Seek и Position. В чём разница между ними так и не понял. Просветите) ? |
||
|
Номер ответа: 2 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #2 | Добавлено: 08.03.07 15:28 |
| Может как-то модель WORD задействовать для проверки орфографии? Сам не сталкивался, но если найдется решение, не поленитесь выложить, ладно? | ||
|
Номер ответа: 3 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #3 | Добавлено: 08.03.07 15:35 |
|
а зачем тебе файл из разними ошибками ти например можеш зделать так
приравниваеш слово которое написал брат к правильному ответа если они не совпадают тогда буквено сверяеш и видаеш ошибку(где она какая она і т.д) |
||
|
Номер ответа: 4 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #4 | Добавлено: 08.03.07 15:40 |
|
Нащет вопроса заносиш оба файла у масив.
А потом уже рандомизиш їх например dim a(1 to 100) as string dim b(1 to 100) as string ти считиваеш у них свои файлиДальше по randomize timer вибираеш число і например виводишь іх у text text1.text=a(5) заместь 5 сгенерированое число text2.text=b(5)Вродиби так если я тебя правильно понял  oc
|
||
|
Номер ответа: 5 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #5 | Добавлено: 08.03.07 16:00 |
|
Пример:
создае 3 textbox і кнопку Dim prav(100) As String
Dim neprav(100) As String Dim chu As Integer Dim saa As integr Private Sub Command1_Click() Randomize Timer saa = Int(Rnd * 100) Text1.Text = prav(saa) Text2.Text = neprav(saa) End Sub Private Sub Command2_Click() If Text3.Text = Text1.Text Then MsgBox "Ñëîâî íàïèñàíî ïðàâèëüíî" Else MsgBox "Âè íàïèñàëè:" + Text3.Text + " À íàäà:" + Text1.Text End Sub Private Sub Form_Load() Open "d:\Pravulno.dat" For Input As #1 doc: For i = 0 To 100 Input #1, st prav(i) = st GoTo doc End If Close #1 End Sub Open "d:\nePravulno.dat" For Input As #1 doc: For i = 0 To 100 Input #1, st neprav(i) = st GoTo doc End If Close #1 End Sub Private Sub Text3_Change() End Sub |
||
|
Номер ответа: 6 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #6 | Добавлено: 08.03.07 16:03 |
|
От блин долбаний шифратор і забил Doc
первий msgbox "Правильно" Второй не правильно + показивает как ти написал и как нада било написать oc
|
||
|
Номер ответа: 7 Автор ответа: mrMoRiCВопросов: 1 Ответов: 7 |
Профиль | | #7 | Добавлено: 08.03.07 16:10 |
|
Может как-то модель WORD задействовать для проверки орфографии
Да, нет.. Зачем? Расскажу по-подробней о программе. На самом деле, Братан просил диктовать ему наречия, а там правило одно: или слитно или раздельно или через дефис. Поэтому дядю Ворда просить не надо)) Хотя, если вдальнейшем буду развивать эту прогу, то обязательно подумаю над этим и отпишусь сюда) |
||
|
Номер ответа: 8 Автор ответа: mrMoRiCВопросов: 1 Ответов: 7 |
Профиль | | #8 | Добавлено: 08.03.07 16:18 |
|
Как брат узнает, какое ему слово написать? ))
Программа должна выдать сто наречий. При этом два услвия: 1).она должна выдать рендомно ровно 100 штук, ну или сколько в опциях задашь. 2).Прога делает ещё один рандом и выбирает строку, номер которой был определён Первым рендомом, или из "правильного" файла или из "неправильного". Таким образом, брат никогда заранее не знает правильно ему комп выдал или неправильно. Поэтому его задача расставиить галочки напротив правильных, вот и ФСЁ) |
||
|
Номер ответа: 9 Автор ответа:  mrMoRiCВопросов: 1 Ответов: 7 |
Профиль | | #9 | Добавлено: 08.03.07 16:22 |
|
Нащет вопроса заносиш оба файла у масив. А потом уже рандомизиш їх например dim a(1 to 100) as string dim b(1 to 100) as string Помойму неэкономно. Но попробовать можно. КстатиЮ в VB.NET нижняя граница массива всегда 1 |
||
|
Номер ответа: 10 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #10 | Добавлено: 08.03.07 16:38 |
|
Ни спасиба ни здрасти не досвидание.Я свое время тратил писал помагал.
Спасиба хотяби не обматерил. oc
|
||
|
Номер ответа: 11 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #11 | Добавлено: 08.03.07 16:41 |
| Зато ты теперь умеешь так делать, мозги размял | ||
|
Номер ответа: 12 Автор ответа: mrMoRiCВопросов: 1 Ответов: 7 |
Профиль | | #12 | Добавлено: 08.03.07 16:41 |
| Простите, но я думал вы будете ещё что-нибудь писать и я вас отблагодарю позже. Но раз вы так тербовательны )) То спасибо, спасибо, Большое спасибо. Можете писать Ещё), если будет время, конечно. Оки? | ||
|
Номер ответа: 13 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #13 | Добавлено: 08.03.07 17:26 |
|
Та я не в обиду
Все таки мозги размял правильно заметил Djon.
А ти што на vb.net програмируеш.-ето к mrMoRiC Djon ти што тоже сегодня весь день на форуме. |
||
|
Номер ответа: 14 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #14 | Добавлено: 08.03.07 17:28 |
|
Так што у тебя там не получаетса обясни толком
што где имено |
||
|
Номер ответа: 15 Автор ответа: mrMoRiCВопросов: 1 Ответов: 7 |
Профиль | | #15 | Добавлено: 09.03.07 09:27 |
|
А ти што на vb.net програмируеш.-ето к mrMoRiC
Да |
||