Fonction GetStringBetween (ByVal Str1 comme corde, ByVal str2 comme corde, ByVal str3 comme corde) comme corde
'boîte à textes. Texte = GetStringBetween (sData, « premiers », « dernier »)
Faible foundstr comme corde = ""
Les faibles valeurs () comme corde = se sont dédoublées (Str1, str2, CompareMethod.Text)
Si valeurs. >= 2 de longueur puis
les valeurs = se sont dédoublées (valeurs (1), str3, CompareMethod.Text)
Si valeurs. >= 2 de longueur puis
foundstr = valeurs (0)
Finir si
Finir si
Renvoyer le foundstr
Finir la fonction
|