Funktion GetStringBetween (ByVal Str1 als Schnur, ByVal str2 als Schnur, ByVal str3 als Schnur) als Schnur
'area per informazioni. Text = GetStringBetween (sData, „erste“, „letzt“)
Schwaches foundstr als Schnur = ""
Schwache Werte () als Schnur = aufspalteten (Str1, str2, CompareMethod.Text)
Wenn Werte. Länge >= 2 dann
Werte = aufspalteten (Werte (1), str3, CompareMethod.Text)
Wenn Werte. Länge >= 2 dann
foundstr = Werte (0)
Beenden wenn
Beenden wenn
Foundstr zurückbringen
Funktion beenden
|