.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

309

    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. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3007
    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961
    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367
    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863
    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719
    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1674
    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586
    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275
    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      37
      1247
    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1070
    Aihe