Habs jetzt so gelöst das ich das ganze halt als String behandle und es total auseinanderschneide. Zur Erinnerung nochmals, das war der String:
OrderNumberText="ET_<xsl:value-of select="@EquipmentClassName" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>_<xsl:value-of select="@Name" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>_<xsl:value-of select="@CurrentDateTime" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>" Dim StrAnfang As String
Und hier mein Code:
Dim StrEnde As String
Dim StrNext As String
Dim rest1 As String
Dim wert1 As String
'Definiere Wert 1
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), "")
'Speichere Rest in Variable
StrNext = StrNext + 16
rest1 = Mid(myValue, StrNext)
'Definiere Wert2
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), "")
'Speichere Rest in Variable
StrNext = StrNext + 16
rest2 = Mid(rest1, StrNext)
'Definiere Wert 3
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), "")
Das ergibt dann die folgenden 3 Werte:
- @EquipmentClassName
- @Name
- @CurrentDateTime
Vielleicht hiflt es ja noch jemanden! Enjoy!
|