.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

317

    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. Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?

      Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k
      Maailman menoa
      113
      4304
    2. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      150
      3689
    3. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      88
      3435
    4. Mikä tuota vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia
      Maailman menoa
      39
      2829
    5. Mitä ajattelit kun näit

      kaivattusi ensimmäisen kerran? xd
      Ikävä
      129
      1730
    6. Nyt meni lopulliset lämmöt.

      Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta
      Sinkut
      37
      1568
    7. Orpo loukkaantui fasismiin viittaavasta sanavalinnasta

      Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk
      Maailman menoa
      14
      1211
    8. Sulla on avaimet ja keinot

      Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi
      Ikävä
      19
      1184
    9. Meitä ei tule

      Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌
      Ikävä
      22
      1144
    10. Onko erityinen paikka jossa haluaisit nyt olla

      Onko joku spesiaali lempipaikka missä mieluiten olisit?
      Ikävä
      42
      1140
    Aihe