Fungera GetStringBetween (ByVal Str1 som stränger, ByVal str2 som stränger, ByVal str3 som stränger) som stränger
'textbox. Text = GetStringBetween (sDataen, ”första”, ”sist”)
Dunkel foundstr som stränger = "",
Dunkelt värderar () som stränger = splittring (Str1, str2, CompareMethod.Text)
Om värderar. Längd>= 2 därefter
värderar = splittring (värderar (1), str3, CompareMethod.Text),
Om värderar. Längd>= 2 därefter
foundstr = värderar (0)
Avsluta om
Avsluta om
Gå foundstr tillbaka
Avsluta fungerar
|