Save de ListBox

[Ivo Pereira]

Boas pessoal,

estou com uns problemas, ao tentar gravar os dados de uma Listbox para um ficheiro de texto (1 por linha).

O problema é que adiciona-me sempre uma linha em branco no ficheiro, e depois se for ler na Listbox aparece-me mais um item na lista mas sem conteúdo (da tal linha branca).

Aqui está o código:

    Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        Dim a As Integer
        Dim s As String

        If lst_noticias.Items.Count > 0 Then
            Dim file As New System.IO.StreamWriter(Application.StartupPath & "/temp/list.dat", False)
            For a = 0 To lst_noticias.Items.Count - 1
                s = lst_noticias.Items.Item(a)
                file.WriteLine(s)
            Next a
            file.Close()
        End If
        lbl_mensagem.Text = "As notícias foram guardadas com sucesso."
        lbl_mensagem.Visible = True
        tmr_mensagem.Enabled = True
    End Sub

[bruno1234]

n dá para resolver isso com um if antes do writeline?

Vê em debug qual é o valor q faz aparecer essa linha e mete um if q só escreve caso seja diferente disso.

[Ivo Pereira]

n dá para resolver isso com um if antes do writeline?

Vê em debug qual é o valor q faz aparecer essa linha e mete um if q só escreve caso seja diferente disso.

Desculpa mas não percebi. Podes explicar melhor?

[bruno1234]

Mete um break point na linha do writeline e vai vendo os valores de s, e vê se aparece algum q n seja suposto.

[Ivo Pereira]

Mete um break point na linha do writeline e vai vendo os valores de s, e vê se aparece algum q n seja suposto.

Não.

Aliás aparecem todos os valores muito bem.

Não sei porque é que me aparece o outro.