vb.net追加写入 vba追加写入文本

vb.net 怎么写入和多行读取txt文件，而且多次写如之前的不被覆盖？

.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容，File.ReadAllLine(filename)用于读取多行。

10年积累的成都网站设计、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有新泰免费网站建设让你可以放心的选择与我们合作。

软糖来告诉你吧。

VB.net中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 写入，会覆盖同名的文件。

Dim 要写的内容 As String = ""

File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 写入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加写入。

将上面代码的第二个参数False改为True。

◆ 满意请采纳，谢谢 ◆

Imports Microsoft.VisualBasic.FileSystem '在声明区加这句，这包含vb6的一些文件读写功能

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim p As Integer = FreeFile()

Static index As Integer = 0

FileOpen(p, "D:\list.csv", OpenMode.Append)

index += 1

WriteLine(p, "姓名" index, "年龄" index, "职业" index, "住址" index)

FileClose(p)

End Sub

' FileIO.TextFieldParser 类可以读取csv文件，或者数据库有关类也可以读取

ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段

ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段

INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行，只给新字段赋值

文章标题：vb.net追加写入 vba追加写入文本
分享地址：http://jkwzsj.com/article/ddcecpg.html