2 svar · 233 visningar · startad av nakoz
vad ska jag ändra här för att den ska kapa efter närmsta ord då den räknat upp 200 tecken?
som de e nu så kan den kapa detta:
Jag heter Valdemar
till:
Jag heter Val...
hoppas ni förstår mitt problem.
Dim slump1
slump1 = tmp("kBeskrivning")
If Len(slump1) > 200 Then
slump1 = Left(slump1, 200)
Response.Write slump1 &"..."
Response.Write "<br><br><br><a href='hej.asp?id="& tmp("kID") &"'>"
Response.Write "<img src='bilder/las_mer.gif' border='0' align='right'></a>"
Else
Response.Write slump1
End If
mvh.
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
prova det här:
Response.Write left(slump1,200) & left(right(slump1,len(slump1)-200),instr(right(slump1,len(slump1)-200)," "))
den där plockar iofs ut ett ord extra om tecken 200 i strängen är ett mellanslag, men om du ändrar 200 till till 199 borde resultatet bli exakt det du vill ha.
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
nu får man problem om strängen är mindre än 200 tecken så det fixar man genom att
If len(slump1) < 200 Then
Response.Write""& slump1 &""
ElseIf len(slump1) > 200 Then
Response.Write""& left(slump1,200) & left(right(slump1,len(slump1)-200),instr(right(slump1,len(slump1)-200)," "))&"..."
End If
------------------
1 Man, 1 Million dead, The odds are just about even - Ash
[Redigerat av erka den 18 maj 2001]