strings bearbeiten, splitten, schneiden

[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