关于vb.net写入txt的信息

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

软糖来告诉你吧。

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。

◆ 满意请采纳，谢谢 ◆

相关问答

Q1: vb.net如何打开选定文件夹下所有TXT文件，读取数据，写入数据，并保存数据至新的文件

 Using FolderBrowserDialog As New FolderBrowserDialog

            If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

                Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")

                For Each 文件 In 资料夹

                    MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据

                    My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据

                Next

            End If

        End Using

Q2: vb.nettxt无法输入

你是用输入法的吧，这个是.Net Framework的Bug吧，用输入法的步骤如下：

1、首先保证文本框有焦点

2、按下2次Ctrl+空格

3、切换到自己要用的输入法

这样一般都可以了

Q3: vb.net中，读取和写入文件

写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")

sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （读取文本到文本框）

Loop end if

Q4: vb.net读写txt文件的问题

这个用读写TXT的话比较繁琐，建议题主使用读写INI的方式，参考：

'声明INI配置文件读写API函数

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

 

 '定义读取配置文件函数

Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

    Dim Str As String = LSet(Str, 256)

    GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

    Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

 

'定义写入配置文件函数

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

    WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

 

'定义INI文件位置

Dim path As String

path = "C:\t861239263.ini" '假设是这个文件

那么读取的时候：

TextBox1.Text = GetINI("main","v1","", path)

TextBox2.Text = GetINI("main","v2","", path)

TextBox3.Text = GetINI("main","v3","", path)

写入的时候：

WriteINI("main","v1", TextBox1.Text, path)

WriteINI("main","v2", TextBox2.Text, path)

WriteINI("main","v3", TextBox3.Text, path)

【附】INI文件的格式，范例：

[main]

v1=133233

v2=132387

v3=322333

[aaa]

abc=1

bcd=2

[bbb]

ni=wo

wo=ta

Q5: vb.net 将“1111”写入TXT文件中

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "1111", True)

End If

就可以vb.net写入txt了

vb.net写入txt的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net写入txt的信息别忘了在本站进行查找喔。