Hej!
Jag har en gästbok där jag vill att strängen ska kapas efter 30 tecken eller efter närmaste hela ord.
Koden nedanför gör detta! Men jag vill att resten av strängen ska skrivas ut under.
använder jag mig utav right functionen så blir det det bara bra om den avklippta strängen är precis 30 tecken.
<%
function korta(myString,myLenght)
If not Len(myString) >= myLenght Then
Response.write myString
else
antal = myLenght
keyWords = split(myString," ")
longString = 0
For Each Word in keyWords
longWord = Len(word)
longString = cint(longString + longWord)
if longString >= antal then
Response.Write Word & "..."
Exit For
else
Response.Write Word & " "
end if
Next
End if
End function
%>
<%
med = Recset("med")
Response.write korta(med,30)
%>
Hej!
Oki...fixat det där med att inte ha response.write i functionen...
Men såhär ska det vara:
Man skriver ett meddelande, då ska dem första tex 20 tecknen bli rubrik, <h1> Då vill jag att den ska kapa efter 20 tecken eller närmaste hela ord. Sen vill jag att resten av texten ska skrivas ut i en <p> tagg.
sub korta(myString,myLenght)
dim s,k,i,r
k = split(myString," ")
s = ""
r = false
For each w in k
if len(s) >= myLength and not r then
response.write "<h1>" & s & "</h1>"
s = ""
r = true
end if
if len(s) > 0 then s = s & " "
s = s & w
Next
if len(s) > 0 then response.write "<p>" & s & "</p>"
End sub
sub korta(myString,myLenght)
dim s,k,r,w
k = split(myString," ")
s = ""
r = false
For each w in k
if len(s) >= myLenght and not r then
response.write "<h1>" & s & "</h1>"
s = ""
r = true
end if
if len(s) > 0 then s = s & " "
s = s & w
Next
if len(s) > 0 then response.write "<p>" & s & "</p>"
End sub
<%
med = Recset("med")
response.write korta(med,30)
%>
Felmeddelande:
Type mismatch: 'korta'
Och det pekar på koden med med repsone.write kort(med,30)
sub korta(myString,myLength)
dim s,k,r,w
k = split(myString," ")
s = ""
r = false
For each w in k
if len(s) >= myLength and not r then
response.write "<h1>" & s & "</h1>"
s = ""
r = true
end if
if len(s) > 0 then s = s & " "
s = s & w
Next
if len(s) > 0 then response.write "<p>" & s & "</p>"
End sub
<%
call korta( Recset( "med" ), 30 )
%>
red.
Jag skyller på att jag fick telefon under tiden. :OO
Engine^: Du missade både 1:an och 3:an.
Sen så skulle jag rekommendera riktiga tabbar. Har man en vettig edtior så kan man där bestämma hur många tecken en tab ska motsvara. :)
Engine^: Du missade både 1:an och 3:an.
Sen så skulle jag rekommendera riktiga tabbar. Har man en vettig edtior så kan man där bestämma hur många tecken en tab ska motsvara. :)
Aningen förvirrad idag igen. Redigerade till det.
Somliga ställer in sin editor att använda tab-tecken för indentering istället för mellanslag.
