Avatar billede vester Novice
11. september 2001 - 09:25 Der er 4 kommentarer og
1 løsning

Hvad er der galt her?

<td bgcolor=\"#FFFFFF\"><div class=\"Black\">
<%
strFelt = rs(\"tip\")
iBreak = 80
myArray = Split(strFelt, \" \")
For i=Lbound(myArray) to Ubound(myArray)
\'byg linie
strLinie = strLinie + myArray(i) + \" \"
If i+1 > UBound(myArray) then
response.write myArray(i)
Exit For
End If
If Len(strLinie+myArray(i+1) + \" \") >= iBreak Then
Do
strFelt = Mid(strLinie, iBreak+1)
response.write Left(strLinie, iBreak) & \"<br>\"
strLinie = \"\"
Loop While Not Len(strLinie) < iBreak
End If
next
%><br><br></div></td>



Den \"glemmer\" en masse tekst midt i udskriften.
Avatar billede kichian Nybegynder
11. september 2001 - 10:48 #1
Du mangler et ELSE i forbindelse med: If Len(strLinie+myArray(i+1) + \" \") >= iBreak Then

Dvs at der ikke bliver skrevet noget uf hvis tekststumpen er mindre end iBreak
Avatar billede vester Novice
11. september 2001 - 10:53 #2
Vil du lave linien?.
Er det kun på min skærm at, Eksperten ser mystisk ud?
Avatar billede kichian Nybegynder
11. september 2001 - 11:44 #3
for i=Lbound(myArray) to Ubound(myArray)
    if i = Ubound(myArray) Then
        exit for
    end if
    if i = 0 Then
        strLine = myArray(i)
    end if
   
    nyItem = \" \" + myArray(i+1)
    if len(strLine & nyItem) >= iBreak Then
        Response.Write strLine & \"<br>\"
        strLine = myArray(i+1)
    else
        strLine = strLine & nyItem
    end if
    if i = Ubound(myArray) - 1 Then
        Response.Write strLine
    end if
Next
Avatar billede kichian Nybegynder
11. september 2001 - 11:53 #4
Ups. Jeg mangler at tage højde for at LBound = Ubound.

for i=Lbound(myArray) to Ubound(myArray)

    if i = 0 Then
        strLine = myArray(i)
    end if

    if i = Ubound(myArray) Then
        Response.Write strLine
        exit for
    end if
   
    nyItem = \" \" + myArray(i+1)
    if len(strLine & nyItem) >= iBreak Then
        Response.Write strLine & \"<br>\"
        strLine = myArray(i+1)
    else
        strLine = strLine & nyItem
    end if
Next
Avatar billede vester Novice
11. september 2001 - 13:08 #5
Tak skal du have.
Hvis du har lyst og mulighed må du meget gerne kigge på dette spm:
http://www.eksperten.dk/spm/106814
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester