strings bearbeiten, splitten, schneiden

[thomas]

Hallo habe ( natürlich ) ein programmier-problem :

wenn ich einen string wie

data=<mc><mp><a><b>ok</b></a></mp></mc>

dahingehend " zerlegen" möchte ,dass lediglich ok einer variablen
zugewiesen werden kann, was kann ich tun. müsste ansonsten einen
xml-parser schreiben, kenne keinen für asp-sites um xml zu parsen.
der spass dabei ist auch ,dass die xml-datei als string mit eben
methodcall als erstem tag vom server geholt wird.. könnte ich diesen
string wie oben zerlegen, wäre mein problem gelöst

hoffe auf erleuchtung , vielleicht kann mir jemand helfen...danke

[Alexander Ganz]

Hallo Thomas,

du kannst hier den XMLParser von MS benutzen:
Hab das mal gemacht....

<script language="vbscript">
Function XMLString(XMLsource)
 Set XMLdom = CreateObject("MSXML.DOMDocument")
  XMLdom.loadxml(XMLsource)
  XMLString = XMLdom.text
 Set XMLdom = Nothing
End Function

msgbox XMLString("<mc><mp><a><b>ok</b></a></mp></mc>")

</script>

Die Methode XMLString gibt dann "ok" aus.
Ich denke, daß ist genau das, was du möchtest.

Viele Grüße
Alex

[thomas]

Danke, werd ich moin auf meiner arbeit
mal gleich anwenden müssen!!

[Stefan G.]

Hallo Thomas,

wenn ich einen string wie

data=<mc><mp><a><b>ok</b></a></mp></mc>

dahingehend " zerlegen" möchte ,dass lediglich ok einer variablen
zugewiesen werden kann, was kann ich tun.

bin mir nicht ganz sicher, ob ich deine Fragestellung voll erfasst
habe, aber vielleicht hilft dir ja folgende Funktion, die ich mal
schnell zusammengeschrieben habe. Voraussetzung ist, dass die Tags
korrekt sind und im eigentlichen Text keine "<" Zeichen vorkommen.

Function cutHTMLTags(str)
 Dim i
 Dim strAusgabe

For i = 1 To Len(str)
  If Mid(str,i,1) = "<" Then
   While Not Mid(str,i,1) = ">"
    i = i +1
   Wend
  Else
   strAusgabe = strAusgabe & Mid(str,i,1)
  End If
 Next

cutHTMLTags = strAusgabe
End Function

Gruß
Stefan

[thomas]

Super Danke!!!!! probiere dies mal gleich aus