Функция GetStringBetween (ByVal Str1 как шнур, ByVal str2 как шнур, ByVal str3 как шнур) как шнур
'textbox. Текст = GetStringBetween (sData, «первые», «последн»)
Тусклое foundstr как шнур = ""
Тусклые значения () как шнур = разделили (Str1, str2, CompareMethod.Text)
Если значения. >= 2 длины после этого
значения = разделили (значения (1), str3, CompareMethod.Text)
Если значения. >= 2 длины после этого
foundstr = значения (0)
Закончитесь если
Закончитесь если
Возвратите foundstr
Закончите функцию
|