vb.net Code:
Option Strict On
Option Explicit On
Public Function fileToStringCol(ByRef file As String, Optional ByRef unique As Boolean = False) As System.Collections.Specialized.StringCollection
fileToStringCol = New System.Collections.Specialized.StringCollection
Dim strar() As String
strar = System.IO.File.ReadAllLines(file)
If unique Then
'strar = strar.Distinct - compile error
strar = CType(strar.Distinct, String()) ' run time error
strar = CType(System.Linq.Enumerable.Distinct(Of String)(strar), String())
End If
fileToStringCol.AddRange(strar)
'If unique Then
' 'fileToStringCol = makeUnique(fileToStringCol)
' fileToStringCol = System.Linq.Enumerable.Distinct(Of String)(fileToStringCol)
'End If
End Function