2 svar · 250 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.
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,
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