Private Sub appendText1(ByVal filename As String) File.AppendAllText(filename,txtFile.Text,Encoding.Default) End Sub@H_301_0@
Private Sub appendText2(ByVal filename As String) Dim sw As StreamWriter = File.AppendText(filename) sw.WriteLine(txtFile.Text) sw.Close() End Sub@H_301_0@ 注意:此方法不能设置文本编码,只能将 UTF-8 编码文本追加到现有文件或新文件 @H_301_0@
Private Sub appendText3(ByVal filename As String) Dim sw2 As New StreamWriter(filename,True) sw2.WriteLine(txtFile.Text) sw2.Close() End Sub@H_301_0@ 注意:此方法不能设置文本编码,只能将 UTF-8 编码文本追加到现有文件或新文件 @H_301_0@
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看 vb.net 教程 目录