Hallo Leute,
ich sitze mal wieder an ein kleines Programm und wieder hab ich mal ein denkfehler
Das Programm soll aus einer csv datei eine zeile einlesen und diese in vier teile aufteilen
und ensprechend Genre(4) in haubt oder Unterverzeichiss in "Treeview" antzeigen.
Aber es wird gar nichts angezeigt
Danke schonmal für eure hilfe im vorraus
ich sitze mal wieder an ein kleines Programm und wieder hab ich mal ein denkfehler
Das Programm soll aus einer csv datei eine zeile einlesen und diese in vier teile aufteilen
und ensprechend Genre(4) in haubt oder Unterverzeichiss in "Treeview" antzeigen.
Aber es wird gar nichts angezeigt
VB.NET-Quellcode
- Option Explicit On
- Option Strict On
- Imports System.IO
- Public Class Form1
- Dim fs As FileStream
- Dim sr As StreamReader
- Dim Zeile As String
- Dim Datei As String = "c:\TV\Test.csv"
- Dim länge As Integer
- Dim Zähler As Integer
- Dim Zeichen As String
- Dim cnt As Integer
- Dim Genre(4) As String
- Dim pos1 As Integer
- Dim std As String
- Dim DOM As String
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- fs = New FileStream(Datei, FileMode.Open)
- sr = New StreamReader(fs)
- Do Until sr.Peek() = -1
- Zeile = sr.ReadLine
- länge = Len(Zeile)
- cnt = 1
- pos1 = 1
- For Zähler = 1 To länge
- Zeichen = Mid(Zeile, Zähler, 1)
- If Zeichen = ";" Then
- Genre(cnt) = Mid(Zeile, pos1, Zähler)
- If Genre(4) = "DOM" Then
- TreeView1.Nodes.Add(Genre(2), Genre(1))
- End If
- If Genre(4) = "SUB" Then
- TreeView1.Nodes(std).Nodes.Add(Genre(2), Genre(1))
- End If
- If cnt > 1 Then
- pos1 = Zähler + 1
- End If
- cnt = cnt + 1
- End If
- Next
- Loop
- End Sub
- End Class
Danke schonmal für eure hilfe im vorraus