vbCrLf problem...

Byt rundt på dem...
Besked = Replace(Besked, "<br>", vbCrLf)

//>Rune

Eller har jeg ik' forstået dit spørgsmål.. Vil du ikke erstate <br> med vbCrLf?

//>Rune

Jeg vil gøre så når der tyrkkes på knappen "Enter, knækpil" laves der linieskrift... og det virker også fint når

Besked = Replace(Besked, ">", "&gt;")
Besked = Replace(Besked, "<", "&lt;")

ikke er der, men når de er kommer <br> bare med i teksten...

Besked = Replace(Besked, "<br>", vbCrLf) dur slet ikke...

Jamen hør nu her... Hvis du har:
Besked = Replace(Besked, ">", "&gt;")
Besked = Replace(Besked, "<", "&lt;")
oven over:
Besked = Replace(Besked, "<br>", vbCrLf)
så kan du jo ikke replace "<br>" for der findes dine < og > tegn ikke længere -de er jo blevet lavet op til &gt; og & &lt;! -hvis du derimod sætter Besked = Replace(Besked, "<br>", vbCrLf)  overover, så er der jo ikke nogen < og > tegn igen!

//>Rune

Ok, hvordan skal jeg så fikse det... ???

Det kommer an på hvordan du ønsker at bruge det! - Hvad er foremålet med det, og hvordan vil du ha' det udskrevet?

//>Rune

Tjaa... formålet er at brugere skal kunne lave linieskrift med et tryk på Enter knappen, og så skal de ikke kunne bruge html-koder... altså hvis man direkte skriver <br> skal der stå <br> men trykker man på Enter knappen skal der kommer linieskrift

Hmm, så kan du jo gøre sådan her:

arrMessage = Split(Besked," ")
For i = 0 To UBound(arrMessage)
  If InStr(arrMessage(i),"<br>") Then
      arrMessage(i) = Replace(arrMessage(i),"<br>",vbCrLf)
  Else
      arrMessage(i) = Replace(arrMessage(i), ">", "&gt;")
      arrMessage(i) = Replace(arrMessage(i) , "<", "&lt;")
Next

For i = 0 To UBound(arrMessage)
      strMessage = strMessage & arrMessage(i)
Next

Response.Write(strMessage)

-Koden er ikke testet, men den burde gerne virke...
//>Rune

Fint nok, men jeg mener altså at jeg engang lavede så den godt kunne lave linieskrift bare ved at sætte

Besked = Replace(Besked, "<br>", vbCrLf)

øverst eller sådan noget...

Nææ, det tror jeg ikke har kunne lade sig gøre, for hvis du ligger lidt logik i det, vil det ikke kunne lade sig gøre...

//>Rune

Hvorfor ikke hvis Besked = Replace(Besked, "<br>", vbCrLf)  står øverst ?

Jamen så fjerner den jo <br> og laver den om til vbCrLf!

Jeg har prøvet at lave dette lille script til dig, som du bare skal gemme som brakerow.htm så skulle det gerne fungere... -hvis altså du kører Internet Explorer (scriptet er lavet i VBScript)

<html>
<head>
    <title></title>
</head>
<body>

<script language="VBScript" type="text/vbscript">
    strMessage = "Hej med dig hvad laver du?<br> Jeg sidder her og prøver at lave et script som kan registrer Brake Row's"
        arrMessage = Split(strMessage, " ")
    For i = 0 To UBound(arrMessage)
        If InStr(arrMessage(i),"<br>") Then
            MsgBox("Brake Row var gyldig!")
        End If
    Next
</script>

</body>
</html>

//>Rune

Her kan du se hvordan den registere det (i tilfælde af at mit andet script ikke fungerede) -så kan du jo selv udvide det lidt mere...

//>Rune

