-------------------------------------------
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