[vb.net] Datei2Arraylist - File2Arraylist

Gepostet am: Apr 13, 2011 12:50:0 PM

File2Arraylist

Public Sub File2Arraylist(ByVal strFile As String, ByRef myArraylist As ArrayList)         Dim lines() As String = System.IO.File.ReadAllLines(strFile)         For i As Integer = 0 To lines.GetUpperBound(0)             myArraylist.Add(lines(i))         NextEnd Sub

oder als Funktion

File2Arraylist2

Public Function File2Arraylist2(ByVal strFile As String) As ArrayList         Dim myArraylist As New ArrayList         Dim lines() As String = System.IO.File.ReadAllLines(strFile)         For i As Integer = 0 To lines.GetUpperBound(0)             myArraylist.Add(lines(i))         Next         Return myArraylist End Function

Die erste Funktion hat den Vorteil, dass man leicht mehrere Dateien hintereinander in eine Arraylist einlesen kann.