Database udtræk med Jave Script

Når du nu skriver JaveScript, er det sår fordi du bruger JScript i ASP i stedet for VBScript??

Nej, jeg benytter VB :)

Jeg skriver JavaScript fordi jeg gør udfra det er nødvendigt, hvis det skal ske uden at reloade siden hver gang brugeren går over ordet :)

Vi kan jo starte med at ændre farven:

replace(rs1("tekst"),rs2("ord"),"<span style=""color:red"">"& rs2("ord") &"</span>")

... Og med popup forklaring:

replace(rs1("tekst"),rs2("ord"),"<span title=""En forklaring kommer her..."" style=""color:red"">"& rs2("ord") &"</span>")

... Jeg har vist misforstået noget. Der kan være være flere resultater i rs2 ikke. Sådan at den f.eks skal tjekke for "bil", "cykel" osv??

Så skal der nemlig nok laves en funktion til det...

funktion Myreplace(funkText)
dim returVal
  returVal = funkText
  on error resume next
  rs2.MoveFirst
  while not rs2.eof
    returVal = replace(returVal ,rs2("ord"),"<span title="""& rs2("betydning") &""" style=""color:red"">"& rs2("ord") &"</span>")
    rs2.MoveNext
  loop
  on error goto 0
end funktion

Hmmm virker ikke - det ser sådan ud i min kode

<%
SET rs2  = server.CreateObject("ADODB.RecordSet")
rs2.open "SELECT * FROM ordbog",conn_s,1,3


tekst = replace(RS_opret("tekst"),vbCrLf,"<br>")

  returVal = tekst
  do while not rs2.eof
    returVal = returVal & replace(returVal ,rs2("ord"),"<span title="""& rs2("forklaring") &""" style=""color:red"">"& rs2("ord") &"</span>")
    rs2.MoveNext
  loop


    response.write returVal %>

Du skal lave funktionen Myreplace(), så kalder du bare den når du skal udskrive. Der var foresten en fejl i min funktion. Dette burde virke:

funktion Myreplace(funkText)
dim returVal
  returVal = funkText
  on error resume next
  rs2.MoveFirst
  while not rs2.eof
    returVal = replace(returVal ,rs2("ord"),"<span title="""& rs2("betydning") &""" style=""color:red"">"& rs2("ord") &"</span>")
    rs2.MoveNext
  loop
  on error goto 0
  Myreplace = returVal
end funktion

SET RS_opret = server.CreateObject("ADODB.RecordSet")
RS_opret.open "En eller anden SQL sætning",conn_s,1,3
SET rs2  = server.CreateObject("ADODB.RecordSet")
rs2.open "SELECT * FROM ordbog",conn_s,1,3

do while not RS_opret.eof
  'evt noget andet udskrift også...
  response.write Myreplace(RS_opret("tekst"))
  RS_opret.MoveNext
loop

Super lig et svar :)

.o) <-- One Eyed Jack

uh, har lige opdaget et mindre problem ved at bruge titel...

Skal have nogle html tags ind i skidtet i ny og næ :( - fekst br eller a href tags..

Så skal du til at lave noget layer/div i stedet. Dette er kun et forsøg:

returVal = replace(returVal ,rs2("ord"),"<span onMouseOver=""showHide('pop"& rs2("ord") &"');"" onMouseOut=""ShowHide('pop"& rs2("ord") &"');"" style=""color:red""><div id=""pop"& rs2("ord") &""" style=""display:none;"">"& rs2("betydning") &"</div>"& rs2("ord") &"</span>")


<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
function showHide(funkPop)
{
  if(document.getElementById(funkPop).style.display=='none')
    document.getElementById(funkPop).style.display='block';
  else
    document.getElementById(funkPop).style.display='none';
}
//-->
</SCRIPT>

Klasse - en sidste lille detalje.

Jeg har et opslag der hedder "NGE" - det betyder at hvis der bliver skriver "Mange" er de tre sidste opslag taget med, løsningen skal kun bruges hvis det er et ord, og ikek en del af et ord.

Ja den er sværre at klare. Der er jo flere måder det ord kan forkomme i teksten.

"Her skal der tjekkes for space før og komma efter NGE, som mange..."
"Her skal der tjekkes for space før og pinktum efter NGE. Mange kan..."
"NGE står her først, og sidst NGE"
"eller i parentes (NGE)"
"Hvad betyder NGE?"
...
...

Der er mange muligheder, så der skal vi vist bruge noget reg exp i stedet. Det er jeg dog først lige begyndt at bruge, så det skal jeg bruge lidt tid til at løse...

Hvis det kun havde været <br> du skulle have i din title kunne du havde lavet en repace på den med &#10;

Replace(rs2("betydning"), "<br>", "&#10;")

Så er der en ny funktion:

function Myreplace(funkText)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  on error resume next
  rs2.MoveFirst
  do while not rs2.eof
    Rx.Pattern = "([\(\s]*)("& rs2("ord") &")([\)!,.\s]*)"
    strInput = Rx.Replace(returVal, "<span onMouseOver=""showHide('pop$2');"" onMouseOut=""showHide('pop$2');"" style=""color:red""><div id=""pop$2"" style=""border:1px solid black;background-color:white;position:absolute;display:none;"">"& rs2("betydning") &"</div>$2</span>"
    rs2.MoveNext
  loop
  on error goto 0
  Myreplace = returVal
end function

.... Den virker ikke :(

Denne virker måske:

function Myreplace(funkText)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  on error resume next
  rs2.MoveFirst
  do while not rs2.eof
    Rx.Pattern = "([(\s])("& rs2("ord") &")([)?!,.\s])"
    strInput = Rx.Replace(returVal, "$1<span onMouseOver=""showHide('pop$2');"" onMouseOut=""showHide('pop$2');"" style=""color:red""><div id=""pop$2"" style=""border:1px solid black;background-color:white;position:absolute;display:none;"">"& rs2("betydning") &"</div>$2</span>$3")
    rs2.MoveNext
  loop
  on error goto 0
  Myreplace = returVal
end function

Desværer men jeg kan godt se ideen i det... prøver at rode lidt med det.

Okay det virker ikke, det er som om den ikke tager ordene med, der sker intet med dem :)

kan du ikke smide hele din kode her ind.

Beklager mit fravær - uenighed med min udbyder om hvad stabilt net er :)

Det her virker:

SET rs21  = server.CreateObject("ADODB.RecordSet")
rs21.open "SELECT * FROM ordbog",conn_s,1,3


tekst1 = replace(RS_opret1("tekst"),vbCrLf,"<br>")

  returVal_1 = tekst1
  do while not rs21.eof
    returVal_1 = replace(returVal_1 ,rs21("ord"), "<span style=""color:#FF0000;"" onMouseOver=""popup('" & rs21("forklaring") & "')""; onMouseOut=""kill()"">" & rs21("ord") & "</span>")
    rs21.MoveNext
  loop


    response.write returVal_1

%>

Bortset fra at den ikke kan skille ord af "bil" kommer altså med selv om der står blåbil.

Ok, Du kalder recordset'et noget forskelligt hver gang. Så prøv denne:

function Myreplace(funkText, FunkORS)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  on error resume next
  FunkORS.MoveFirst
  do while not FunkORS.eof
    Rx.Pattern = "([(\s])("& FunkORS("ord") &")([)?!,.\s])"
    strInput = Rx.Replace(returVal, "$1<span onMouseOver=""showHide('pop$2');"" onMouseOut=""showHide('pop$2');"" style=""color:red""><div id=""pop$2"" style=""border:1px solid black;background-color:white;position:absolute;display:none;"">"& FunkORS("betydning") &"</div>$2</span>$3")
    FunkORS.MoveNext
  loop
  on error goto 0
  Myreplace = returVal
end function

SET rs21  = server.CreateObject("ADODB.RecordSet")
rs21.open "SELECT * FROM ordbog",conn_s,1,3

  tekst1 = replace(RS_opret1("tekst"),vbCrLf,"<br>")

  returVal_1 = tekst1
  returVal_1 = Myreplace(returVal_1, rs21)
  response.write returVal_1

Microsoft VBScript compilation error '800a03ea'

Syntax error

/tagwall.asp, line 142

function Myreplace(funkText, FunkORS)

Har du placeret funktionen øverst i din kode?? Den må vist ikke stå i et loop.

Skummelt:

Wrong number of arguments or invalid property assignment: 'Myreplace'

/tagwall.asp, line 162

161:  returVal_1 = tekst1
162:  returVal_1 = Myreplace(returVal_1, rs21)
163:  response.write returVal_1

Har du fjernet den første funktion, så der ikke ligger 2...

Jep, all gone... ligger i toppen (næsten) . men uden for looopet

Jeg kan ikke se hvorfor det ikke virker. så det må jeg vist lige teste lidt på....

Skod fejl.....
"strInput" skulle lige udskiftes med "returVal". Også kan vi vist også godt fjerne fejlhåndteringen, så vi kan se hvis der opstår flere fejl :o)

function Myreplace(funkText, FunkORS)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
'  on error resume next
  FunkORS.MoveFirst
  do while not FunkORS.eof
    Rx.Pattern = "([(\s])("& FunkORS("ord") &")([)?!,.\s])"
    returVal = Rx.Replace(returVal, "$1<span onMouseOver=""showHide('pop$2');"" onMouseOut=""showHide('pop$2');"" style=""color:red""><div id=""pop$2"" style=""border:1px solid black;background-color:white;position:absolute;display:none;"">"& FunkORS("betydning") &"</div>$2</span>$3")
    FunkORS.MoveNext
  loop
'  on error goto 0
  Myreplace = returVal
end function