Funkcja GetStringBetween (ByVal Str1 Sznurek, ByVal str2 Jako Sznurek, ByVal str3 Sznurek) Sznurek
'textbox. Tekst = GetStringBetween (sData, "pierwszy", "ostatni")
Ciemnawy foundstr Jako Sznurek = ""
Ciemnawy wartość () Jako Sznurek = Rozłam (Str1, str2, CompareMethod.Text)
Jeżeli wartość. Długość >= 2 Wtedy
wartość = Rozłam (wartość (1), str3, CompareMethod.Text)
Jeżeli wartość. Długość >= 2 Wtedy
foundstr = wartość ((0))
Kończyć Jeżeli
Kończyć Jeżeli
Wracać foundstr
Kończyć Funkcja
|