Replace eller noget i den stil ?

Lige en lille utestet fætter...

<%
MyString = "<kode>Dette er en test</kode>"
MyString = Replace(MyString,"<kode>","<div style='background-color: Blue;'>" & vbCrlf)
MyString = Replace(MyString,"</kode>","</div>" & vbCrlf)

Response.write MyString
%>


/Anders

MyString skal self. være = dit felt...

-Anders

Hej Anders

Det virker tildels den vil godt indsætte det sidste men ikke det første har du en løsnng på det ?

Har nu testet den.... Den virker fint hos mig...

<kode>Dette er en test</kode>

bliver til

<div style='background-color: Blue;'>Dette er en test</div>

Ok jeg har en lidt længere en end din :
Function ChkString(String)
    If string = "" then
        string = " "
    Else
        ChkString = Replace(String, "'", "''")
        ChkString = Replace(String, "<Kode>","<table border=1 cellpadding=2 cellspacing=0 bordercolor=#111111 width=100% id=Kode><tr id=Kode><td width=100% bgcolor=#CCCCCC id=Kode>")
        ChkString = Replace(String, "</Kode>","</font id=Kode></td id=Kode></tr id=Kode></table id=Kode>")
    End If
End Function

Med denne får jeg fint nok indsat det sidste men den indsætter ikke det første og det virker jo lidt underligt ?

Function ChkString(String)
    If string = "" then
        string = " "
    Else
        ChkString = Replace(String, "'", "''")
        ChkString = Replace(ChkString, "<Kode>","<table border=1 cellpadding=2 cellspacing=0 bordercolor=#111111 width=100% id=Kode><tr id=Kode><td width=100% bgcolor=#CCCCCC id=Kode>")
        ChkString = Replace(ChkString, "</Kode>","</font id=Kode></td id=Kode></tr id=Kode></table id=Kode>")
    End If
End Function


Sådan....

Ellers "gemmer" du ikke dine ændringer...

-Anders

Så det virker faktisk slet slet ikke underligt... For du køre din replace på den orginale streng hver gang.....

Du skal køre den på den "opdaterede" streng...

-Anders

Ja det kan jeg se kan du oxo give mig en kort forklaring på¨hvorfor ???

ok den kom der takker for hjælpen :o)

Og det vil sige at det kun er i den første der skal stå string

ChkString = Replace(String, "'", "''")

og ChkString i de efter følgende

ChkString = Replace(String, "vbCrlf", "<br>")

Eller fik jeg forkert fat i den ?!?

Ups

ChkString = Replace(ChkString, "vbCrlf", "<br>")

Korrekt ;o)