Función GetStringBetween (ByVal Str1 como secuencia, ByVal str2 como secuencia, ByVal str3 como secuencia) como secuencia
'textbox. Texto = GetStringBetween (sData, “primer”, “pasado”)
Foundstr dévil como secuencia = ""
Los valores déviles () como secuencia = partieron (Str1, str2, CompareMethod.Text)
Si valores. >= 2 de la longitud entonces
los valores = partieron (los valores (1), str3, CompareMethod.Text)
Si valores. >= 2 de la longitud entonces
foundstr = valores (0)
Terminar si
Terminar si
Volver el foundstr
Terminar la función
|