9 svar · 305 visningar · startad av Melea
Hejsan!
Finns det någon funktion som gör att man kan räkna antalet rader i en text?
Jobbar på ett "Posta kod" script som jag måste få fram
Rad | Kod
1. <%=hej%>
2. <%=tjo%>
etc
så jag måste räkna rader i koden för att veta hur jag ska skriva ut 1., 2. etc.
Hur gör jag detta?
MVH
Ligger det hela i en databas eller öppnar du en sida med FSO?
Vad kommer texten i för format?
Om det är en textfil kan du ju alltid använda dig utav readline() och gå igenom hela filen.
Om det är en sträng så kan du splitta strängen vid varje radbryte som kännetecknas bl.a. som chr(10)...
Dim arrText() = split(StrText, chr(10))
...och loopa igenom arrayen rad för rad.
for i = lbound(arrText) to ubound(arrText)
response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10))
next
R: Denna metod fungerar självklart även för att plocka ut ur databasen
Glömde kanske skriva det ;) Texten ligger hur som helst i en databas
cyprys skrev:
Vad kommer texten i för format?
Om det är en textfil kan du ju alltid använda dig utav readline() och gå igenom hela filen.Om det är en sträng så kan du splitta strängen vid varje radbryte som kännetecknas bl.a. som chr(10)...
Dim arrText() = split(StrText, chr(10))...och loopa igenom arrayen rad för rad.
for i = lbound(arrText) to ubound(arrText) response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10)) nextR: Denna metod fungerar självklart även för att plocka ut ur databasen
Menar du såhär?
<%Dim arrText() = split(StrText(RecSet("kod")), chr(10))%>
<%for i = lbound(arrText) to ubound(arrText)
response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10))
next%>
MVH
precis!
Funkar väl? :)
Nej =(
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/postakod/read.asp, line 35, column 14
Dim arrText() = split(StrText(RecSet("kod")), chr(10))
-------------^
Dim arrText = split(StrText(RecSet("kod")), chr(10))
:stud ?
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/postakod/read.asp, line 35, column 12
Dim arrText = split(StrText(RecSet("kod")), chr(10))
-----------^
:l
<%
Dim arrText
arrText() = split(StrText(RecSet("kod")), chr(10))
for i = lbound(arrText) to ubound(arrText)
response.write " "&(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br/>" & chr(10)) "
next
%>
kanske?