Frågan 4 juli 2004 14:35 #1 Har sökt lite här efter en funktion för att skriva ut radnummer innan själv raden i en text:
1. <html>
2. <head>
3. </head>
4. Osv.
Hittade b.l.a den här tråden men får felmeddelande:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
Dim arrText() = split(StrText(txtPasted), chr(10))
Det som ska skrivas ut kommer från en db och det är en kolumn det rör sig om.
Tack!
S Sebbe Medlem sedan jan. 2003 2 285 inlägg Är det såhär du menar, kanske?
arrText = Split(objRS("kolumn"), vbCrLf)
For i = 0 To UBound(arrText)
Response.Write(i + 1 & ". " & arrText(i) & "<br>")
Next
En bra bit påvg, men inte riktigt.
Det beror förmodligen på att det bara är en post som ska skrivas ut.
Denna post består av ett antal rader och det är på dessa rader jag vill ha radnummer.
Det går säkert att utgå från ditt script ovan, Sebbe, men jag vet inte riktigt hur jag ska gå vidare.
Tack!
cyprys Medlem sedan dec. 2000 3 563 inlägg Koden ovan ska stämma.
Skumt, jag bifgoar bild med resultatet.
<td class="pShow">
<%
arrText = Split(Fcode(Server.HTMLEncode(txtPasted)), vbCrLf)
For i = 0 To UBound(arrText)
Response.Write(i + 1 & ". " & arrText(i) & "<br>")
Next
%>
</td>
Kan det vara så att Server.HTMLEncode() ställer till det?
cyprys Medlem sedan dec. 2000 3 563 inlägg <td class="pShow">
<%
arrText = Split(Fcode(txtPasted), chr(10))
For i = 0 To UBound(arrText)
Response.Write(i + 1 & ". " & Server.HTMLEncode(arrText(i)) & "<br>")
Next
%>
</td>
Ska prova när jag kommer hem, tack så länge!
Nu börjar jag få ordning på det här, tack!.
Jag skulle vilja ha varannan rad med olika bakgrundsfärg.
Själv koden för att bestämma färg har jag, problemet är hur jag ska kunna få annan färg på bakgrunden.
Provade att lägga allt i en tabell, där varje rad var en ny <tr>, sen satte jag färg på den.
Men du slutade istället <pre> taggen att funka helt.
Så, finns det en lösning som funkar?
cyprys Medlem sedan dec. 2000 3 563 inlägg <table>
<%
arrText = Split(Fcode(txtPasted), chr(10))
For i = 0 To UBound(arrText)
if i mod 2 = 0 then bgColor = "#FFFFFF" else bgColor = "#EEEEEE"
Response.Write("<tr bgcolor='"& bgColor &"'><td class='pShow'>" & i + 1 & ". " & Server.HTMLEncode(arrText(i)) & "</td></tr>")
Next
%>
</table>
Hmm, det var nästan sådär jag redan har gjort.
Löste det själv genom <pre style="margin: 0px;">Texten...</pre> på varje rad.
Nu har jag ett nytt problem, det här är min kod:
arrText = Split(txtPasted, chr(10))
For i = 0 To UBound(arrText)
if i mod 2 = 0 then bgColor = "#E9E9E9" else bgColor = "#F5F5F5"
Response.Write("<tr bgcolor=""" & bgColor & """>" & VbCrLf & VbTab & VbTab &_
"<td class=""fText"" style=""color: #804040;"">" & i + 1 & ".</td>" & VbCrLf &_
"<td class=""fText"" style=""padding-left: 10px; width: 100%; color: #600000;"">" & VbCrLf & VbCrLf &_
"<pre style=""margin: 0px;"">" & FCode(arrText(i)) & "</pre>" & VbCrLf & VbCrLf &_
"</td>" & VbCrLf &_
"</tr>" & VbCrLf & VbCrLf)
Next
Problemet är att ALL text, blir samma färg. Färgen som sätts för den andra td'n, den färgen blir överallt på all text.
Det är ju lite konstigt.
