Avatar billede mskjoldp Novice
09. januar 2006 - 23:50 Der er 10 kommentarer og
1 løsning

linjeskift med overLIB

Hey E

IIS5.0/IE/overLib/Access/

i forbindelse med udfyldelsen af et textarea, skal der kunne laves linjeskift, der efterfølgende vises ligeså.

Dette er normalt ikke et problem, men jeg indsætter rs("indhold fra textarea"), med de tilhørende linjeskift, i overLIB, hvilket medfører at overLIB ikke virker.

hvis jeg poster et textarea til db'en uden linjeskift, virker overLIB fint og resultatet vises.

De koder jeg bruger til at skabe et linjeskift er dem jeg tidligere har brugt med succes.

fra formen postes textarea og modtages:
planen = Replace((Request.Form("PlanX")), vbCrlf,"<br>")
planen gemmes fint i db'en med de tilhørende linjeskift. DOG er der i den givne celle i db'en, ikke skrevet <br>, men linjeskift er tilstede som angivet. Måske er dette min fejl? og hvordan får jeg så skrevet <br> i db'en hvor der skal være et linjeskift?

fra db'en hentes den givne celle:
indhold = rsPlan("html")
indhold = Replace(indhold, "<br>",vbCrlf)
men dette når slet ikke at blive vist da overLIB allerede fejler og slet ikke viser overLIB koden.

overLIB koden der inkluderer den givne celler:
bla bla
        if (DDSD > -1) and (SDDD >= DDSD) then
            Set rsPlan = Conn.Execute("SELECT * FROM plan WHERE opg_id='" & server.HTMLEncode(id) & "' AND dag_nr='" & server.HTMLEncode(DDSD) & "'")
            if not rsPlan.EOF then
                indhold = rsPlan("html")
                indhold = Replace(indhold, "<br>",vbCrlf)
                designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=40>" & indhold & "</textarea></td></tr>"
                designClick = designClick & "<tr><td><input type=submit value=Opdater style=width:70px;></td>"
                designClick = designClick & "<td align=right><a href=wms.asp?mode=sletplan&amp;id=" & id & "&amp;hvilken=" & DDSD & ">Slet dagsplanen!</a></td></tr>"
                hexRGB = hexRGB & "onClick=""return overlib('"&designClick&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
                hexRGB = hexRGB & "onMouseOver=""return overlib('"&indhold&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
            else
                indhold = "Laboremus pro patria"
                designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=50></textarea></td></tr>"
                designClick = designClick & "<tr><td><input type=submit value=Opdater style=width:70px;></td></tr>"
                hexRGB = hexRGB & "onClick=""return overlib('"&designClick&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
                hexRGB = hexRGB & "onMouseOver=""return overlib('"&indhold&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 170, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
            end if
        else
        end if
bla bla

nogen bud på hvordan jeg får lavet linjeskift til fx et textarea i overLIB?
Avatar billede Slettet bruger
10. januar 2006 - 00:01 #1
Avatar billede mskjoldp Novice
10. januar 2006 - 00:25 #2
måske, men jeg kan ikke finde noget om linjeskift...
Avatar billede mskjoldp Novice
10. januar 2006 - 00:30 #3
hmmm.. efter test kan jeg se at dette stykke kode ikke virker:

    planen = Server.HTMLEncode((Request.Form("PlanX")))
    plan = Replace(planen, "<br>","!")

<br> skiftes ikke ud med !

hvorfor ikke det?
Avatar billede mskjoldp Novice
10. januar 2006 - 00:35 #4
hverken til eller fra db'en virker mine replace.....

indhold = rsPlan("html")
indhold = Replace(indhold, "<br>", "")

hvad gør jeg galt?
Avatar billede mskjoldp Novice
10. januar 2006 - 00:39 #5
jeg henter db'en indholdet ind i textarea således:

designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=40>" & indhold & "</textarea></td></tr>"
Avatar billede mskjoldp Novice
10. januar 2006 - 00:50 #6
denne kode skaber fejl i overlib:
indhold = Replace(indhold, "&lt;br&gt;", vbCrlf)
hvor "&lt;br&gt; er <br>

men denne kode går fint med overlib:
indhold = Replace(indhold, "&lt;br&gt;", "-")

derfor må vbCrlf være synderen.

nogen bud på hvordan jeg løser dette?
Avatar billede mskjoldp Novice
10. januar 2006 - 01:03 #7
ok.. efter flere tests er det kun én kodelinje der fejler:

designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=40>" & indhold & "</textarea></td></tr>"

ovenstående linje kan ikke tåle: vbCrlf
vbCrlf for overLIB til at fejle...
Avatar billede mskjoldp Novice
10. januar 2006 - 01:05 #8
dette kan jo løses således:
indhold = Replace(indhold, vbCrlf, "<br>")

men så står der i textarea fx: 1<br>2<br>3<br>4
istedet for:
1
2
3
4

så hvordan får jeg linjeskift uden brug af: vbCrlf
Avatar billede mskjoldp Novice
10. januar 2006 - 01:18 #9
tjaaa.. <br> er udskiftet med: _ som så agere linjeskift, men det betyder at der i mit textarea står fx: 1_2_3_4_5
istedet for:
1
2
3
4
5

men når jeg bruger overlib i onMouse-sammenhæng, virker indhold = Replace(indhold, vbCrlf, "<br>") fint som linjeskift.

fejlen opstår kun ifm. <textarea>" & indhold & "</texarea> når vbCrlf skal agere linjeskift

nogen forslag?
Avatar billede mskjoldp Novice
10. januar 2006 - 01:27 #10
hvad kan jeg skrive istedet for "<br>" der giver et linjeskift?
designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=40>"
designClick = designClick & "1" & "<br>" & "2"
designClick = designClick & "</textarea></td></tr>"

&#10;
vbCrlf
<br>

ingen af de tre virker som linjeskifter
Avatar billede mskjoldp Novice
18. januar 2006 - 07:23 #11
lukker uden svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester