Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Решить простую задачу Добавлено: 16.11.08 11:40  

Автор вопроса:  Дмитрий
Вопрос жизни и смерти
Есть программа в ней вводится некий текст Например «1»
Так же есть файл пусть будет с .txt
У фаила конструция такая Например:
[you]1
[you2]1234
…И.Т.Д
Когда в программе напишут число «1»
То надо будет открыть файл считать строчку которая будет ниже строчки «1»
Зарание большое спасибо

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #1 Добавлено: 16.11.08 13:44
Если я тебя правильно понял, то как-то так
  1. Private Sub Form_Load()
  2. Dim A As String
  3. Dim B As String
  4. Open "file.txt" For Input As #1
  5. A = "123"
  6. Do Until EOF(1)
  7. Line Input #1, B
  8.     If Right(B, Len(A)) = A Then
  9.     Line Input #1, B
  10.     MsgBox "След. строка: '" & B & "'"
  11.     Exit Sub
  12.     End If
  13. Loop
  14. End Sub

Конечно код не претендует на генильность (как и большинство написаного мной *CRAZY*), но думаю понятно :)

Ответить

Номер ответа: 2
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #2 Добавлено: 16.11.08 13:57
Ну и на всякий случай так) Если я неправильно понял, и
Когда в программе напишут число «1»
не про текст, а про номер строки...
  1. Private Sub Form_Load()
  2. Dim A As Long
  3. Dim B As String
  4. Dim C As Long
  5. Open "file.txt" For Input As #1
  6. A = 5
  7. Do Until EOF(1)
  8. Line Input #1, B
  9. C = C + 1
  10.     If C = A Then
  11.     Line Input #1, B
  12.     MsgBox "След. строка: '" & B & "'"
  13.     Exit Sub
  14.     End If
  15. Loop
  16. End Sub

Тока что-то мне подсказывает что моя реализация еще глупее предыдущей :) Ну и поф))

Ответить

Номер ответа: 3
Автор ответа:
 Дмитрий



Вопросов: 1
Ответов: 3
  Профиль | | #3 Добавлено: 16.11.08 14:04
Маленько уточню
В программе будет 2 текстбокса
В первом вводится какое либо слово ищем ето слово в файле
после того как нашли: берем тот текст который находится под (текстом который мы нашли)

Ответить

Номер ответа: 4
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #4 Добавлено: 16.11.08 14:15
Ну еще проще значит)
  1. Private Sub Form_Load()
  2. Dim A As String
  3. Open "file.txt" For Input As #1
  4. Do Until EOF(1)
  5. Line Input #1, A
  6.     If Right(A, Len(Text1.Text)) = Text1.Text Then
  7.     Line Input #1, A
  8.     Text2.Text = A
  9.     Exit Sub
  10.     End If
  11. Loop
  12. End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Дмитрий



Вопросов: 1
Ответов: 3
  Профиль | | #5 Добавлено: 16.11.08 14:24
@lexБольшое спасибо

Ответить

Номер ответа: 6
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #6 Добавлено: 16.11.08 14:29
Всегда пожалуйста ;)

Ответить

Номер ответа: 7
Автор ответа:
 Дмитрий



Вопросов: 1
Ответов: 3
  Профиль | | #7 Добавлено: 19.11.08 15:51
Можно еще один вопрос
А вот как сделать если например набранного слово не оказалась в базе, то нужно его добавить
Таким видом:
1Слово
2слово
Первое слово то что не оказалась в базе, а второе слово нужно взять из ТекстБокса

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам