.NET ListView tekstitiedostosta?

Textbox

Miten saan tekstitiedostosta (erottimena;) listviewiin tiedot???
Tai jos joku edes tietäisi linkin sivuille, joista löytyy apua? Olen etsinyt tuntikausia, muttei löydy : (

5

329

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Valtion alijäämä = yritystukien määrä = 10 mrd. euroa

      Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p
      Maailman menoa
      98
      7432
    2. Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa

      Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su
      Maailman menoa
      363
      6513
    3. Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"

      Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite
      Maailman menoa
      61
      3864
    4. Vähän fiksumpi Nimi kisa ? :=)

      Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill
      Ikävä
      29
      3599
    5. Mikä on suurin luonne- eroavuus sinussa

      Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?
      Ikävä
      192
      2071
    6. Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?

      Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os
      Tv-sarjat
      18
      1793
    7. Mitä haluaisit sanoa tänään hänelle?

      Rakastamallesi ihmiselle.
      Ikävä
      61
      1541
    8. Gallup: Katsotko Salkkareita tai oletko katsonut?

      Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps
      Tv-sarjat
      18
      1506
    9. Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!

      Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv
      Tv-sarjat
      1
      1400
    10. Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."

      Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m
      Tv-sarjat
      1
      1387
    Aihe