On Thu, 5 Feb 2004 20:33:46 +0100, "pepss" <olefriis@privat.dk> wrote:
>jeg skal ha lavede en Function som kan dele ord hvis de f.eks er længer ind
>30 bogstaver (ved godt at de ikke vil blive delt rigtig men det gør ikke
>noget) men jeg kan ikke rigtig komme igen...
>håber der er en der kan gi mig et lille hent om hvordan det kan laves!
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. Dine krav er så lidt
mindre, men her kommer smøren:
-------------------------------
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.
Good luck!
--
Jørn Andersen,
Brønshøj