SKriva ut en del av en text

Response.Write(Left(RS("text"), 200) &"... read more")

jamen då kan det bryta mitt i ett ord, och det vill jag inte...

? Kan du prøve at forklare det på engelsk? :)

//>Rune

Function CutText(strTxt, intLength, intID)
  CutText = "<a href=""ViewArtikle.asp?ArtikleID=" & intID & """>" & Left(strText, intLength) & "..." & "</a>"
End Function

Response.Write(CutText objRs("tekst"), 100, objRs("TekstID"))

//>Rune

kan du utveckla lite... mitt textfält heter rs("text") och idnumret är rs("nID")...

får bara den att skriva ut "..."

Function CutText(strTxt, intLength, intID)
  CutText = "<a href=""ViewArtikle.asp?ArtikleID=" & intID & """>" & Left(strText, intLength) & "..." & "</a>"
End Function

Response.Write(CutText objRs("text"), 100, objRs("nID"))

Så gør du bare som overstående.

Prøv at lad mig se hele din kode.

//>Rune

<%Set rs = db.Execute("SELECT * FROM nyheter AS news WHERE nID IN (SELECT Max(nID) FROM nyheter)")
Function CutText(strTxt, intLength, intID)
  CutText = "<a href=""ViewArtikle.asp?ArtikleID=" & intID & """>" & Left(strText, intLength) & "..." & "</a>"
End Function

%>
<table width="451" border="0" cellpadding="0" cellspacing="0"><tr>
<td colspan="5">
<% Do While Not rs.EOF
response.write "<span class=""rubrik"">" & rs("rubrik") & "</span>"
response.write "<span class=""text"">" & CutText(rs("text"), 100, rs("nID")) & "</span>"
rs.MoveNext
    Loop%>
</td>

<%Set rs = db.Execute("SELECT * FROM nyheter AS news WHERE nID IN (SELECT Max(nID) FROM nyheter)")
Function CutText(strTxt, intLength)
  CutText = Left(strText, intLength) & "..."
End Function

%>
<table width="451" border="0" cellpadding="0" cellspacing="0"><tr>
<td colspan="5">
<% Do While Not rs.EOF
response.write "<span class=""rubrik"">" & rs("rubrik") & "</span>"
response.write "<span class=""text"">" & CutText(rs("text"), 100) & "</span>"
rs.MoveNext
    Loop%>
</td>

//>Rune

Du kan oxo gøre sådan her:

<%Set rs = db.Execute("SELECT * FROM nyheter AS news WHERE nID IN (SELECT Max(nID) FROM nyheter)")
%>
<table width="451" border="0" cellpadding="0" cellspacing="0"><tr>
<td colspan="5">
<% Do While Not rs.EOF
response.write "<span class=""rubrik"">" & rs("rubrik") & "</span>"
response.write "<span class=""text"">" & Left(rs("text"), 100) & "</span>"
rs.MoveNext
    Loop%>
</td>

//>Rune

nope... funkade inte...

in english now... on the otherhand this function also cuts after a specified number of digits. it doesn't cut after a complete word in the text. thats what i want it to do. i don't want the function to split the last word...

not like this: word word word wo...
like this: word word word word...

should have written this post in english from the start... thought danes understood swedish... ;)

Jo lidt forstår vi da ;)

Jeg har brugt denne funktion til formålet som hedder CutString. Man giver den en streng og et antal karakter som som skal vise og er det midt i et ord finder den første mellemrum før det ord og der klippes der:


<%
Function CutString (str, intCut)
if len(str) > intCut then
  posstart = InStrRev(str, " ", intCut)
  if (posstart <> 0) then
    CutString = Left(str, posstart) & "..."
    Exit Function
  end if
end if
CutString = str
End function
%>


og et eksempel:

str = "word word word word word word"
Response.Write CutString (str, 17)

Så udskriver den:  word word word...