Оптимизация разбора строковой переменной

[-=Jaga=-]

Доброго времени, Форумчане!
Вводное описание проблемы:
Имею строку вида "c=Место: cN=Имя: cO=Отчество: cFam=Фамилия"
Нужно загнать массив то что находится между равно и ":". Сейчас я это делаю с помощью Split и разделителем выбираю ":". Но это мне не очень нравиться т.к. приходится дополнительно обрабатывать полученный результат.

Вопрос: Есть ли функция позволяющая взять результат между первым и вторым значением?
Первое значение в этом примере является:
с=
cN=
cO=
cFam=
вторым значением я подразумеваю ":"

[alibek]

Вручную обрабатывать строку через InStr будет быстрее.
Но выигрыш, по сравнению с Split, невелик, а трудоемкость выше.
Обычно достаточно Split.

[-=Jaga=-]

Спасибо, понял.

[Antonariy]

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

Private Sub Command1_Click()
Dim s As String
Dim x As Long, y As Long, py As Long, i As Long
Dim r() As String
Dim t As Single
   
    s = "c=Место: cN=Имя: cO=Отчество: cFam=Фамилия"
   
    t = Timer
    For x = 1 To 1000000
        r = Split(s, ":")
    Next
    Debug.Print "split", Timer - t
   
    t = Timer
    For x = 1 To 1000000
        ReDim r(5)
        i = 0: y = 0: py = 0
        Do
            y = InStr(y + 1, s, ":")
            If y <> 0 Then
                r(i) = Mid$(s, py + 1, y - py - 1)
                py = y
                i = i + 1
            Else
                Exit Do
            End If
        Loop
    Next
    Debug.Print "instr", Timer - t
    Debug.Print
End Sub

split          2,28125
instr          1,296875

split          2,28125
instr          1,296875

split          2,265625
instr          1,296875

split          2,265625
instr          1,296875

split          2,28125
instr          1,296875


Двухкратный - не такой уж невеликий выйгрыш. Трудоемкость мизерная.

[alibek]

Может от процессора зависит?
У меня InStr давал процентов 10 выигрыша по сравнению со Split.

[Antonariy]

Может. А ты в IDE сравнивал или в exe? Возможно в exe разница действительно меньше.

[alibek]

В IDE, причем с большой строкой (20 тысяч символов).
Впрочем, тут тоже можно посмотреть: http://www.xbeat.net/vbspeed/c_Split.htm