Replace funktion

Her skal du ud og bruge InStr() og Mid() funktionerne!

Først finder du ud af med InStr() hvor den første <span befinder sig i strengen og stopper det i en int1stPoint variabel, herefter finder du det næste punkt som du så stopper i en int2ndPoint variabel.

Her efter sortere du det så ud med Mid(strStreng, int1stPoint, int2ndPoint) og så skulle du gerne få dit resultat!

//>Rune

Se nærmere om funktionerne på www.devguru.com under VBScript !

//>Rune

Kan du prøve at give et komplet eksempel?

Hvad er det helt præcist du vil?
Vil du fjerne alle SPAN-Tags eller...?

Jeg har fået det til at virke... meeen det virker ikke som det skal ;-) Check ouptuttet...

<%
    strStreng = "Hej Med dig karl aage<SPAN lang=EN-GB><FONT face=verdana,arial,helvetica,sans-serif><f>hej dy isv</f>"
    first = "<SPAN"
    last = ">"
   
    int1stPoint = InStr(strStreng, first)
    int2ndPoint = InStr(strStreng, last)
    newStreng = Mid(strStreng, int1stPoint, int2ndPoint)
       
        response.Write(newStreng)
%>

c a s p er : Ja jeg vil fjerne alle SPAN tags !

Anyone?

2 sec

Public Function stripHTML(strHTML)
    arrCleanTags = array("h1","h2","h3","h4","h5","h6","p","li","ul","ol","div","td","table","tr","u","b","i")
    arrRemoveTags = array("o:p","o:lock","v:(.|\n)+?","span","font", "w:wrap")
    'Strips the HTML tags from strHTML

    Dim objRegExp, strOutput
    Set objRegExp = New Regexp

    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    strOutput = strHTML
   
    for each tag in arrRemoveTags
        'Clean startTag
        'response.write tag & "<br>"
        objRegExp.Pattern = "<"&tag&"(.|\n)+?>"
        strOutput = objRegExp.Replace(strOutput, "")
        'Clean ensTag
        objRegExp.Pattern = "</"&tag&">"
        strOutput = objRegExp.Replace(strOutput, "")
    next

    for each tag in arrCleanTags
        'Clean startTag
        'response.write tag & "<br>"
        objRegExp.Pattern = "<"&tag&" (.|\n)+?>"
        strOutput = objRegExp.Replace(strOutput, "<"&tag&">")
        'Clean ensTag
        objRegExp.Pattern = "</"&tag&">"
        strOutput = objRegExp.Replace(strOutput, "</"&tag&">")
    next
   
    stripHTML = strOutput 'Return the value of strOutput

    Set objRegExp = Nothing
End Function


Denne funktion fjerner eller renser tags. I de øverste linier definerer du hvilke der skal fjernes eller renses.

Fjern eks: "test <span>dette fjernes</span>" = "test "
Rens eks: test "<p align="right"/>renses</p>" = "<p>renses</p>"
RegExp er noget mere performancevenlig end Mid og InStr

/Casper

Det får jeg ikke meget ud af, kun en tom side ;)

Arhhh!!!

Ok... Vi taget det lige fra side 1 i den store ASPbog ;)

Lave en side som denne:
<%
Public Function stripHTML(strHTML)
bla bla bla (koden ovenfor)
End function

dim str = "Her er noget <span>tekst med</span> html i"

response.write stripHTML(strHTML)

%>

Husk at rette disse linier i funktionen:
arrCleanTags = array("")
arrRemoveTags = array("span")

sorry min fejl :) Glemte stripHTML i response.write !

Men virker stadig ikke helt,

Min streng indeholder dette:  "Hej Med dig karl aage<SPAN lang=EN-GB><FONT face=verdana,arial,helvetica,sans-serif>hej dy isv"

Men får dette efter: Hej Med dig karl aage<font><f>hej dy isv</f>

og har tilfoejt font som et godkendt tag' men den sletter resten :(

Glem det... mig der snork sover :-)

Du får point... har oprettet et spm. til hvor jeg beder om nogenlunde samme hjælp smid et svar der med linke til dette spm.

du skal huske at lukke dit span: </span>