Função GetStringBetween (ByVal Str1 como a corda, ByVal str2 como a corda, ByVal str3 como a corda) como a corda
'textbox. Texto = GetStringBetween (sData, “primeiro”, “último”)
Foundstr não ofuscante como a corda = o ""
Valores não ofuscantes () como a corda = a separação (Str1, str2, CompareMethod.Text)
Se valores. >= 2 do comprimento então
valores = separação (valores (1), str3, CompareMethod.Text)
Se valores. >= 2 do comprimento então
foundstr = valores (0)
Terminar se
Terminar se
Retornar o foundstr
Terminar a função
|