Stripping af HTML fra file.stream ?

Regular Expressions (VB Script) vil være at foretrække...

<%
check = true

while check=true

pos = inStr(DIN_STRENG,"<style>")

if not pos = 0 then
DIN_STRENG = Left(DIN_STRENG, pos) + Right(DIN_STRENG, inStr(DIN_STRENG, "</style>" + 8)

else

pos = inStr(DIN_STRENG,"<script>")

if not pos = 0 then
DIN_STRENG = Left(DIN_STRENG, pos) + Right(DIN_STRENG, inStr(DIN_STRENG, "</script>" + 9)

end if

if InStr(DIN_STRENG, "<script>" = 0 then
  if InStr(DIN_STRENG, "<style>" = 0 then
    check = false
  end if
end if

WEND


Tror jeg fik det hele med

måske lige bortset fra

%>

Det krævede lige lidt tilretning, da der manglede END IF og en parantes hist og pist - men så virker det også :-)
Så hvis du lige skriver en kort besked markeret som "svar" så får du dine point (når du kommenterer kan jeg ikke give point)

Den reviderede udgave af scriptet er indsat herunder, hvis andre vil kigge med:
--------------------
Dim check,pos
check = true

while check = true

pos = inStr(lcase(strStream),"<style>")

if not pos = 0 then
    strStream = Left(strStream, pos) + Right(strStream, inStr(lcase(strStream), "</style>") + 8)
else
    pos = inStr(lcase(strStream),"<script>")

    if not pos = 0 then
        strStream = Left(strStream, pos) + Right(strStream, inStr(lcase(strStream), "</script>") + 9)
    end if

    if InStr(lcase(strStream), "<script>") = 0 then
      if InStr(lcase(strStream), "<style>") = 0 then
        check = false
      end if
    end if

end if
WEND

Ok, det gik vist lidt hurtigt her...!