mabstrei
Cadet 4th Year
- Registriert
- Juli 2008
- Beiträge
- 79
Hi,
hab eine Datei mit Produktgruppen die 3 Spalten durch ein , getrennt enthält.
Aufbau:
Bildschirme,TFT,17ZOLL
Bildschirme,TFT,19ZOLL
Bildschirme,Röhre,17Zoll
Bildschirme,Röhre,19Zoll
Komponenten,CPU,Intel
Komponenten,CPU,AMD
Komponenten,Grafik,ATI
Komponenten,Grafik,NVidia
Möchte damit einen TreeView füllen:
Bildschrime
-----TFT
--------17ZOLL
--------19ZOLL
-----Röhre
(ich glaube ihr wisst was ich meine)
Mom mach sichs so
Bekomme aber eine NULLExeception könnte mir evtl jemand helfen
THX
hab eine Datei mit Produktgruppen die 3 Spalten durch ein , getrennt enthält.
Aufbau:
Bildschirme,TFT,17ZOLL
Bildschirme,TFT,19ZOLL
Bildschirme,Röhre,17Zoll
Bildschirme,Röhre,19Zoll
Komponenten,CPU,Intel
Komponenten,CPU,AMD
Komponenten,Grafik,ATI
Komponenten,Grafik,NVidia
Möchte damit einen TreeView füllen:
Bildschrime
-----TFT
--------17ZOLL
--------19ZOLL
-----Röhre
(ich glaube ihr wisst was ich meine)
Mom mach sichs so
Code:
Dim filepath As String = "Produktgruppen.csv"
Dim spalte1a As String = ""
Dim spalte1n As String = ""
Dim spalte2a As String = ""
Dim spalte2n As String = ""
Dim spalte3a As String = ""
Dim spalte3n As String = ""
Dim lines As String() = System.IO.File.ReadAllLines(filepath)
For Each el As String In lines
spalte1n = el.Split(",")(0)
spalte2n = el.Split(",")(1)
spalte3n = el.Split(",")(2)
If spalte1n <> spalte1a Then
tv_cat.Nodes.Add(spalte1n)
spalte1a = spalte1n
End If
If spalte2n <> spalte2a Then
tv_cat.Nodes.Item(spalte1a).Nodes.Add(spalte2n)
spalte2a = spalte2n
End If
If spalte3n <> spalte3a Then
tv_cat.Nodes.Item(spalte1a).Nodes.Item(spalte2a).Nodes.Add(spalte3n)
spalte3a = spalte3n
End If
Next
Bekomme aber eine NULLExeception könnte mir evtl jemand helfen
THX