Er der nogen der har en script der kan tælle linier i et textarea. Jeg
har fundet et, men det virker ikke perfekt hvis linieskiftet er
foretaget med "wordwrap"..
Nogen ideer?
<html>
<head>
</head>
<script language="vbscript">
maxlen=20 'number of characters per line
maxlines=4 'number of lines
sub DoLineCount()
document.form1.textfield2.value=countlines(document.form1.textfield.valu
e)
if countlines(document.form1.textfield.value) > maxlines then
msgbox("You can only insert " & maxlines & " lines in this field." &
vbcrlf & "Please delete some characters.")
document.form1.textfield2.value=trim(countlines(document.form1.textfield
.value))
end if
end sub
function CountLines(str)
str=Replace(str,Chr(10)," ")
Dim TextArray
TextArray=Split(str,Chr(13),-1)
for a=0 to ubound(TextArray)
CountLines=CountLines + calclines(TextArray(a))
next
End function
function calclines(str)
if len(str)=0 then
calclines=1
else
calclines=1+int((len(str)-1)/maxlen)
end if
end function
</script>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="">
<textarea name="textfield" cols="20" rows="5"
onKeyDown="DoLineCount()"></textarea>
<input type="text" name="textfield2" size="3">
lines used
</form>
</body>
</html>
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"