En av mina kompisar skrev ett inlägg i min gästbok (som skrivs ut i en tabell)... det bestod av ett LÅNGT ord, många fler tecken än vad som fick plats på skärmen. Detta orsakade röra!
Finns det någon bra funktion i HTML eller ASP för att fixa radbrytningar i sådana meddelanden?

//Peter

Du måste själv sätta vilka gränser du skall ha (tex 25 tecken)

Sedan får du kolla varje ord, och om ordet är mer än 25, splitta det med MID, och lägga in en <br> efter vart 25 tecken

Ursäkta min okunnighet... men hur ser koden för sånt ut?

Jag får inte det där med "mid" att fungera...
Såhär har jag skrivit:

Response.Write(Mid("hej", 0, 1))

Men får felet: Ogiltigt proceduranrop eller argument.: 'Mid'

Annars tror jag att jag är på väg att lyckas (jag vet inte om det funkar eftersom inte mid funkar):

Dim lang
Dim checkcount
Dim brplace
checkcount = 0
brplace = 0
lang = 0
Do until lang=len(VWdb("meddelande"))
If mid(VWdb("meddelande"), checkcount, 1) = " " Then
checkcount = checkcount + 1
lang = 0
Else
checkcount = checkcount + 1
lang = lang + 1
If lang = 35 Then
response.Write(mid("meddelande", brplace, 35) & "-<br>")
brplace = brplace + 35
End If
End If
Loop

Hjälper det att dölja det som är utanför layouten?
<code>
ClassFörText
{
Overflow: scroll
}
</code>

Det är kanske en lösning på problemet... men jag får inte det till att funka.

Saknar fortfarande förklaring till mid-koden!

Problemet är fortfarande inte löst! Är det ingen som har samma problem och löst det?

Anlednignen till att du får felmeddelandet "Invalid procedure call or argument: 'Mid'" är att Funktionen Mid() startar på position 1, alltså ändra startposition.

<code>
Response.Write(Mid("hej", 1, 1)) 'Returns "h".
</code>

/A

Jag har löst det själv... (tack vara att jag fick reda på hur "mid" fungerade.)
Här är koden:

<code>
Function radbryt(text, maxlength) 'Funktionen programmerad av Peter Nilsson
dim ord
dim lastmade
dim checkcount
ord = ""
lastmade = false
checkcount = 0
Do until checkcount=len(text)
checkcount = checkcount + 1
If mid(text, checkcount, 1) = " " Then
ord = ord + " "
radbryt = radbryt + ord
ord = ""
lastmade = false
Else
ord = ord + server.HTMLEncode(mid(text, checkcount, 1))
If len(ord) = maxlength Then
radbryt = radbryt + ord& "-<br>"
ord = ""
lastmade = true
End If
End If

Loop
If lastmade = true Then
If len(ord) > 1 Then
ord = left(ord, len(ord) - 1)
End If
End If
radbryt = radbryt + ord
ord = ""
End Function

</code>