"Best fit" problem: Split one array (or list) of strings into 2 arrays (lists)

[.paul.]

Try this...

Dim l As New List(Of String)(New String() {"* This is a short one.", _
                                                    "* Another short one.", _
                                                    "* Still another.", _
                                                    "* Yet another.", _
                                                    "* This is a very long one", _
                                                    "spanning a whopping", _
                                                    "three lines.", _
                                                    "* Back to a short one.", _
                                                    "* And another short one.", _
                                                    "* Last one here."})
Dim count As Integer = l.Where(Function(sentence) sentence.StartsWith("*")).Count
Dim firstList As List(Of String) = l.Take(count \ 2).ToList
Dim secondList As List(Of String) = l.Skip(count \ 2).ToList