14. februar 2008 - 14:56Der er
4 kommentarer og 1 løsning
Fjerne html koder i Excel ark
Hej eksperter
Jeg har nogle data der er eksporteret fra et websystem med varer. I eksporten fulgte html-formatteringskoder med. Så en varetekst f.eks. kan se sådan ud:
<p><font face=\times new roman,times,serif\" size=\"3\">Super Cargoline med døre.</font></p>" (Andre <> </> koder er også med)
Men jeg skal i mit Excel ark kun bruge teksten "Super Cargoline med døre."
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Marker de celler du ønsker konverteret og kør makroen FjernTags
Sub FjernTags() For Each rngcell In Selection rngcell.Value = removeTags(rngcell.Text) Next End Sub
Private Function removeTags(MyString As String) Set regex = CreateObject("vbscript.regexp") regex.Global = True regex.Pattern = "<[^*][^>]*>" removeTags = regex.Replace(MyString, "") Set regex = Nothing End Function
tjah, jeg er desværre ikke stærk i regex og har på et tidspunkt fundet "<[^*][^>]*>" ved trail & error, men her er der en side der forklarer lidt om det
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.