Afluse kode

Prøv lige dette;

Function Aflus(Streng)
  Set regEx = New RegExp
  regEx.Pattern = "(<)[^\>]{1,}(>)"
  regEx.IgnoreCase = True
  regEx.Global = True
  Set Matches = regEx.Execute(Streng)
  For Each Match in Matches
      Streng = Replace(Streng, Match.Value, "")
  Next
  Aflus = Streng 
End Function

Streng = "<P align=left>Oprindeligt var ""Bla blka bla bla bla"" (xxx) titlen på et bla bla, som havde til formål at <EM>bla bla bla</EM>, <EM>gennemføre</EM> og <EM>evaluere</EM> større og mindre bla bla<BR>, som tilsammen skulle bla bla<HR><SPAN>blalbla bla</SPAN>"

Response.Write Aflus(Streng)

Virker perfekt.
Kan nu se at jeg også skal afluse &nbsp;

hvordan tilføjer jeg den til pattern?

skal scriptet fjerne selve html koden (det der står mellem < og >) ELLER virningen af html koden, dvs så der stadig står <b>fed</b>, MEN ordet "fed" står normalt (altså IKKE med fed) ?

Jeg skal bruge det som description i mine metatags. Så det er koderne jeg skal finde og fjerne. Eksempel følger:

sideid1=request("id")
        Set rsmeta = Server.CreateObject("ADODB.Recordset")
typeid1=3
rsmeta.Open "select * from sideindhold WHERE (sideid = '" & sideid1 & "') and (type = '"& typeid1&"') order by id" , StrConn
if rsmeta.EOF then
%>
<meta name="DESCRIPTION" content="Blab bla bla bla bla bl a bla bla .">
<%
else
dim indhold, regex, matches, match
Function Aflus(Streng)
  Set regEx = New RegExp
  regEx.Pattern = "(<)[^\>]{1,}(>)"
  regEx.IgnoreCase = True
  regEx.Global = True
  Set Matches = regEx.Execute(Indhold)
  For Each Match in Matches
      Indhold = Replace(Indhold, Match.Value, "")
  Next
  Aflus = Indhold
End Function

indhold = rsmeta("indhold")
indhold = left(Aflus(Indhold),150)
%>
<meta name="DESCRIPTION" content="<%=indhold%>">
<%end if%>

function aflus(str)
    set regex = new RegExp
    regex.Global = true
    regex.Pattern = "<[^>]*>"
    str = regex.Replace(str, "")
    str = Replace(str, "&nbsp;", " ")
    aflus = str
end function

squashguy og netro:
Giv lige et svar begge to. Den virker som den skal nu

Fint...

ok

Fino.
Tak for den hurtige hjælp

Hvis i stadig er med.
Jeg skal også fange den kode for carrier return som laves, men ikke kan ses normalt. (I min editor kan man slå "show tabs and spaces" til.) Det er disse tabs jeg hentyder til.

Har i en ide til at fange den?