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
293
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225134- 254308
- 272461
- 342234
- 371998
- 151908
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211247Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101164