Erstat alle i tegn fra formel

Du skulle nok have oprettet den under asp så, men hvis du snakker om replace af de tegn fra f.eks. et textarea kan du gøre som følger:

<%
'Her laver vi en funktion til at erstatte et input
Function repl(txt)
  txt = Replace(txt, "'", "''")
  txt = Replace(txt, "?", "!")
  'Herunder vises en linie der beskriver hvordan du gør det
  'txt = Replace(txt, "tegn_som_skal_replaces", "det_nye_tegn_efter_ændringen")

  'Når vi har lavet replace på txt skal vi definere den til at være = repl
  txt = repl
End Function

'Her er teksten som vi vil lave en replace på
'teksten kan f.eks. også komme fra en request.form("tekst")
minTekst = "En tekst som vi vil lave replace på????"

'Herunder vil ? blive erstattet med ! når vi udskriver den fordi vi
'kører den igennem vores funktion repl, som erstatter de tegn vi har valgt
response.write repl(minTekst)
%>

Det er vel funktions-navnet, der skal sættes lig den rettede udgave:

  'Når vi har lavet replace på txt skal vi definere den til at være = repl
  repl = txt
End Function

Jeg kan også godt finde ud af at replace de 2 tegn du laver der... Men hvad med " ??

" er stattes ved:

txt = Replace(txt, """", "et_nyt_tegn")

roenving > Fik skrevet "'Når vi har lavet replace på txt skal vi definere den til at være = repl" og i stedet for repl kunne jeg godt have valgt at skrive ordet "funktions-navnet", men det blev det ikke til, det var også lidt sent på dagen ;)

Når jeg skriver:
strText = Replace(Request.Form("tekst"), "'", "''")
Og indsætter:
''
i tabellen kommer der kun:
'
ind i tabellen :-S

Hvis jeg laver følgende:

<%
tekst = "''"
strText = Replace(tekst, "'", "''")
response.write strText
%>

Udskriver den: ''''

Så tror umiddelbart at det er noget der sker når du indsætter dem i tabellen, men hvorfor laver du så ikke bare en replace på '' så de bliver til "?

Replace(tekst, "''", """")

Jamen jeg vil jo ikke have '' ind i tabellen når jeg skriver ' jeg vil bare have ' ind i tabellen når jeg skriver '...
Her har du lige noget kode:

titel = Request.Form("titel")
udgivelse = Request.Form("udgivelse")
dato = Request.Form("aar") &"-"&Request.Form("man")&"-"&Request.Form("dag")
beskrivelse = Request.Form("beskrivelse")
tyype = Request.Form("type")
strText = Replace(Request.Form("tekst"), "?", "&#63;")
strText = Replace(Request.Form("tekst"), "'", "''")
strText = Replace(Request.Form("tekst"), """","&quot;")

SQL = "Insert into publikationer (titel, udgivelse, dato, beskrivelse, tekst, type) values('" & titel & "','" & udgivelse & "','"& dato &"','" & beskrivelse & "','" & strText & "','" & tyype & "')"

<link href="RTE_configuration/default_style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="RTE_javascript_common.asp" type="text/javascript"></script>
<script language="JavaScript" src="RTE_javascript.asp?textArea=myTextarea" type="text/javascript"></script>
<script language="JavaScript">WebWizRTEtoolbar('myForm');</script>
<textarea name="tekst"  cols="83" rows="15" id="myTextarea"><% =te %></textarea>

Håber du kan finde ud af det, og finde min lille fejl...

Umiddelbart ser det ikke ud til, at der er noget galt med dit script, men om det er den java formatering du laver på dit textarea der har noget at sige ved jeg ikke helt, har du prøvet at lave dit textarea til et alm. og så opdatere databasen?

Nej det har jeg ikke lige prøvet, men jeg skal jo bruge det er javascript the min rich text editor...

kan godt være du skal bruge det, men for at kunne ændre en "fejl" i sine scripts, bliver man nødt til at finde ud af hvor den ligger ved at ændre eller lette på nogle "krav" til koden... for din "fejl" kan lige så godt i java koden, da den asp kode som du har jo ikke fejler noget.

Men hvis fejl ligger i noget som har med din javakode at gøre vil jeg skylde på at du skal lave en replace på ' i din te som du udskriver inde i dit textarea samtidig med at du gør det når du opdatere databasen.

Men det der script er jo ikke noget jeg selv har lavet, men derimod downloadet.. Kan der stadig være fejl i det?