---

Hei

Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.
F.eks:
"<font color='#FF0000'>Egilmann</font>" skal returnere "Egilmann"
"<img src='bilde.gif'>Egilmann" skal returnere "Egilmann"
etc.
etc.

er dette enkelt, eller må jeg lage en lang funksjon som fikser dette ?

(Bruksområder: ASP-chat, ASP-forum, etc.)

mvh
Egil Kristiansen

---

egilmann wrote:
>
> Hei
>
> Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.

Jeg har lavet denne funktion som jeg selv bruger:
<%
function killHTML(tekst)
   dim isHTML
   dim temporal
   dim count

   isHTML=false

   count=1
   do while count<=len(tekst)
      if mid(tekst,count,1)= "<" then
         isHTML=true
      end if

      if isHTML then
         if mid(tekst,count,1)= ">" then
            isHTML=false
            count= count +1
         end if
      end if

      if not ishtml then
         temporal=temporal & mid(tekst,count,1)
      end if

      count= count +1
   loop

   killHTML=temporal
end function
%>

---

Hei

Det var det jeg trodde, må vel lage en funksjon. Har lyst til å lage en
selv. (Får bruke din om den jeg lager ikke er bedre

Takker så mye for hjelpen !

mvh
Egil Kristiansen
"Lars Hoffmann" <larshoff@teleline.es> wrote in message
news:3B913528.E5C2BC76@teleline.es...
> egilmann wrote:
> >
> > Hei
> >
> > Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.
>
> Jeg har lavet denne funktion som jeg selv bruger:
> <%
> function killHTML(tekst)
> dim isHTML
> dim temporal
> dim count
>
> isHTML=false
>
> count=1
> do while count<=len(tekst)
> if mid(tekst,count,1)= "<" then
> isHTML=true
> end if
>
> if isHTML then
> if mid(tekst,count,1)= ">" then
> isHTML=false
> count= count +1
> end if
> end if
>
> if not ishtml then
> temporal=temporal & mid(tekst,count,1)
> end if
>
> count= count +1
> loop
>
> killHTML=temporal
> end function
> %>

---

Hei igjen

Jeg laget en funksjon selv, (den er absolutt ikke så oversiktlig som din

Function CleanHTML(strString)
Dim blnStop
CleanHTML = strString
Do While Not blnStop
blnStop = True
If (InStr(CleanHTML, "<") > 0) Then
If InStr(InStr(CleanHTML, "<"), CleanHTML, ">") > 0 Then
CleanHTML = Left(CleanHTML, InStr(CleanHTML, "<") - 1) &
Mid(CleanHTML, InStr(InStr(CleanHTML, "<"), CleanHTML, ">") + 1)
blnStop = False
End If
End If
Loop
End Function

Denne fungerer i alle fall i VB, så jeg håper at den virker i ASP også...

mvh
Egil Kristiansen

"Lars Hoffmann" <larshoff@teleline.es> wrote in message
news:3B913528.E5C2BC76@teleline.es...
> egilmann wrote:
> >
> > Hei
> >
> > Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.
>
> Jeg har lavet denne funktion som jeg selv bruger:
> <%
> function killHTML(tekst)
> dim isHTML
> dim temporal
> dim count
>
> isHTML=false
>
> count=1
> do while count<=len(tekst)
> if mid(tekst,count,1)= "<" then
> isHTML=true
> end if
>
> if isHTML then
> if mid(tekst,count,1)= ">" then
> isHTML=false
> count= count +1
> end if
> end if
>
> if not ishtml then
> temporal=temporal & mid(tekst,count,1)
> end if
>
> count= count +1
> loop
>
> killHTML=temporal
> end function
> %>

---

"egilmann" <kriegi@frisurf.no> wrote in message
news:FjRk7.8579$1T5.100341@news1.oke.nextra.no...
> Hei igjen
>
> Jeg laget en funksjon selv, (den er absolutt ikke så oversiktlig som din

>
Kik lidt på den her
http://www.codeproject.com/asp/removehtml.asp

mvh/Peter Lykkegaard

---

egilmann wrote:
>
> Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.
> er dette enkelt, eller må jeg lage en lang funksjon som fikser
> dette?
> (Bruksområder: ASP-chat, ASP-forum, etc.)

Det kan godt være, at det er mig som er dum (eller som misforstår hvad
du prøver at gøre), men når man konsekvent benytter Server.HtmlEncode,
så kan jeg ikke se hvor problemet opstår.

(dvs. jeg tror I prøver at løse et forkert problem, eller løse det, men
de forkerte værktøjer)
--
Anders

---

Anders Holbøll wrote:
>
> Det kan godt være, at det er mig som er dum (eller som misforstår hvad
> du prøver at gøre), men når man konsekvent benytter Server.HtmlEncode,
> så kan jeg ikke se hvor problemet opstår.
>
> (dvs. jeg tror I prøver at løse et forkert problem, eller løse det, men
> de forkerte værktøjer)

Med server.HTMLEncode opnår man ikke den samme effekt som den vi søger.
Hvis man forestiller sig teksten:

<b>hej</b>

vil server.HTMLencode("<b>hej</b>")
resultere i: &lt;hej&gt; Hvilket jo ikke er det der ønskes.

---

Lars Hoffmann wrote:
>
> Anders Holbøll wrote:
> >
> > Det kan godt være, at det er mig som er dum (eller som misforstår
> > hvad du prøver at gøre), men når man konsekvent benytter
> > Server.HtmlEncode, så kan jeg ikke se hvor problemet opstår.
> >
> > (dvs. jeg tror I prøver at løse et forkert problem, eller løse
> > det, men de forkerte værktøjer)
>
> Med server.HTMLEncode opnår man ikke den samme effekt som den vi
> søger.
> [forklaring af HtmlEncode]

(Tak, jeg er klar over hvad Server.HtmlEncode gør)

Den orginelle sprøger angav, at han skulle bruge det til chat og forum,
altså steder hvor brugeren har mulighed for at skive info til andre
brugere. Hvis man vil benytte funktionen til at undgå, at nogen laver
scripts, der vil blive udført af de andre brugres browsere, ændre font
mm., vil jeg mene at htmlencode er den rigtige funktion af benytte. Hvis
man blot fjerner tags, har brugerne jo ikke mulighed for at diskuterer
html og sende eksempler til i chatten/forumet.

--
Anders

---

"Anders Holbøll" <dev-null-20010827@serveren.dk> wrote in message
news:3B94E362.1BBEA28E@serveren.dk...
> egilmann wrote:
> >
> > Jeg vil gjerne HTML-tags fra en string, og kun returnere ren tekst.
> > er dette enkelt, eller må jeg lage en lang funksjon som fikser
> > dette?
> > (Bruksområder: ASP-chat, ASP-forum, etc.)
>
> Det kan godt være, at det er mig som er dum (eller som misforstår hvad
> du prøver at gøre), men når man konsekvent benytter Server.HtmlEncode,
> så kan jeg ikke se hvor problemet opstår.
>
> (dvs. jeg tror I prøver at løse et forkert problem, eller løse det, men
> de forkerte værktøjer)

Det ville være lidt træls at skulle læse en given tekst med en masse støj i
form af diverse underlige symboler og tegn
For ikke at sige umuligt

mvh/Peter Lykkegaard