Miten saan tekstitiedostosta (erottimena;) listviewiin tiedot???
Tai jos joku edes tietäisi linkin sivuille, joista löytyy apua? Olen etsinyt tuntikausia, muttei löydy : (
.NET ListView tekstitiedostosta?
5
309
Vastaukset
- 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
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 teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070