HTML Tags in Spalte löschen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Juanernesto
Beiträge: 3
Registriert: Mo, 30.01.2006 20:16

HTML Tags in Spalte löschen

Beitrag von Juanernesto »

Hallo!

Ich bin OpenOffice-Anfänger. Vielleicht kann mir einer von Euch weiterhelfen.

Ich habe hier eine Calc Tabelle:

http://www.geocities.com/vanessa_solano ... leiner.xls

(Falls Ihr sie nicht downloaden möchtet, ist hier die Excel-Datei als URL, nur damit ihr Euch besser vorstellen könnt, was ich meine:

http://www.herber.de/bbs/user/30509.xls )

In einer Spalte ( F ) steht HTML. Dies möchte ich in normalen Text konvertieren, also alle HTML- Tags entfernen. Ist das möglich und wenn ja, wie? Bitte ganz genau erklären, hab mir Calc erst heute runtergeladen....

Ach so, damit der Text nicht vollkommen unstrukturiert ist nach dem entfernen der Tags, möchte ich folgende HTML Tags durch die jeweiligen Zeichen ersetzen:
ersetze "</li>" durch ","
ersetze "<br>" durch "-"

Wär echt super, wenn mir einer von Euch helfen könnte

PS: Bei Excel ging das (allerdings ohne das Ersetzen der jeweiligen Tags) mit folgendem Befehl:

Option Explicit

Sub Formatieren()

Dim a As Long, e As Long
Dim Zelle As Range
Dim x As String

For Each Zelle In Selection

x = " " & Zelle

'Maskierungen raus
x = Replace(x, " ", " ")
x = Replace(x, " ", " ")
x = Replace(x, """, """")
x = Replace(x, """, """")

'Zeilenumbrüche wandeln
x = Replace(x, "\r\n", " " & vbLf)
x = Replace(x, "\n\r", " " & vbLf)

'Alles vom Tag- Ende bis zum Leerzeichen davor raus

Do Until InStr(x, ">") = 0
e = InStrRev(x, ">")
a = InStrRev(x, " ", e)
x = Mid(x, 1, a - 1) & Mid(x, e + 1)
Loop

Zelle = Trim(x)
Next

End Sub