Ups sorry jeg mente:
Hvorfor vil det ikke virke hvis
Besked = Replace(Besked, vbCrLf, "<br>)
står øverst ?

Hmm det skulle det oxo gøre!

//>Rune

Hmm her har du så et script som fjerner mellemrummet for dig..

<html>
<head>
    <title></title>
</head>
<body>

<script language="VBScript" type="text/vbscript">
    strMessage = "Hej med dig hvad laver du?<br> Jeg sidder her og prøver at lave et script som kan registrer Brake Row's"
        arrMessage = Split(strMessage, " ")
   
    For i = 0 To UBound(arrMessage)
        If InStr(arrMessage(i),"<br>") Then
            arrMessage(i) = Replace(arrMessage(i),"<br>",vbCrLf)
            'MsgBox(arrMessage(i))
        End If
        strConvertMessage = strConvertMessage & " " & arrMessage(i)
    Next
    strMessage = strConvertMessage
    document.write(strMessage)
</script>

</body>
</html>

//>Rune

Det gør det sq ikke :(

Ok, her har du så dit færdige script, nu kan du sq ik' forlange mere ;-)

<html>
<head>
    <title></title>
</head>
<body>

<script language="VBScript" type="text/vbscript">
    strMessage = "Hej med dig hvad laver du?<br> Jeg sidder > her og prøver at lave et script som kan registrer Brake Row's"
        arrMessage = Split(strMessage, " ")
   
    For i = 0 To UBound(arrMessage)
        If InStr(arrMessage(i),"<br>") Then
            arrMessage(i) = Replace(arrMessage(i),"<br>",vbCrLf)
        End If
       
        If InStr(arrMessage(i),">") Then
            arrMessage(i) = Replace(arrMessage(i),">","&gt;")
        End If
       
        If InStr(arrMessage(i),"<") Then
            arrMessage(i) = Replace(arrMessage(i),"<","&lt;")
        End If
        strConvertMessage = strConvertMessage & " " & arrMessage(i)
    Next
    strMessage = strConvertMessage
    document.write(strMessage)
</script>

</body>
</html>

//>Rune

Og her er det lavet i en ASP udgave:
<%
        arrMessage = Split(besked, " ")
   
    For i = 0 To UBound(arrMessage)
        If InStr(arrMessage(i),"<br>") Then
            arrMessage(i) = Replace(arrMessage(i),"<br>",vbCrLf)
        End If
       
        If InStr(arrMessage(i),">") Then
            arrMessage(i) = Replace(arrMessage(i),">","&gt;")
        End If
       
        If InStr(arrMessage(i),"<") Then
            arrMessage(i) = Replace(arrMessage(i),"<","&lt;")
        End If
        strConvertMessage = strConvertMessage & " " & arrMessage(i)
    Next
    besked = strConvertMessage
%>

//>Rune

Det var egentlig kun hvis man kunne gøre det meget enkelt jeg skulle bruge det... og da dette ikke kan lade sig gøre gider jeg slet ikke :)

Men du får naturligvis pointene for alt hvad du har gjort :)

Mange tak



Ralle

Anytime...
Men jeg syntes nu alligevel det er syndt at du ikke vil bruge scriptet... Hvis du syntes det ser besværlig ud, har jeg lavet det hele i en funktion til dig...:

    Function Converter(strMessage)
        arrMessage = Split(strMessage, " ")
   
        For i = 0 To UBound(arrMessage)
            If InStr(arrMessage(i),"<br>") Then
                arrMessage(i) = Replace(arrMessage(i),"<br>",vbCrLf)
            End If
           
            If InStr(arrMessage(i),">") Then
                arrMessage(i) = Replace(arrMessage(i),">","&gt;")
            End If
           
            If InStr(arrMessage(i),"<") Then
                arrMessage(i) = Replace(arrMessage(i),"<","&lt;")
            End If
            strConvertMessage = strConvertMessage & " " & arrMessage(i)
        Next
        Converter = strConvertMessage
    End Function

Response.Write(Converter(Besked))
//>Rune

Thx 4 Poinz

//>Rune