find strings of 8+ characters in richtextbox and divide it into two parts according to even and odd

Question

i m working with richtextbox which contains words and sentences...... but i need to convert long words into two parts or break long words like 8 characters or more then 8 characters words into tow parts.... but if word contains 9 characters i want to make two words one of 4 characters and other into 5 characters

im doing spell checker where i use permuduction and combination method which allows me to handle onley 8 chracters long word. so i want to break long words into parts

    ix = 0
    Label6.Text = 0

    For ix = Label6.Text To RichTextBox1.TextLength
        str = Mid(RichTextBox1.Text, ix, 1)

        If str = "آ" Or str = "ا" Or str = "ب" Or str = "ٻ" Or str = "ڀ" Or str = "ت" Or str = "ٿ" Or str = "ٽ" Or str = "ٺ" Then
            tillword = tillword & str

            Label6.Text = tillword.Length
        End If
    Next

Answer 1

Welcome to Stack Overflow!

What you want to do can be considered a special case of hyphenation, even if you aren't actually splitting the words at the end of the line and/or adding the customary dashes that indicate a hyphenation. Since you're just starting out here, I've gone and done as Mary suggested in a direct comment to your question -- used String.Split() to get a list of words, and an instance of StringBuilder to rebuild the string, as shown in the code below. This console app code should get you started, though still you'll have to work out a few of the issues yourself, or traverse some of the links at the bottom to produce better output (if needed):

Module Module1
    Sub Main()
        Dim test1 As String = "The Quick Brown Fox in Missisippi Jumped over the Lazy Dog in Tallahassee, 
and told his cousin in Texarkansas, saying the word antidisestablishmentarianism while doing it."
        Dim wrds As String() = test1.Split()
        Dim wrd As String
        Dim part1 As String
        Dim part2 As String
        Dim sb As Text.StringBuilder = New System.Text.StringBuilder()
        For Each wrd In wrds
            If wrd.Length > 8 Then
                part1 = wrd.Substring(0, 8)
                part2 = wrd.Substring(8)
                sb.Append(part1)
                sb.Append(" ")
                sb.Append(part2)
                sb.Append(" ")
            Else
                sb.Append(wrd)
                sb.Append(" ")
            End If
        Next
        Dim finalAnswer As String = sb.ToString()
        Console.WriteLine(finalAnswer)
        Console.WriteLine()
        Console.ReadLine()
    End Sub
End Module

and here is the output from the above program:

The Quick Brown Fox in Missisip pi Jumped over the Lazy Dog in Tallahas see, 
and told his cousin in Texarkan sas, saying the word antidise stablishmentarianism while doing it. 

Note that I've given you what you asked for, but not necessarily what you really want -- the last part of antidisestablishmentarianism is still too long, the strings, as split, are not pleasing to read. That's why it's really not that easy, and in my opinion, there's almost an art to it. Therefore...

Following is further information and some links for your to make sure it's what you want.

First, Here is one person's Pseudocode for a recursive solution close to what you want.

Second, from another developer (Bjarke Ebert),

Donald E. Knuth did a lot of work on the line breaking algorithm in his TeX typesetting system. This is arguably one of the best algorithms for line breaking - "best" in terms of visual appearance of result.

And third, some good suggestions from JasCav here:

Obviously, Donald Knuth's algorithms are excellent. Although there is not a C# implementation available, have you considered converting another implementation to C#? (For example, you could convert the Java implementation which is fairly close to C#.)

HTH.