[VB 2008] Uit combobox opslaan naar tekst file.

[creative]

Hallo, Ik heb een vraagje. Hoe kan ik mijn Combobox items opslaan naar tekst file. Dit is wat ik nu heb

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       Dim savef As New System.IO.StreamWriter(Application.StartupPath & "\settings\history\history.txt")
        'savef.Write(ControlChars.NewLine)
        savef.Write(Me.ComboBox1.Items.ToString)
        savef.Close()
       End Sub

Wat ik nu krijg opgeslagen is dit:

System.Windows.Forms.ComboBox+ObjectCollection

Hoe kan ik daar mijn Items krijgen ?

Groetjes Creative.

 

[The Mighty Atom]

Dit zou moeten werken:

       Dim WriteToFile As New StreamWriter("C:\combobox1.txt", False, System.Text.Encoding.ASCII)
        For Each Item As String In ComboBox1.Items
            WriteToFile.WriteLine(Item.ToString)
        Next
        WriteToFile.Close()
        WriteToFile.Dispose()

Mogelijk moet je Imports System.IO op de eerste regel neerzetten.

 

[creative]

Okee.. Bedankt. Tot zo ver werkt alles dus, maar nu zit ik met een ander klein probleempje. nu wil ik een heele lijst inladen en dan komt het naast elkaar te staan in de combobox hoe kan ik alles naast elkaar krijgen ?

Read code:

Dim Read As String = (Application.StartupPath & "\settings\history\history.dll")
        Dim Reader As New System.IO.StreamReader(Read)
        Me.ComboBox1.Items(Reader.ReadToEnd)
        objReader.Close()

 

[The Mighty Atom]

Ik had al een vermoeden dat dat je volgende vraag zou zijn, waarom zou je combobox items willen wegschrijven naar een tekst bestand als je ze ook niet weer kan ophalen.

Anyway, dit werkt:

Dim ReadFromFile As New StreamReader("C:\test.txt", Encoding.ASCII)
        Dim Line As String

        While ReadFromFile.Peek > -1
            Line = ReadFromFile.ReadLine
            ComboBox1.Items.Add(Line)
        End While
        ReadFromFile.Close()
        ReadFromFile.Dispose()

Mogelijk moet je hier ook
Imports System.IO
Imports System.Text
in je code formulier zetten.