Анализ текста.

[TiG]

Как наиболее просто реализовать следующую программу:

Есть случайный текст, например:

Уходит [Бальбо]

Входит [000_Abcent_000]

Входит [буяка]

Входит [deksss]

Входит [Banditka-1]

Уходит [0000 Sentinels]

Уходит [Sleeping rabbit]

Нужно узнать есть ли в этом тексте следущее:
Входит [000_Abcent_000] Входит [deksss]

Если обе записи или одна запись в данном тексте есть, то выдать в переменныю или текст бокс строчку (с одним или двумя никами соответственно):

private[radio]private[000_Abcent_000]private[deksss] Location 20|-20


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

[BV]

InStr?

[Debugger]

Split?

[Wolfie]

Помойму (как и у BV) Instr здесь идеально подходит, вроде

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

If Instr (1,Text,A) then
    if Instr(1,Text,B) then К="private[radio]private" & A & "private" & B & "Location 20|-20"
end if

[TiG]

Wolfie
вот так наверое:

If InStr(1, Text, a) Then k = k & a
If InStr(1, Text, b) Then k = k & b

[|( () ( T |/| |(]

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

Dim Nicks(2) As String, msg As String
Nicks(0) = "radio"
Nicks(1) = "000_Abcent_000"
Nicks(2) = "deksss"
For i = 0 To UBound(Nicks)
If InStr(1, Text, "Входит [" & Nicks(i) & "]") Then
  msg = msg & "private[" & Nicks(i) & "]"
End If
Next
msg = msg & " Location 20|-20"
MsgBox msg