Поиск текста в тексте!

[TiG]

Привет!
Не ругайтесь пожалуста, я знаю что наверняка эта тема обсуждалась неоднократно, но у меня очень плохо работает интернет и нет возможности поискать.

короче есть текст:

$RRR,TTT,4543,786,3224,435345>$FFF,345,GRG,ERTE,3453,REET,3535>

Мне нужно найти в нём начало определённых данных, заголовок, которых FFF. Далее после того как мы его нашли нам нужно двигаться вправо и копировать данные в разные места (текстбоксы) где разделителем их будет запятая, а конец нужного диапозона данных будет > либо начало следующего, т.е. $.

[skiperski]

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

InStr()

Ищешь сначала вхождение "$FFF", затем ">" или "$". Вырезаешь найденную подстроку Mid$(), заливаешь её в массив Split() с разделителем ",", укорачиваешь исходную строку или двигаешь указатель позиции. Повторяешь пока не надоест .

[TiG]

Круто было
Я некоторых терминов на сленге не понял (заливаешь...)
Если можно напиши полный код плз на данный пример

[skiperski]

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

Option Explicit

Public Function test(ByVal Expression As String)
   
    Dim p1&, p2&, p21&, p22&
    Dim s$, i&, a() As String
   
    p2 = 1
    Do
       
        p1 = InStr(p2, Expression, "$FFF", vbTextCompare)
        If (p1 = 0) Then Exit Do 'start not found
       
        p1 = p1 + 5 '+ comma
       
        p21 = InStr(p1, Expression & "$", "$", vbTextCompare)
        p22 = InStr(p1, Expression & ">", ">", vbTextCompare)
        If (p21 < p22) Then p2 = p21 Else p2 = p22
       
        s = Mid$(Expression, p1, p2 - p1)
       
        a = Split(s, ",")
        For i = 0 To UBound(a)
            'custom code here
            Debug.Print a(i),
        Next
        Debug.Print
       
    Loop
   
    Erase a()
   
End Function

Immediate:

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

?test("$RRR,TTT,4543,786,3224,435345>$FFF,345,GRG,ERTE,3453,REET,3535>$FFF,345,GRG,ERTE,3453,REET,3535>$FFF,345,GRG,ERTE,3453,REET,3535$FFF,345,GRG,ERTE,3453,REET,3535")
345           GRG           ERTE          3453          REET          3535         
345           GRG           ERTE          3453          REET          3535         
345           GRG           ERTE          3453          REET          3535         
345           GRG           ERTE          3453          REET          3535         

А вообще-то все функции уже были даны. Интернет для их изучения совершенно не нужен. Все параметры можно посмотреть в Object Browser (F2).

Так что пользуйся случаем, я сегодня добрый.

[TiG]

Сенкс, буду разбираться.

[TiG]

Привет! Разобрался, но не полностью.
Вырезать нужный фрагмент и поместить его в текстбокс удалось
Как быть с тем что нужно раскидать значения между запятыми в отдельные текстбоксы.
Получилась такая строка $FFF,12,13,13
мне нужно чтобы значение между первыми запятыми попало в текстбокс3, значение между вторыми запятыми попало в текстбокс4.

Напишите плз код.

Вот моя ересь, см ниже.

Private Sub Command1_Click()
p1 = InStr(1, Text1.Text, "$FFF", vbTextCompare)
If p1 > 0 Then
p2 = InStr(p1, Text1.Text, ">", vbTextCompare)
End If
If p2 - p1 > 0 Then
Text2.Text = Mid$(Text1.Text, p1, p2 - p1)
Else
Text2.Text = ""
End If


End Sub

Private Sub Command2_Click()
Text1.Text = "jgfuygvlib,ygiyv,uhu$FFF,12,13,13> 111111111111111111111111 57674567 56747 ,jbkfjg ejbge ejrup98545 uhtg hd570ht eouryt[803yt ouhetoeh 4085 FFF,78,45,23,jfg>"
End Sub

[skiperski]

$%/&%)(/&)(/&()=&%/%&/(%/&))(/&/( сказал боцман и грязно выругался!

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

        a = Split(s, ",")
        For i = 0 To UBound(a)
            'custom code here
            Debug.Print a(i),
        Next
        Debug.Print

Тут же чёрным по экрану понаписано "здесь пользовательский код"! Или это так для красивости? Посмотри чего в массиве a() понапихано, может какие мысли появятся.

[TiG]

Да не получается у меня как ты написал! Я вообще не понимаю что обозначает print(чего там печатать?), debug (чего там отлаживать), я новичок и в массов не врубаюсь. Как это в текстбоксы запихать?

[TiG]

Разобрался! Всем большое спасибо!

[skiperski]

Ура!!!

Кстати, в подписи надо либо слово "мама" выделить запятыми (т.к. она является лицом к которому обращена сия жалоба), либо окончание слова "разметало" заменить на "а" (тогда получится, что мама выступает в качестве урагана и жаловаться ей на неё же бессмысленно).