Imports System.IO
 
Public Class cboFillFromTXTFile
    Public Structure IndexListe
        Dim index As Integer
        Dim wert As String
    End Structure
 
    Private _oStream As StreamReader
    Private _retList As New List(Of IndexListe)
 
    Public ReadOnly Property GetList(ByVal FilePath As String) As List(Of _
      IndexListe)
        Get
            Dim rl As String, MyItem As IndexListe
            If Not File.Exists(FilePath) Then
                Return Nothing
            End If
            _oStream = New StreamReader(FilePath, System.Text.Encoding.Default)
 
            Do While Not _oStream.EndOfStream
                rl = _oStream.ReadLine
                MyItem.index = Split(rl, ";")(0)
                MyItem.wert = Split(rl, ";")(1)
 
                _retList.Add(MyItem)
            Loop
 
            _oStream.Close()
            _oStream.Dispose()
 
            Return _retList
        End Get
    End Property
 
End Class

...
        Dim GTable As New DataTable("GTable")
 
        GTable.Columns.Add("GIndex", GetType(Long))
        GTable.Columns.Add("GValue", GetType(String))
 
        Dim cbo1Filler As cboFillFromTXTFile = New cboFillFromTXTFile
        Dim DateiName As String = Application.StartupPath & _
          "\txtFiles\IndexFahrgruende.txt"
 
        '*******************************************
        '* Hier wird die obige Klasse verwendet
        '*******************************************
        For Each element As cboFillFromTXTFile.IndexListe In cbo1Filler.GetList( _
          DateiName)
            Dim nR As DataRow = GTable.NewRow
 
            nR(0) = element.index
            nR(1) = element.wert
 
            GTable.Rows.Add(nR)
        Next
...

Gruesse
Robert

Beitrag wurde zuletzt am 21.08.12 um 15:31:45 editiert.