On Mon, 5 Jan 2004 17:19:02 +0000 (UTC), Erling
<erling.ryger@bbmas.no> wrote:
>Det var dette jeg hadde tenkt, i tilegg ønsket jeg at hele ord
>ikke ble splittet, men at en da gikk tilbake å splitettet på
>første mellomrom.
Måske kan du får inspiration fra et tidligere svar, hvor spørgeren
ville dele efter 50 tegn, men ikke inde i et ord:
-------------------------------
On Fri, 7 Dec 2001 19:45:48 +0100, "Jakob Munck"
<jakob.munck@tdcadsl.dk> wrote:
Hej Jakob,
><%=Chop("Lang_streng_der_skal_deles", 50)%>
>
>Men den har det problem, at den deler den tekst der skal citeres mit inde i
>ordene. Den kode der skal bruges, skal dele tekststrengen i sidste mellemrum
>før karakter nr. 50. Så ovenstående kode skal ændres, men hvordan?
Prøv noget i retning af nedenstående.
Funktionen "DelLinie" bruger funktionen "FindSpace" til at finde
mellemrum med.
<%
Function FindSpace(streng, value)
Dim intSpace, intSPaceEval
intSpace = 0
intSpaceEval = 1
Do While (intSpaceEval > 0 And intSpaceEval < value + 1)
intSpaceEval = InStr(intSpace + 1, streng, " ", 0)
If (intSpaceEval > 0) And (intSpaceEval < value + 1) Then
intSpace = intSpaceEval
End If
Loop
FindSpace = intSpace
End Function
Function DelLinie(input, value)
Length = Len(input)
Rest = input
RestL = Length
Output = ""
If Length > value Then
Do While RestL > value
sp = FindSpace(Rest, value)
Output = Output & "> " & Left(Rest, sp - 1) & "<br>" & vbcrlf
Rest = Mid(Rest, sp + 1)
RestL = Len(Rest)
Loop
DelLinie = Output & "> " & Rest
Else
DelLinie = input
End If
End Function
Response.Write DelLinie(streng, 50)
%>
Det ser ikke specielt kønt ud, så det kan sikkert sagtens optimeres en
del ...
-------------------------------
Som jeg skrev kan det sikkert sagtens optimeres. Det er delt op i to
funktioner, hvor den ene kalder den anden.
>Takk for hjelp, det kan være at etter mye jobbing så kommer jeg i
>mål....
Good luck!
--
Jørn Andersen,
Brønshøj