Lista nézet elemek mentése - Egyéb problémák - VB-Paradise 2

Van 2 Válaszok ebben a témában. Az utolsó bejegyzés (2016. május 17., 12:59) a RodFromGermany-tól származik.

moinmoin001

Szia,
Körülbelül 2 hónapja az a problémám, hogy a listanézet-elemeim és az alelemeim nincsenek megfelelően elmentve.
És tudom, hogy rengeteg bejegyzés van ebben a témában, de nem csak ezt akarom. Szeretném menteni az elemeket egy szöveges fájlba. Minden recept egy új sorra. Korábbi próbálkozásaim során az egyes információkat (recept neve, kategória, kalória, szerző, leírás) kettősponttal (":") választottam el egymástól, és felolvastam őket:

VB.NET forráskód

1. Public Sub FillListFromFile ()
2. Dim srReader StreamReader néven
3. Dim blah, mint húr
4. Homályos elemek () karakterláncként
5. Dim X egész számként = 0
6. Dim OFD, mint új OpenFileDialog
7. Próbáld ki
8. OFD.RestoreDirectory = Igaz
9. Ha (OFD.ShowDialog () = DialogResult.OK) Akkor
10. srReader = My.Computer.FileSystem.OpenTextFileReader (OFD.FileName)
11. Addig, amíg srReader.EndOfStream 'Elérte a fájl végét
12. bla = srReader.ReadLine 'Olvasjon egy sort
13. Az egyes részek = bla. Hasított (":")
14. - Szétszerelje egyes részekre
15. ListView1 Items.Add (Items (1)) 'RecipeName
16. ListView1.Items (X) .SubItems.Add (Items (3)) 'Kategória
17. ListView1.Items (X) .SubItems.Add (Items (5)) 'Kalóriák
18. ListView1.Items (X) .SubItems.Add (Items (7)) 'Szerző
19. „9. leírás
20. X = X + 1
21. Hurok
22. srReader. Bezárás ()
23. srReader.Dispose ()
24. Vége Ha
25. Catch ex kivételként
26. 'MessageBox.Show (pl. Üzenet)
27. Végül
28. ListView1.OwnerDraw = Hamis
29. ListView1.View = Nézet. Részletek
30. Vége
31. End Sub

Nagyra értékelném sok információban gazdag választ
ps. Mellékelten 2 képet talál a Windows Form alkalmazásomról
Lg Jan

* A témát elhalasztották, mert ez alig VBA. *

4,79 kB, 833 × 438, 135 megtekintés

5,55 kB, 580 × 471, 134 alkalommal megtekintve

Ezt a bejegyzést már 1 alkalommal szerkesztették, utoljára "Marcus Gräfe" (2016. május 14., 20:16)

---