Archief - VB.NET 2003 Tekst opslaan in een .txt bestand.

Lifen · 27 mrt 2009

Ik zou graag de tekst in een multiline tekstvak opslaan in een .txt bestand.
Nu op internet vind ik niet direct goede informatie, als ik een streamwriter wil declareren komt er meteen al een fout op het type streamwriter.
Het moet code zijn voor VB.NET 2003.
ImageShack - Image Hosting :: yeva.png
edit: Ik zie net dat ik het in de foute sectie heb geplaatst. Als een mod zo vriendelijk zou zijn?

Xtralecherus · 27 mrt 2009

Ik heb hier een paar oefening voor school gemaakt in vb2008. Dus ik weet niet zeker of dit werkt, maar misschien heb je er iets aan?

.

Code:

    Public Sub SaveReport()
        Dim dialog As New SaveFileDialog
        Dim path As String = Nothing
        dialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 'Application.StartupPath
        dialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        dialog.FilterIndex = 1
        dialog.RestoreDirectory = True
        If (dialog.ShowDialog = DialogResult.OK) Then
            path = dialog.FileName
        Else
            Exit Sub
        End If
        Using writer As StreamWriter = New StreamWriter(path, False)
            Dim enumerator As IEnumerator
            'writer.WriteLine(("File Parsed:" & ModCode.sTheFile))  'extra tekst: locatie van bestand txt
            'writer.WriteLine(("Report generated by:" & Environment.UserName)) 'extra tekst: gebruikersnaam
            'writer.WriteLine(("Created:" & DateAndTime.Now.ToString)) 'extra tekst: datum en tijd
            'writer.WriteLine("-----------------------") 'extra tekst
            Try
                enumerator = FrmMain.lstbxTekst.Items.GetEnumerator
                Do While enumerator.MoveNext
                    Dim str2 As String = CType(enumerator.Current, String)
                    writer.WriteLine(str2)
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator, IDisposable).Dispose()
                End If
            End Try
            writer.WriteLine("END")
            writer.Close()
        End Using
    End Sub

lstboxtekst = een listbox

Archief - VB.NET 2003 Tekst opslaan in een .txt bestand.

Lifen

Legacy Member

Xtralecherus

Legacy Member