nicht angemeldet
Hallo!
Hallo
Ich habe eine Zeichenkette namens str, die Text und HTML-Code enthält. Nun möchte ich daraus alle HTML-Tags entfernen, also alles, was so aussieht: <irgendwas> . Wie geht das? Ich habe vor allem an REPLACE gedacht, weiss aber nicht, wie man dort Platzhalter setzen kann!
Eine Möglichkeit wäre:
Dim arrStr1
Dim arrStr2
'Zwei Arrays deklarieren
Dim x
Dim y
'Zwei Integer, die den Index des höchsten Felds enthalten
Dim i
'Counter
Dim strText
'Unser Text
arrStr1 = Split(str,"<")
'Jedes Feld enthält den Text nach einem "<" bis zum nächsten "<" (wobei die "<" gelöscht werden)
x = UBound(arrStr1)
'Anzal Felder in arrStr1
For i=0 to x
arrStr2 = Split(arrStr(i),">")
'Ein Feld von arrStr1 wird in bei jedem ">" gespaltet
' (in html-Tag und Text)
strText = strText & "/" & arrStr2(1)
'Text wird zusammengefügt, "/" als Trennzeichen
Next
Hab das ganze nur so hingekrizelt, sollte jedoch etwa funktionieren. Problematisch wird es, wenn du "<" und ">" im String hast, die nichts mit HTML zutun haben. Im Text selbst kannst du sie codieren, wenn du jedoch JS benutzst musst du dies zuerst rausfiltern.
MfG
Tom2