Convert 10 lines To Row using vb?

[sandrine10]

Hi,

I want convert the richtextbox content from 10 lines to 1 row and move to next 10 lines(1row too) and so on example:

user1
user2
user3
.
.
.
.

usern

need to write each 10 lines on 1 row like this:

Row1:user1 user2 user3 . . . . . user10
Row2:user11 user12 user13 . . . user20
.
.
etc

Any idea?

 

[Conor]

I have no idea what you're trying to do, but if you just need the format to be changed, once off, try using excel.
http://office.microsoft.com/en-za/e...olumns-to-rows-or-vice-versa-HP005203138.aspx

 

[helpinghand]

Try this

Dim cnt as Integer
cnt = 0;
dim result as String
result=""
Do Until cnt = RichTextBox1.Lines.Count - 1


result = result & RichTextBox1.Lines(cnt)


cnt = cnt +1


Loop

 

[sandrine10]

Try this

Dim cnt as Integer
cnt = 0;
dim result as String
result=""
Do Until cnt = RichTextBox1.Lines.Count - 1


result = result & RichTextBox1.Lines(cnt)


cnt = cnt +1


Loop

Fine,just how to get the10 lines per row each time?

 

[sandrine10]

I have no idea what you're trying to do, but if you just need the format to be changed, once off, try using excel.
http://office.microsoft.com/en-za/e...olumns-to-rows-or-vice-versa-HP005203138.aspx

Can't click on Paste Special!!

 

[sandrine10]

Anyone could help to solve this today?

 

[hajrobaba]

For Each line As String In RichTextBox1.Lines
Dim newString As String = line.Replace(vbCr, "").Replace(vbLf, "")
RichTextBox2.AppendText(newString)
Next

Just tested and work fine

 

[sandrine10]

Just tested and work fine

It works fine(as helpinghand code works fine too)!just need to get 10 lines in 1 row and "VbCrLf" next 10 lines .. and so on Do you know how?

 

[sandrine10]

Bump
need to get 10 lines in 1 row and "VbCrLf" next 10 lines .. and so on

It works fine(as helpinghand code works fine too)!just need to get 10 lines in 1 row and "VbCrLf" next 10 lines .. and so on Do you know how?

 

[helpinghand]

Try this


Dim cnt as Integer
cnt = 0;
dim result as String
dim array() as String
dim i as integer
result=""
i=0
Do Until cnt = RichTextBox1.Lines.Count - 1
result = result & RichTextBox1.Lines(cnt)
cnt = cnt +1


if cnt mod 10 =0 then
array(i)=result
i = i+1
result=""
End if
Loop


for j = 0 to i
msgbox(array(i))
Next

 

[sandrine10]

NullReferenceException Was Unhandled!
variable 'array' is used before it has been assigned a value.

Try this


Dim cnt as Integer
cnt = 0;
dim result as String
dim array() as String
dim i as integer
result=""
i=0
Do Until cnt = RichTextBox1.Lines.Count - 1
result = result & RichTextBox1.Lines(cnt)
cnt = cnt +1


if cnt mod 10 =0 then
array(i)=result
i = i+1
result=""
End if
Loop


for j = 0 to i
msgbox(array(i))
Next

 

[Psychop1]

Try this function:

    Private Function rowList(ByVal usNames() As String)

        Dim counter As Integer = 0
        Dim usString As String = ""

        For i = 0 To usNames.Count - 1

            If usNames(i) <> Nothing Then
                If counter = 9 Then
                    usString = usString & usNames(i) & Environment.NewLine
                    counter = 0
                Else
                    usString = usString & " " & usNames(i)
                    counter += 1
                End If
            End If
        Next

        Return usString

    End Function

Remember, when you use this function, you have to pass richtextbox.lines, not text.

 

[helpinghand]

Send me your email i will send complete project i made for this in vs 2010

 

[sandrine10]

Special thanks to helpinghandhttp://www.blackhatworld.com/blackhat-seo/members/687625-helpinghand.html for his nice help really appreciate it mate :congrats:

 

[Macthetrix]

What is the problem? Just add 10 linebreaks at the end of each loop

for(i=0; i<10; i++)
{
Environment.NewLine;
}

 

[sandrine10]

Nice works as well.

Try this function:

    Private Function rowList(ByVal usNames() As String)

        Dim counter As Integer = 0
        Dim usString As String = ""

        For i = 0 To usNames.Count - 1

            If usNames(i) <> Nothing Then
                If counter = 9 Then
                    usString = usString & usNames(i) & Environment.NewLine
                    counter = 0
                Else
                    usString = usString & " " & usNames(i)
                    counter += 1
                End If
            End If
        Next

        Return usString

    End Function

Remember, when you use this function, you have to pass richtextbox.lines, not text.

 

[DataBots]

Despite the several options posted by other users, I thought I would take a crack at this.

Nothing special, just putting out there another way to do it.

[FONT=arial]​[/FONT][FONT=tahoma]Private Function LinesToRow(Lines As String()) As String        
        Dim StrBuilder As New System.Text.StringBuilder
        Dim Count As Integer


        Do While Count < Lines.Count
            StrBuilder.Append(String.Join(" ", Lines.Skip(Count).Take(10)) & Environment.NewLine)
            Count += 10
        Loop


        Return StrBuilder.ToString.TrimEnd(Environment.NewLine.ToCharArray)
End Function[/FONT]

You would have to feed it your RichTextBox.Lines() like so:

[FONT=tahoma]MessageBox.Show(LinesToRow(RichTextBox1.Lines), "10 Lines At A Time")[/FONT]

 

[dycero]

looks like this was already solved for you, if you still need help just let me know

 

[zohar]

Split & Mid. No other programming languages offer these functions, that is why I code VB.