.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

352

    Vastaukset 5

    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. Metsamanin muru kissa kuollut

      Nyt siellä surraan muru kissaa päivä tolkulla,vaikka muuten ei oo välittänyt mitenkään siitä,kun joka videolla vaan mars
      Tuusniemi
      162
      2519
    2. 80
      1097
    3. Kysymys

      Pystyisitkö tutustuu kaverina tai alkaa parisuhteeseen skitsofreenikon kanssa? T.Skitosoaffektiivinen (parantunut) Ois
      Sinkut
      236
      997
    4. Mitä haluaisit kysyä

      kaivatultasi juuri nyt?
      Ikävä
      121
      976
    5. Tapailtaisko nainen

      Meidän kotien puolessavälissä suunnilleen, vähä niinku salaa. Siinä on yks kiva paikka joka sopis hyvin. Mieheltä
      Ikävä
      74
      813
    6. Olisitko valmis lähitulevaisuudessa

      Kohtaamaan minut mies?
      Ikävä
      81
      676
    7. Kissan kuolema

      https://youtube.com/shorts/lJznLVfBTxA?si=h-F1D4Arg4uGjGX- On tuo aivan uskomaton tapaus! Lähes 200 osanottoa ja surun
      Tuusniemi
      96
      591
    8. Haluatko J-mies jutella asiat selviksi vai jäädä palstalle haaveilemaan

      Kuten otsikko sanoo: Haluatko tavata ja jutella, jotta saadaan asioihin selvyys lopullisesti vai haluatko mieluummin haa
      Ikävä
      50
      566
    9. Miten on, luotathan siihen?

      Että vielä tehdään kiihkeästi sitä yhdessä... Tutulle naiselle.❤️‍🔥
      Ikävä
      38
      542
    10. Ei siitä mahdollisesta suhteesta

      saa kukaan tietää jos niin haluat❤️naiselle
      Ikävä
      36
      498
    Aihe