Detta går med:
<%
Function rader(str)
arr = Split(str,vbCrLf)
rader = (UBound(arr)+1)
End function
%>
<%=rader(request.form("test"))%>
Frågan#1
Har skrivit en funktion som räknar antal rader från en textsträng. Kan vara bra att ibland för att exempelvis räkna antal rader från en textarea.
function countLines(txt)
if txt = "" then exit function
countLines = (len(txt) - len(replace(txt, vbcrlf, "*"))) + 1
end function
Anropas såhär:
countLines(request.form("myForm"))