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
256
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
En usko et meistä tulee jotain
Se ei kuitenkaan estä toivomasta et tulisi. Toivon et voitas suudella ja se sais asioita loksahtamaan paikoilleen. Jutel102860- 1152135
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 ei431554- 2601398
- 701003
Olen J-mies
Jos kerrot sukunimeni alkukirjaimen, ja asuinpaikkakuntani. Lupaan ottaa yhteyttä sinuun.47911- 55884
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 na77880- 44785
Ma 30.9 tosiko tv klo 18 suorana Tikkalanmäeltä
Virastolta suorana. Äänestyksistä sitten puhutaan illalla ja huomenna, onko kepuvasemmisto kuntalaisten tahdon mukaan to93736