Salvați elementele de vizualizare listă - Alte probleme - VB-Paradise 2

Există 2 Răspunsuri în acest subiect. Ultima postare (17 mai 2016, 12:59 pm) este de la RodFromGermany.

elementele

moinmoin001

bună,
De aproximativ 2 luni am avut problema că elementele și subelementele mele de vizualizare în listă nu sunt salvate corect.
Și știu că există o mulțime de postări pe acest subiect, dar asta nu este tot ceea ce îmi doresc. Aș dori să salvez articolele într-un fișier text. Fiecare rețetă pe un nou rând. În încercările mele anterioare, am separat informațiile individuale (numele rețetei, categoria, calorii, autor, descriere) una de cealaltă cu un punct (":") și le-am citit:

Cod sursă VB.NET

  1. Public Sub FillListFromFile ()
  2. Dim srReader Ca StreamReader
  3. Dim bla ca șir
  4. Eliminați elementele () Ca șir
  5. Dim X Ca întreg = 0
  6. Dim OFD ca nou OpenFileDialog
  7. Încerca
  8. OFD.RestoreDirectory = Adevărat
  9. If (OFD.ShowDialog () = DialogResult.OK) Atunci
  10. srReader = My.Computer.FileSystem.OpenTextFileReader (OFD.FileName)
  11. Faceți până când srReader.EndOfStream 'A ajuns la sfârșitul fișierului
  12. bla = srReader.ReadLine 'Citiți o linie
  13. Părți individuale = bla. Despică (":")
  14. „Dezasamblați în piese individuale
  15. ListView1.Items.Add (Items (1)) 'RecipeName
  16. ListView1.Items (X) .SubItems.Add (Items (3)) 'Category
  17. ListView1.Items (X) .SubItems.Add (Items (5)) 'Calorii
  18. ListView1.Items (X) .SubItems.Add (Items (7)) 'Autor
  19. „Descriere 9
  20. X = X + 1
  21. Buclă
  22. srReader. Închide ()
  23. srReader.Dispose ()
  24. End If
  25. Prindeți ex ca excepție
  26. 'MessageBox.Show (ex. Mesaj)
  27. In cele din urma
  28. ListView1.OwnerDraw = Fals
  29. ListView1.View = View.Details
  30. Încearcă Încearcă
  31. Sfârșitul Sub

Aș aprecia multe răspunsuri bogate în informații
ps. Atașat veți găsi 2 imagini ale aplicației mele Windows Form
Lg ian

* Subiect amânat, deoarece acest lucru este cu greu VBA. *

4,79 kB, 833 × 438, 135 vizualizări

5,55 kB, 580 × 471, de 134 de ori vizualizate

Această postare a fost deja editată de 1 dată, ultima dată de „Marcus Gräfe” (14 mai 2016, 20:16)