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
287
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.525300- 813920
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3252305Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2671932Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1171798Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain561382Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ951290- 701232
Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲1331197Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht2951172