Problem med "bryta-lång-sträng"-funktion

Detta undrar jag med.

function ShortWord($text,$length) 
{
	$text = preg_replace ("/([^\s]{".$length.",})/e", "''.wordwrap('\\1', ".$length.", ' ', 1).''", $text);
	return $text;
}

/r Ähum, va inget :birp

Peeer, du är medveten om att det här är ASP-forumet? ;)

@nders skrev:

Peeer, du är medveten om att det här är ASP-forumet? ;)

Haha, dagens miss :D
Jag höll visst på med ASP för ett år sedan. :r :OO

Sitter på jobbet nu så jag vet inte om det fungerar men nått sånt här kanske?

Function SlitIt(TxtStr, n)
    If Len(Trim(TxtStr)) <= n Then SlitIt = TxtStr: Exit Function
    Dim i, TmpStr, OffSet: TxtStr = Trim(TxtStr)

    For i = 0 To Len(TxtStr)
        If Len(TxtStr) => n Then
            If Mid(TxtStr, n, 1) = " " Then
                SlitIt = ConCat(TxtStr)
            Else
                If InStr(TxtStr, " ") = False Then
                    TxtStr = Left(TxtStr, n) & " "
                Else
                    TmpStr = Left(TxtStr, n)
                    OffSet = InStrRev(TmpStr, " ", n)
                    SlitIt = SlitIt & Left(TxtStr, Int(OffSet))
                End If
            End If
            TxtStr = Right(TxtStr, (Int(Len(TxtStr)) - n)): i = (Int(Len(TxtStr)) - n)
        Else
            SlitIt = ConCat(TxtStr)
        End If
    Next
End Function

Function ConCat(TxtStr)
    If TxtStr = "" Then Exit Function
    ConCat = ConCat & TxtStr
End Function

Eftersom att jag sett så många konstiga lösningar så gkjorde jag två smarta regexp-lösningar. La in dem i script-arkivet. Men eftersom att tråden inte visas där än så postar jag det även här.

Här kommer två sätt för hur man kan hindra långa ord som tvingar fram sidscrollen. Gör dessa för att jag sett så väldigt många konstiga lösningar.

<%
Option Explicit

Function ShorterString1(ByVal sString, ByVal lMaxLength)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "(\S{" & lMaxLength & "})"
	ShorterString1 = objRegExp.Replace(sString, "$1 ")
	Set objRegExp = Nothing
End Function

Response.Write ShorterString1("sdfsdfdssfdfvdgdgfsfggfgfgfgffgfdfgfggfdggfgfgfdgdffdfggffggfgfgfgfdfs lalalal eoeooeoe", 5) & "<br>"

Function ShorterString2(ByVal sString, ByVal lMaxLength)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "(\S{" & lMaxLength & ",})"
	ShorterString2 = objRegExp.Replace(sString, "<span style=""word-break: break-all;"">$1</span>")
	Set objRegExp = Nothing
End Function

Response.Write ShorterString2("sdfsdfdssfdfvdgdgfsfggfgfgfgffgfdfgfggfdggfgfgfdgdffdfggffggfgfgfgfdfs lalalal eoeooeoe", 5)
%>

Den första sätter in mellanslag efter X antal tecken utan mellanslag. kan bli dubbla mellanslag om ordet är lika långt som maxlängden, men det bör inte spela någon roll eftersom att det inte visas som två mellanslag på en webbsida.
Den andra sätter in en span-tagg runt det långa ordet med CSS-attributet word-break: break-all;. Detta gör att det kommer att radbrytas när det behövs, men inga mellanslag visas. Lätt snyggaste lösningen, men lite trixig om man vill kombinera den med Server.HTMLEncode...

Snyggt, Erik!

Bokmärks. :)

Mvh

Erik Juhlin skrev:

Här kommer två sätt för hur man kan hindra långa ord som tvingar fram sidscrollen. Gör dessa för att jag sett så väldigt många konstiga lösningar.

<%

Function ShorterString1(ByVal sString, ByVal lMaxLength)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.Pattern = "(\S{" & lMaxLength & "})"
	ShorterString1 = objRegExp.Replace(sString, "$1 ")
	Set objRegExp = Nothing
End Function

Response.Write ShorterString1("sdfsdfdssfdfvdgdgfsfggfgfgfgffgfdfgfggfdggfgfgfdgdffdfggffggfgfgfgfdfs lalalal eoeooeoe", 5) & "<br>"

%>

Tack Erik för en ypperlig funktion! Precis vad jag letade efter!