请教在VB点虐 中如何将数据写入txt文件、再从txt文件读出？

软糖来告诉你吧。

网站设计制作过程拒绝使用模板建站；使用PHP+MYSQL原生开发可交付网站源代码;符合网站优化排名的后台管理系统；网站设计制作、网站设计收费合理；免费进行网站备案等企业网站建设一条龙服务.我们是一家持续稳定运营了十年的创新互联网站建设公司。

VB点虐 中读写文件主要使用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。

◆ 满意请采纳，谢谢 ◆

vb点虐 保存成TXT文件后再从RICHTEXTBOX里打开为什么是乱码?

你保存跟读取的格式不一致：这样就可以

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

OpenFileDialog1.FileName = ""

OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName "" Then

RichTextBox1.Text = IO.File.ReadAllText(OpenFileDialog1.FileName)

End If

End Sub

【vb点虐 】怎么把text里面的内容生成一个txt文件

Dim SaveFileDialog1 As New SaveFileDialog()

'创建一个保存对话框

SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"

'设置

扩展名

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

'如果确定保存

My.Computer.

FileSystem

.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)

'保存文本,False表示不追加文本，直接覆盖其内容

End If

vb点虐 中 datagridview的数据如何保存到 txt

Dim i As Integer

Dim j As Integer

Dim myFile As New System.IO.StreamWriter("c:\Test.txt")

Dim strTemp As String = ""

For j = 0 To frmQuery.DataGridView1.RowCount - 1

strTemp = ""

For i = 0 To frmQuery.DataGridView1.Columns.Count - 1

strTemp = "'" frmQuery.DataGridView1(i, j).Value "'" ","

Next

myFile.WriteLine(strTemp)

Next

myFile.Close()

格式为表格每行保存为文本文件的一行，字段之间以逗号分隔。

网页名称：vb点虐 保存为txt的简单介绍
分享链接：http://chengdu.cdxwcx.cn/article/ddeocgc.html