锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net读写文本 vb读写文本文件

IT技术文本

vb.net中，读取和写入文件写入vb.net读写文本：Dim sr As New IO.StreamWriter(Application.StartupPath"/写入vb.net读写文本的文本.txt")
sr.WriteLine("写入vb.net读写文本的内容")sr.Close()读取vb.net读写文本：If (File.Exists(Application.StartupPath"/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath"/读取vb.net读写文本的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine()（读取文本到文本框）
Loopend if
如何用vb.net编写读取txt内容的代码？窗体上添加2个文本框，设置成多行 ， 2个按钮，在文本框1里随便输入若干文字，可以多行，单击按钮1，保存到文件 。然后单击按钮2，把刚才写入的文件读到文本框2里 。
代码如下：
'写文本文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath"\Ssk.txt", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
'读文本文件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath"\Ssk.txt", System.Text.Encoding.UTF8)
【vb.net读写文本 vb读写文本文件】TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
气斜射入水或其他介质，折射光线与入射光线法线在
请教在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 。
◆ 满意请采纳，谢谢 ◆
如何用VB.net 读写Unicode编码的文本不要用do until，用for:
Dim arr() As String, i As Integer
arr = Split(r.ReadLine, " ")
For i = LBound(arr) To UBound(arr)
MsgBox(arr(i))
Next
－－－－－－－－－－－－－－－－－－－－
还是用readline,如果你要提取两个非连续空格之间的字符串 ， 可以用
Dim arr() As String
arr = Split(r.ReadLine, " ")
arr()数组里就存了你要的单词 。
快要下班了 ， 明后天不上班，如果16：30之前还搞不定就要下个星期1了 。
----------------------------------
哈，是我的失误没想到还有可能有半角的日文 。
用utf-8就OK了，代码如下：
（文本文件存的时候不能存成ansi ， 要存成utf-8，或是Unicode）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As System.IO.StreamReader
r = New System.IO.StreamReader("c:\a.txt", System.Text.Encoding.GetEncoding("utf-8"))
Do While Not r.EndOfStream
MsgBox(r.ReadLine)
Loop
End Sub
VB.net 读取文本文件？1、实现上传按钮方法代码 。
2、判断图片对象是否为空代码 。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码 。
4、字节数组转换为Image类型方法代码 。
5、处理SQL中操作Image类型方法代码 。
6、实现的上传结果 。
vb.net读写文本的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb读写文本文件、vb.net读写文本的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：激活安卓平台的软件，安卓激活手机是什么意思

    下一篇：苹果ios清理微信，苹果 清理 微信