Automatisk linieskift efter et bestemt antal bogstaver

mySplit = split(rs("etellerandet"),"<br />")

for i = 0 to UBound(mySplit)
  if Len(mySplit(i)) > int(50) then
      Response.write Left(mySplit(i),50) & "-<br />" & Mid(mySplit(i),50,Len(mySplit(i))) & " "
  else
      Response.write mySplit(i) & " "
  end if
next

Her er et forslag til hvordan det kan gøres... Kan selvfølgelig forbedres

/Hans

Oops...
Der er fejl i denne linje
Response.write Left(mySplit(i),50) & "-<br />" & Mid(mySplit(i),50,Len(mySplit(i))) & " "

rettes til:
Response.write Left(mySplit(i),50) & "-<br />" & Mid(mySplit(i),50,Len(mySplit(i))-50) & " "

/Hans

<%
function DelOrd(txt,antalTegn,linjeskift)

mySplit = split(txt,linjeskift)

thetxt = ""

for i = 0 to UBound(mySplit)
    if Len(mySplit(i)) > int(antalTegn) then
        thetxt = thetxt & Left(mySplit(i),antalTegn) & "-" & linjeskift
        if Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) > int(antalTegn) then
            thetxt = thetxt & DelOrd(Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn),antalTegn,linjeskift) & " "
        else
            thetxt = thetxt & Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) & " "
        end if
    else
        thetxt = thetxt & mySplit(i) & " "
    end if
next

DelOrd = Left(thetxt,Len(thetxt)-1)

end function

Response.write DelOrd("asljfbojægbåosbugadæoufbaæofbaæofbheoåithboe4ibtåaobfdoæjzbfæadjfbaoudbhaubw3uvbaæfbdafds",10,"<br />")
%>

Forbedret udgave

/Hans

Jeg prøvede lige den første du lavede, men der kom der ikke linieskift. Den næste du har lavet er jeg lidt lost. Hvor indføre jeg rs-ordet?

Fra
      function DelOrd(....

til
      end function

kan du have lige hvor du vil i din kode

Response.write DelOrd("....",10,"<br />")
er den linje du sætter den rs ind i... 10 er maxlængden på dine ord og "<br />" er den måde jeg plejer at lave linje skift, andre bruger muligvis "<br>", eller whatever.
Sådan kan din se ud:
Response.write DelOrd(rs("etellerandet"),10,"<br />")

Jeg har indført dette nu:

function DelOrd(txt,antalTegn,linjeskift)

mySplit = split(txt,linjeskift)

thetxt = ""

for i = 0 to UBound(mySplit)
    if Len(mySplit(i)) > int(antalTegn) then
        thetxt = thetxt & Left(mySplit(i),antalTegn) & "-" & linjeskift
        if Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) > int(antalTegn) then
            thetxt = thetxt & DelOrd(Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn),antalTegn,linjeskift) & " "
        else
            thetxt = thetxt & Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) & " "
        end if
    else
        thetxt = thetxt & mySplit(i) & " "
    end if
next

DelOrd = Left(thetxt,Len(thetxt)-1)

end function

Response.write DelOrd(rs("etellerandet"),10,"<br />")

- men kommer med denne fejl:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/beskrivelse.asp, line 343
function DelOrd(txt,antalTegn,linjeskift)

Kan du ikke lige prøve at poste det område hvor du skal have udskrevet rs("etellerandet"), så kan jeg sætte det ind, så du kan se...

Det ser meget rigtigt ud det du har lavet der, men har du husket at åbne databasen, og alt det der?

Jeg har åbnet databasen længere oppe i dokumentet. Viser en masse andet fra databasen på samme side.

Men set ud fra fejl meddelelsen er det jo denne linie som der er vrøvl med:
function DelOrd(txt,antalTegn,linjeskift)

Hvad mener du med at poste området?

viser noget kode...
Det kan godt være det bare er mig, men jeg kunne godt tænke mig et overblik...

Koden virker altså: http://www.hdhp.dk/test1.asp

hmm, sq mystisk. Jeg sidder godt nok og laver det lokalt på computeren, men det burde ikke have betydning. Kan du ikke prøve at vise hele den side du har lagt online? Så burde jeg da få det til at fungere med en enkelt rettelse ved rs-linien.

<%
function DelOrd(txt,antalTegn,linjeskift)

mySplit = split(txt,linjeskift)

thetxt = ""

for i = 0 to UBound(mySplit)
    if Len(mySplit(i)) > int(antalTegn) then
        thetxt = thetxt & Left(mySplit(i),antalTegn) & "-" & linjeskift
        if Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) > int(antalTegn) then
            thetxt = thetxt & DelOrd(Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn),antalTegn,linjeskift) & " "
        else
            thetxt = thetxt & Mid(mySplit(i),antalTegn+1,Len(mySplit(i))-antalTegn) & " "
        end if
    else
        thetxt = thetxt & mySplit(i) & " "
    end if
next

DelOrd = Left(thetxt,Len(thetxt)-1)

end function

Response.write DelOrd("asljfbojægbåosbugadæoufbaæofbaæofbheoåithboe4ibtåaobfdoæjzbfæadjfbaoudbhaubw3uvbaæfbdafds",10,"<br />")
Response.write "<br /><br />"
Response.write DelOrd("asljfbojægbåosbugadæoufbaæofbaæofbheoåithboe4ibtåaobfdoæjzbfæadjfbaoudbhaubw3uvbaæfbdafds",20,"<br />")
Response.write "<br /><br />"
Response.write DelOrd("asljfbojægbåosbugadæoufbaæofbaæofbheoåithboe4ibtåaobfdoæjzbfæadjfbaoudbhaubw3uvbaæfbdafds",30,"<br />")
Response.write "<br /><br />"
Response.write DelOrd("asljfbojægbåosbugadæoufbaæofbaæofbheoåithboe4ibtåaobfdoæjzbfæadjfbaoudbhaubw3uvbaæfbdafds",40,"<br />")
%>

Her er koden

Jeg forstår det ikke helt. Jeg virker ikke, selvom jeg kopiere hele koden direkte over uden redigering. Den kommer med samme fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/filmbeskrivelse.asp, line 332
function DelOrd(txt,antalTegn,linjeskift)

Når jeg fjerner hele koden, virker alt fint, så database åbning/lukning er fin nok. Nogle idéer?

- har endda også prøvet den online...

må jeg ikke prøve at se koden? - hvis du ikke vil skrive koden her, så send den til min mail - hans.dam@gmail.com

Har sendt til din email nu.