Dim
StrEnde
As
String
Dim
StrNext
As
String
Dim
rest1
As
String
Dim
wert1
As
String
StrAnfang = InStr(1, myValue,
"Select"
, 1)
StrEnde = InStr(26, myValue, Chr(34), 1)
StrNext = InStr(50, myValue,
"</xsl:value-of>"
, 1)
laenge = StrEnde - StrAnfang
wert1 = Mid(myValue, StrAnfang, laenge)
wert1 = Replace(wert1,
"select="
& Chr(34),
""
)
StrNext = StrNext + 16
rest1 = Mid(myValue, StrNext)
StrAnfang = InStr(1, rest1,
"Select"
, 1)
StrEnde = InStr(26, rest1, Chr(34), 1)
StrNext = InStr(45, rest1,
"</xsl:value-of>"
, 1)
laenge = StrEnde - StrAnfang
wert2 = Mid(rest1, StrAnfang, laenge)
wert2 = Replace(wert2,
"select="
& Chr(34),
""
)
StrNext = StrNext + 16
rest2 = Mid(rest1, StrNext)
StrAnfang = InStr(1, rest2,
"Select"
, 1)
StrEnde = InStr(26, rest2, Chr(34), 1)
StrNext = InStr(45, rest2,
"</xsl:value-of>"
, 1)
laenge = StrEnde - StrAnfang
wert3 = Mid(rest2, StrAnfang, laenge)
wert3 = Replace(wert3,
"select="
& Chr(34),
""
)