Аргументы: strArgument - строка, intPosition - положение аргумента в строке
Назначение: Возвращает аргумент из специальным образом отформатированной строки
Возвращает: Аргумент
Public Function GetArgument(strArguments As String,intPosition As Integer) As String
On Error Resume Next
Dim intCounter As Integer
Dim iCurrPos As Integer
Dim strSeparator As String
Dim strCurrArg As String
GetArgument = ""
strSeparator = Mid(strArguments, 2, CLng(Left(strArguments, 1)))
strArguments = Mid(strArguments, CLng(Left(strArguments, 1)) + 2)
For intCounter = 1 To intPosition
If strArguments = "" Then Exit Function
iCurrPos = InStr(strArguments, strSeparator)
If iCurrPos > 0 Then
strCurrArg = Left(strArguments, iCurrPos - 1)
strArguments = Mid(strArguments, iCurrPos + Len(strSeparator))
Else
strCurrArg = strArguments
strArguments = ""
End If
Next intCounter
GetArgument = strCurrArg
End Function
Формат строки:
1~Первый аргумент~Второй аргумент~Третий аргумент
где:
1-количество знаков в разделителе
~ - разделитель
Пример: Getargument("1'Первый'Второй",2) возвращает Второй