ник: awstr
Спасибо!
Простите, а как мне теперь натравить ету функцию на таблицу с целью разбить её?
'Функция Чтения части составной строки (т.е. строки, состоящей как-бы из нескольких "ячеек")
Public Function GetStringPart(ByVal strWholeString As String, _
ByVal strPartNumber As Long, _
ByVal strDivider As String) As String
' strWholeString - значение всей исходной строки
' strPartNumber - порядковый номер "ячейки" строки
' strDivider - разделитель "ячеек" (может быть произвольное количество символов), если разделитель не будет соответствовать реальному разделителю в строке, то функция будет считать всю строку за 1-ую ячейку
If strDivider = "" Or strPartNumber <= 0 Then GetStringPart = "": Exit Function:
Dim first As Long
Dim last As Long
Dim part As Long
part = 1
first = 1
last = 1
If strWholeString <> "" Then
If InStr(1, strWholeString, strDivider) <> 1 Then
strWholeString = strDivider & strWholeString
part = 0
End If
Do Until part = strPartNumber
first = InStr(last, strWholeString, strDivider, vbBinaryCompare) + Len(strDivider)
last = InStr(first, strWholeString, strDivider, vbBinaryCompare)
part = part + 1
If last = 0 Then Exit Do
Loop
Else
GetStringPart = ""
Exit Function
End If
If part = strPartNumber Then
If last = 0 Then
GetStringPart = Mid(strWholeString, first)
Else
GetStringPart = Mid(strWholeString, first, last - first)
End If
End If
End Function