Miten saan tekstitiedostosta (erottimena;) listviewiin tiedot???
Tai jos joku edes tietäisi linkin sivuille, joista löytyy apua? Olen etsinyt tuntikausia, muttei löydy : (
.NET ListView tekstitiedostosta?
5
323
Vastaukset
- Orwell
Jos ymmärsin kysymyksesi oikein, niin ao. koodin pitäisi hoitaa ongelmasi.
Dim sText() As String
Dim sLines As String = ""
Dim i As Long = 0
Dim reader As New IO.StreamReader(TIEDOSTOPOLKU)
Dim sLine As String = ""
Try
Do
sLine = reader.ReadLine()
sLines = sLines & sLine
Loop Until sLine Is Nothing
Catch
End Try
Call reader.Close()
sText = sLines.Split(";")
For i = 0 To sText.GetUpperBound(0)
listBox1.Items.add(sText(i))
Next i- Textbox
... kun pitäis saada ListVIEWiin...
Kiitos kumminkin : ) - Orwell
Textbox kirjoitti:
... kun pitäis saada ListVIEWiin...
Kiitos kumminkin : )Kun en lukenut kunnolla loppun asti...
ListVien View-arvo on Details ja lisää tarvittava määrä Columneja kontrolliin (= paljonko yhdelle riville tulee arvoja).
Dim n As Long = 0
Try
Do
sline = reader.ReadLine()
If sline Is Nothing Then Exit Do
sText = sLine.Split(";")
listView1.Items.add(sText(0))
For i = 1 To sText.GetUpperBound(0)
listView1.Items(n).subitems.add(stext(i))
Next i
n=n 1
Loop Until sline Is Nothing
Catch
End Try
Call reader.Close() - Textbox
Orwell kirjoitti:
Kun en lukenut kunnolla loppun asti...
ListVien View-arvo on Details ja lisää tarvittava määrä Columneja kontrolliin (= paljonko yhdelle riville tulee arvoja).
Dim n As Long = 0
Try
Do
sline = reader.ReadLine()
If sline Is Nothing Then Exit Do
sText = sLine.Split(";")
listView1.Items.add(sText(0))
For i = 1 To sText.GetUpperBound(0)
listView1.Items(n).subitems.add(stext(i))
Next i
n=n 1
Loop Until sline Is Nothing
Catch
End Try
Call reader.Close()Pelittää hyvin!
Vielä kun sais kommentoinnit kohdalleen, niin : )
Varsinkin toi n? Debuggasin kyllä, muttei tämä tumpelo oikein käsittänyt
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim n As Int32 = 0
Dim teksti() As String
Dim rivi As String
Dim i As Int32 = 0
Dim reader As New IO.StreamReader("C:\tiedosto.txt")
Try
Do
rivi = reader.ReadLine()
If rivi Is Nothing Then Exit Do
'lukee tiedoston rivi kerrallaan (tietojen erotinmerkki ;)
teksti = rivi.Split(";")
'lisää tekstin listviewiin
ListView1.Items.Add(teksti(0))
For i = 1 To teksti.GetUpperBound(0)
ListView1.Items(n).SubItems.Add(teksti(i))
Next i
n = n 1
Loop Until rivi Is Nothing
Catch
End Try
Call reader.Close()
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vain vasemmistolaiset rakennemuutokset pelastavat Suomen
Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot273425Persut huutaa taas: "kato! muslimi!"
Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe132828- 282504
- 421927
- 531779
- 151760
- 451626
KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!
Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola101468- 541444
Missikohu edustaa nykyajan monimuotoisuutta
Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule2641164