保存到txt文本文件中

-------------------------------------------

Dim savefile1 As New SaveFileDialog

savefile1.DefaultExt = "*.txt "
savefile1.Filter = "text Files|*.txt "

If (savefile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (savefile1.FileName.Length) > 0 Then

Dim savemessage As New System.IO.StreamWriter(savefile1.FileName, True)
Try
savemessage.WriteLine(Label1.Text + ": ")
savemessage.WriteLine(TextBox1.Text)
savemessage.WriteLine()
savemessage.WriteLine(Label2.Text + ": ")
savemessage.WriteLine(TextBox2.Text)
savemessage.WriteLine(Label3.Text + ": ")
savemessage.WriteLine(TextBox3.Text)
Catch
Throw
Finally
savemessage.Close()
End Try
End If

 

-----------------------------------------------

 网上学习的 把文本值保存到txt中 当然这里也可以不用savedialog 而直接在debug下面建一个文件 然后写入

注意savemessage.write savemessage.writeline的区别 用于换行。。

 

   Try
            Dim savemessage As New System.IO.StreamWriter(filename, False)
            For i As Integer = 0 To p - 1
                Dim j As Integer
                For j = 0 To 139
                    savemessage.Write(svmdata(i, j))
                Next
                savemessage.WriteLine()
            Next
            savemessage.Close()
        Catch
            MsgBox("数据有误，请及时检查数据！", MsgBoxStyle.Exclamation, "信息框")
        End Try