Functie GetStringBetween (ByVal Str1 als Koord, ByVal str2 als Koord, ByVal str3 als Koord) als Koord
'textbox. Tekst = GetStringBetween (sData, „eerst“, „laatste“)
Schemerige foundstr als Koord = ""
De schemerige waarden () als Koord = verdelen (Str1, str2, CompareMethod.Text)
Als waarden. Lengte >= 2 toen
de waarden = verdelen (waarden (1), str3, CompareMethod.Text)
Als waarden. Lengte >= 2 toen
foundstr = waarden (0)
Eind als
Eind als
Terugkeer foundstr
De Functie van het eind
|