webForumDet fria alternativet

Korta av nyhet och länka till nyhet.asp

ASP

3 svar · 523 visningar · startad av slapshot

Medlem sedan jan. 2003141 inlägg
Frågan#1

Har följande kod som visar senaste nyheten på första sidan:

<%=RecSet("rubrik")%></span><br>
                              <span class="style25"><%=RecSet("datum")%>[<%=left(RecSet("Klocka"),5)%>]</span><br>
                              <br>
                              <%=RecSet("text")%>

Jag skulle vilja ha det mer så man kan korta av till ett visst antal tecken och att man ska kunna klicka sig vidare på den kortfattade nyheten till nyhet.asp typ! Är inte någon kodare så man hitta detta scriptet på en sida men kanske finns där någon vänlig som kan och vill hjälpa mig?

Medlem sedan juni 2001272 inlägg
#2

Är det bara själva texten du vill korta ner kan du ju använda dig av Left och sen bara visa dom första 100 tecknen, och göra en länk av det?

<%=RecSet("rubrik")%></span><br>
<span class="style25"><%=RecSet("datum")%>[<%=left(RecSet("Klocka"),5)%>]</span><br>
<br>
<a href="nyhet.asp?id=<%=RecSet("id")%>"><%=Left(RecSet("text"),100"%>...</a>

Till exempel.

Medlem sedan okt. 2004159 inlägg
#3

Problemet brukar vara att man inte alltid vill trunkera efter precis 100 tecken och riskera att man hamnar mitt i ett ord.
Man får kolla om det 100:e tecknet inte är ett mellanslag och i så fall gå bakåt och kolla 99:an o.s.v. tills man stöter på mellanslaget.
Jag orkar dock inte koda just nu - skall se hur det känns i morgon bitti.

Medlem sedan okt. 2004159 inlägg
#4

Nu är jag piggare!

Detta verkar funka:

<% 
strOrg = "Detta är en sträng som är ganska lång om som vi vill bryta efter ett visst antal tecken, men bara där det är ett mellanslag"
response.write strOrg & "<br><br>"

p=textsplit(strOrg,100)
response.write left(strOrg, p ) & "<br>"
response.write right(strOrg, len(strOrg)-p ) & "<br>"

Function textsplit(byVal strIn, splitpos)

	While not mid(strIn, splitpos,1)=" "
		splitpos=splitpos-1
		strIn=left(strIn, splitpos)
	Wend
	
	textsplit = splitpos

End Function
%>
269 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)