Reorder a List Of String

Hello EE,

I have a list of String in Vb.NET with some elements.

My problem is that all the strings that contains "Total" are always at the end and since I build an excel spreadsheet with that list my totals are at the end and they should be somewhere at the begening....


How could I re-order my List(Of String) so that elements that contains "Total" would need to be "Cut and paste' at let's say Index 3 ??  


lets say there is 3 string with total and the first one is at index 10 ..  well all those 9 would need to be at index 3,4 and 5 and all the other strings would need to modify their index so everything is fine in the list

is this possible.. ?
LVL 1
PhilippeRenaudAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

nepaluzCommented:
You'd utilize the following logic
        Dim xList As New List(Of String)
        Dim ds = xList.Item(9)
        xList.Remove(ds)
        xList.Insert(2, ds)

Open in new window

I hope you follow. Remove item from index 9 and insert it into index 2
PhilippeRenaudAuthor Commented:
so i would do a For loop if I have many?
PhilippeRenaudAuthor Commented:
I did this but I have logic error because It will only get the same item multiple times can you help fix it?

myCol is the list of string


                Dim i As Integer = 2
                For x As Integer = 0 To myCol.Count - 1
                    If myCol(x).Contains("Total") Then
                        Dim ds = myCol.Item(x)
                        myCol.Remove(x)
                        myCol.Insert(i, ds)
                        i += 1
                    End If
                Next
CompTIA Network+

Prepare for the CompTIA Network+ exam by learning how to troubleshoot, configure, and manage both wired and wireless networks.

nepaluzCommented:
Could you just give me the entire list that you are working with?
PhilippeRenaudAuthor Commented:
yes:


dgv_ID
dgv_Key
dgv_Description
dgv_01
dgv_02
dgv_B01
dgv_B02
dgv_Total01
dgv_Total02
dgv_TotalB01
dgv_TotalB02


I would need this result:

dgv_ID
dgv_Key
dgv_Description
dgv_Total01
dgv_Total02
dgv_TotalB01
dgv_TotalB02
dgv_01
dgv_02
dgv_B01
dgv_B02
nepaluzCommented:
Here's what Ihave
        Dim qList As New List(Of String) From {"dgv_ID", "dgv_Key", "dgv_Description", "dgv_01", "dgv_02", "dgv_B01", "dgv_B02", "dgv_Total01", "dgv_Total02", "dgv_TotalB01", "dgv_TotalB02"}
        Dim eList = From x In qList Where x.Contains("Total") Select x


        For Each x In qList
            If x.Contains("Description") Then
                Array.ForEach(eList.ToArray, Sub(q) qList.Remove(q))
                Dim xIndex = qList.IndexOf(x) + 1
                qList.InsertRange(xIndex, eList)
                Exit For
            End If
        Next

Open in new window

PhilippeRenaudAuthor Commented:
it doesnt like eList.ToArray()

maybe because eList if not declared? what should it be? IEnumarable maybe?
PhilippeRenaudAuthor Commented:
Public member 'ToArray' on type 'WhereSelectListIterator(Of String,String)' not found.
nepaluzCommented:
try
        Dim qList As New List(Of String) From {"dgv_ID", "dgv_Key", "dgv_Description", "dgv_01", "dgv_02", "dgv_B01", "dgv_B02", "dgv_Total01", "dgv_Total02", "dgv_TotalB01", "dgv_TotalB02"}
        Dim eList = (From x In qList Where x.Contains("Total") Select x).ToArray


        For Each x In qList
            If x.Contains("Description") Then
                Array.ForEach(eList, Sub(q) qList.Remove(q))
                Dim xIndex = qList.IndexOf(x) + 1
                qList.InsertRange(xIndex, eList)
                Exit For
            End If
        Next

Open in new window

I have tried to convert /evaluate the Enumerable ToArray()
PhilippeRenaudAuthor Commented:
I have now:

NullReferenceException
Object reference not set to an instance of an object.

on line

Array.ForEach(eList, Sub(q) qList.Remove(q))

when mouseOver on eList on that line, I see that eList if filled with the total strings
maybe the error if the Sub(q) remove?
nepaluzCommented:
I have re-jiged your code to:
        Dim ResList As New List(Of String)
        Dim qList As New List(Of String) From {"dgv_ID", "dgv_Key", "dgv_Description", "dgv_01", "dgv_02", "dgv_B01", "dgv_B02", "dgv_Total01", "dgv_Total02", "dgv_TotalB01", "dgv_TotalB02"}
        Dim eList = (From x In qList Where x.Contains("Total") Select x).ToArray
        For Each s In eList
            qList.Remove(s)
        Next
        For Each x In qList
            If x.Contains("Description") Then
                ResList.Add(x)
                Array.ForEach(eList, Sub(q) ResList.Add(q))
            Else
                ResList.Add(x)
            End If
        Next

Open in new window

And I get
res

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
PhilippeRenaudAuthor Commented:
what are your imports?
nepaluzCommented:
Imports System.Data.Linq
may be the one you are looking for ....what framework are you working with?
PhilippeRenaudAuthor Commented:
mmm should be 4

i manage to get it to work by           creating a new lsit of string and your eList i did at the end .ToList()

then myNewList = eList


and in your Array.ForEach   I typed:   myNewList.ToArray()

like this I have the same result as you otherwise it was the same error....very strange..
nepaluzCommented:
Did you get it to work though? I changed the Lists to Array because of the errors you were getting earlier. now that you have fixed the Linq issue with the imports, you can work with list entirely, and you should be able to get the results without issue.
PhilippeRenaudAuthor Commented:
i couldnt resolve even with the import. maybe like you said its the framework.

but its working with what I modified like I told you

thanks for the help Nepaluz
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.