splite en string op til fast længe

C# eller VB.NET?

vb.net

det er nemt at dele op, men er der nogle regler for hvor der må deles ?

skal bare være hvis en bruger taster dette ind
tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

altså hvis et ord er sindsygt langt.

Et muligt bud:

Dim Str As String = "qwertyuiopåasdfghjklæøzxcvbnm"

Dim MaxLength As Integer = 30
While (Str.Length > MaxLength)
    Dim Fragment As String = Str.Substring(0, MaxLength)
    Console.WriteLine(Fragment & "-")
    Str = Str.Substring(MaxLength)
WEnd
Console.WriteLine(Str)

et amdet bud:

    Public Shared Function SpecialSplit(s As String, w As Integer) As String()
        Dim res As ArrayList = New ArrayList()
        Dim ix As Integer = 0
        While ix < s.Length
            Dim n As Integer = s.Length - ix
            If n <= w Then
                res.Add(s.Substring(ix))
            Else
                n = w - 1
                res.Add(s.Substring(ix, n) & "-")
            End If
            ix = ix + n
        End While
        return res.ToArray(Type.GetType("System.String"))
    End Function

tak brugte arnes :-)

et svar fra mig

og jeg formoder da at nielles også virkede

en gang mere

Så smider jeg da et svar, og så kan celinder jo selv bestemme om det skal afvises. :^)