Парсим текстовой файл *.txt помогите plz

[zaf]

Всем снова привет!

Есть текстовой файл ban.txt

Который состоит из несколькиз строчек. Например

zaf Вы забанены! Причина: Мат и оскорбление других
pizduk Вы забанены! Причина: Плохой ник:)!


Как сделать чтобы если в строке найден ник zaf то появляется MsgBox MsgBox "ТЕКСТ", 64, "АДМИНИСТРАЦИЯ" где вместо "ТЕКСТ" содержание той строки в которой был найден ник

Заранее спасибо

[alibek]

zaf, Вы забанены. Причина: упорное нежелание думать.

[zaf]

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

[zaf]

Код: Выделить всё

Private Sub Timer7_Timer()

cfree = FreeFile
Open "c:\ban.txt" For Input As cfree
xstring = Input(LOF(cfree), cfree)
Close #cfree

i = InStr(1, xstring, Form1.Text1.Text)
If i > 0 Then MsgBox uNik & ", вы забанены! Еще одно нарушение и вы будете выставлены за дверь!", 64, "АДМИНИСТРАЦИЯ": Form5.Show

End Sub

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

[Роман-вб]

Код: Выделить всё

Dim t$
  Open "c:\ban.txt" For Input As #1
  While Not EOF(1)
     Input #1, t$
     If InStr(t$, "zaf") Then Call MsgBox(t$, 64, "AAIEIENO?AOE?")
  Wend

Ну а там уже доработаешь.

[zaf]

Код: Выделить всё

Dim t$
  Open "c:\ban.txt" For Input As #1
  While Not EOF(1)
     Input #1, t$
     If InStr(t$, "zaf") Then Call MsgBox(t$, 64, "AAIEIENO?AOE?")
  Wend

Ну а там уже доработаешь.

Что означает Call ()?

[GAGArin]

zaf
Нарежь или сразу читай по строчкам, потом Split по пробелу. Если ник прошел склей остаток и отдай.

[RayShade]

zaf

Call это ненужный выпендреж в данном случае.

Можешь, выкинуть

[vvs_adm]

zaf
Call это ненужный выпендреж в данном случае.
Можешь, выкинуть

Только выкидывай вместе со скобками

Код: Выделить всё

If InStr(t$, "zaf") Then MsgBox t$, 64, "AAIEIENO?AOE?"

а то VB сильно расстроится...

[Роман-вб]

zaf
Call это ненужный выпендреж в данном случае.
Можешь, выкинуть

Это не выпендреж, -- это один из вариантов.
По-моему удобнее вызывать любые процедуры единообразно.
Ну в прочем каждый выбирает.