Funzione GetStringBetween (ByVal Str1 come stringa, ByVal str2 come stringa, ByVal str3 come stringa) come stringa
'casella di testo. Testo = GetStringBetween (sData, “primo„, “ultimo„)
Foundstr fioco come stringa = ""
I valori fiochi () come stringa = hanno spaccato (Str1, str2, CompareMethod.Text)
Se valori. >= 2 di lunghezza allora
i valori = hanno spaccato (valori (1), str3, CompareMethod.Text)
Se valori. >= 2 di lunghezza allora
foundstr = valori (0)
Concluder se
Concluder se
Restituire il foundstr
Concludere la funzione
|