.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

256

    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. En usko et meistä tulee jotain

      Se ei kuitenkaan estä toivomasta et tulisi. Toivon et voitas suudella ja se sais asioita loksahtamaan paikoilleen. Jutel
      Ikävä
      10
      2860
    2. Kuvaile itseäsi

      Kaivatullesi, niin että hän sinut tunnistaa.
      Ikävä
      115
      2135
    3. Eini paljastaa nuorekkuutensa salaisuuden - Tämä nousee framille: "Se on pakko, että jaksaa!"

      Discokuningatar Eini on täyttänyt upeat 64 vuotta. Lavoilla ja keikoilla nähdään entistä vapautuneempi artisti, joka ei
      Suomalaiset julkkikset
      43
      1554
    4. Huomenta keskipäivää

      Kivaa päivää mukaville ja söpösille. 🐺🫅❤️☕☀️
      Ikävä
      260
      1398
    5. Oletko koskaan katunut kun

      elämäsi tilaisuus jäi käyttämättä? 💔
      Ikävä
      70
      1003
    6. Olen J-mies

      Jos kerrot sukunimeni alkukirjaimen, ja asuinpaikkakuntani. Lupaan ottaa yhteyttä sinuun.
      Ikävä
      47
      911
    7. Sinusta näkee että

      Kaipaat paljon.
      Ikävä
      55
      884
    8. Ei sitten, ei olla enää

      Missään tekemisissä. Unohdetaan kaikki myös se että tunsimme. Tätä halusit tämän saat. J miehelle. Rakkaudella vaalea na
      Ikävä
      77
      880
    9. Haluaisin ottaa sinut syleilyyni mies

      Olet suloinen...
      Ikävä
      44
      785
    10. Ma 30.9 tosiko tv klo 18 suorana Tikkalanmäeltä

      Virastolta suorana. Äänestyksistä sitten puhutaan illalla ja huomenna, onko kepuvasemmisto kuntalaisten tahdon mukaan to
      Pyhäjärvi
      93
      736
    Aihe