ник: osmor
перебирать строку по символам быстрее всего так
Public Function string2shar(strParam As String)
Dim i As Integer
Dim intStep As Integer
intStep = LenB("A")
U() = strParam
For i = UBound(U) to 0 Step intStep * (-1)
debug.print U(i)
'здесь можно проверку на качественность символа и выход из цикла отрезав по нужный символ
Next
End Function
|