Нужно конкретно распарсить текст ( небольшой )....

[Jenizix]

Ну вобщем чет я вообще запутался с этими строками.... =(((( или просто опыта не хватает....

Например мне сервер прислал вот такую инфу:

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

Jenizix : Daroff rebyat->all
Format : Hi!->Jenizix
Hacker : Fuck off->all
Jenizix : mda....->Hacker
Format : Mdaaa... Nu ti i pen'->Hacker


и у меня в проге переменная nick содержит значение Jenizix

мне нужно распарсить этут инфу и вывести в текстбокс, так чтобы:

1. Если в строчке после -> идет all, добавить эту строку в текстбокс без ->...
2. Если в строчке после -> идет значение, которое содержится в переменной name ( например Format : Hi!->Jenizix ), добавить в текстбокс такую строку Format (лично вам) : Hi!
3. Ну а если после -> идет чейто другой ник, то ничего в текстбокс не добавлять....

уже 3-ий час над этой ИМХО детской задачкой бьюсь, но решения не могу найти.... Обыдно... =(((

[MOV]

Юзай

INSTR
LEFT
RIGHT

[Jenizix]

А может еще Split ?

[uhm]

Split хуже, поскольку само сообщение может содержать ":" или "->", тогда у тебя лишние куски получатся. А так, все просто - вводишь две позиции - одна instr(stroka," : "), другая instrrev(stroka,"->"). Все, что до первой - от кого, все, что от первой+3 до второй - сообщение, все, что от второй +2 до конца - кому.

[Cyrax]

ну примерно так

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

Option Explicit
Dim s_MyNick As String

Sub ParseStr(ByVal str As String)
  Dim s_From As String
  Dim s_To As String
  Dim s_Msg as string

  s_To = Split(str, "->")(1)
 
  If s_To = "all" Then
    s_From = Split(str, " : ")(0)
    s_Msg = Split(Split(str, " : ")(1), "->")(0)

    Text1.Text = Text1.Text & s_From & ": " & s_Msg & vbCrLf
  ElseIf s_To = s_MyNick Then
    s_From = Split(str, " : ")(0)
    s_Msg = Split(Split(str, " : ")(1), "->")(0)

    Text1.Text = Text1.Text & s_From & "(лично вам): " & s_Msg & vbCrLf
  End If
End Sub

[Jenizix]

Вот накатал, посмотрите....

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

Dim data As String
Dim strs() As String
Dim nick As String

Private Sub Form_Load()
nick = "Jenizix"

data = "Jenizix : Helllo->all" + vbCrLf + "Format : Hi!->Jenizix" + vbCrLf + "Hacker : Fuck off->all" + vbCrLf + "Jenizix : you silly->Hacker" + vbCrLf + "Format : Mdaaa... Nu ti i pen'->Hacker"

strs = Split(data, vbCrLf)

On Error GoTo error:

For i = 0 To 10
a = InStr(1, strs(i), " : ")
b = InStr(1, strs(i), "->")
ln = b - a

If Mid(strs(i), b + 2) = nick Then Text1.Text = Text1.Text & Left(strs(i), a - 1) & " ( лично вам ) : " & Mid(strs(i), a + 3, ln - 3) & vbCrLf

If Mid(strs(i), b + 2) = "all" Then Text1.Text = Text1.Text & Left(strs(i), a - 1) & " : " & Mid(strs(i), a + 3, ln - 3) & vbCrLf

Next
error:
End Sub


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

З.Ы. Ща оптимизну т.к. я забыл про instrrev =(((

Да, и как узнать размер strs() ??? а то у меня это криво реализовано....

[Jenizix]

вот оптимизнутый ( но проблема с размером массива strs() осталась (UBound не работает) )

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

Dim data As String
Dim strs() As String
Dim nick As String

Private Sub Form_Load()
nick = "Jenizix"

data = "Jenizix : Helllo->all" + vbCrLf + "Format : Hi!->Jenizix" + vbCrLf + "Hacker : Fuck off->all" + vbCrLf + "Jenizix : you silly->Hacker" + vbCrLf + "Format : Mdaaa... Nu ti i pen'->Hacker"
strs = Split(data, vbCrLf)
On Error GoTo error:
For i = 0 To 10

pos_from = InStr(strs(i), " : ")
pos_to = InStrRev(strs(i), "->")

ln = pos_to - pos_from

m_text = Mid(strs(i), pos_from + 3, ln - 3)
m_from = Left(strs(i), pos_from)
m_to = Mid(strs(i), pos_to + 2)


If m_to = nick Then Text1.Text = Text1.Text & m_from & " ( лично вам ) : " & m_text & vbCrLf
If m_to = "all" Then Text1.Text = Text1.Text & m_from & " : " & m_text & vbCrLf

Next
error:
End Sub


[Jenizix]

Cyrax, как ты код с подсветкой синтаксиса вставляеш???

вот последний вариант...

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

Dim data As String
Dim strs() As String
Dim nick As String
Dim n As Integer

Private Sub Form_Load()
nick = "Jenizix"

data = "Jenizix : Helllo->all" + vbCrLf + "Format : Hi!->Jenizix" + vbCrLf + "Hacker : Fuck off->all" + vbCrLf + "Jenizix : you silly->Hacker" + vbCrLf + "Format : Mdaaa... Nu ti i pen'->Hacker"

strs = Split(data, vbCrLf)

On Error GoTo endArray: ' вот так я органиховал вычисление размера массива srts()...
For n = 0 To 2000 ' надеюсь больше 2000 строк приходить не будет...
d = Len(strs(n))
Next
endArray:

For i = 0 To n - 1

pos_from = InStr(strs(i), " : ")
pos_to = InStrRev(strs(i), "->")

ln = pos_to - pos_from

m_text = Mid(strs(i), pos_from + 3, ln - 3)
m_from = Left(strs(i), pos_from - 1)
m_to = Mid(strs(i), pos_to + 2)

If m_from = nick And m_to <> "all" Then Text1.Text = Text1.Text & m_from & " ( лично " & m_to & " ) : " & m_text & vbCrLf ' свои то сообщения я тоже должен видеть =)))
If m_to = nick Then Text1.Text = Text1.Text & m_from & " ( лично вам ) : " & m_text & vbCrLf
If m_to = "all" Then Text1.Text = Text1.Text & m_from & " : " & m_text & vbCrLf

Next

End Sub



[uhm]

Почему UBound-то не работает? У меня все в порядке, UBound(strs) в твоем примере выдает 4.

[xolod]

Ну и опять оффтоповое добавление
Учите регулярные выражения, или, даже, устройство конечных автоматов, чтобы писать правильные парсеры.
Кому учебник?

[Jenizix]

uhm, сенкс! а я пробовал strs.UBound.... стыдно...

Кому учебник?

Мне! =) jenizix@mail.ru

а как Cyrax вставлял код с подсветкой синтаксиса?

[GSerg]

А он раздел "VBStreets" читает иногда...

[xolod]

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

[Cyrax]

2 GSerg & xolod: шутники
2 Jenizix: use

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

[syntax="vb"]VB-Code[syntax]

в быстром ответе этого нет, но в редакторе сообщения есть доп. кнопки
2 xolod again: регулярные выражения, конечно, тоже можно... но как мне кажеться, для такой простой задачи вполне хватит и стандартных средств языка...