ник: Lukas
ИМХО тут не надро мудрствовать особо
|
Это смотря сколько записей в запросе.
Так будет аккурат вдвое быстрее, чем ComposeIndexA, при одинаковом результате:
Public Function ComposeIndexC(somestring As String) As Long
Dim Arr() As Byte
Dim i As Integer
Dim s As String
Arr = somestring
For i = 0 To UBound(Arr) Step LenB("A")
If Arr(i) > 47 Then
If Arr(i) < 58 Then
s = s & Mid$(somestring, i \ LenB("A") + 1, 1)
End If
End If
Next i
ComposeIndexC = s
End Function
|