vb.net文本读写 vb读取文本

如何用VB.net 读写Unicode编码的文本

不要用do untilvb.net文本读写，用for:

Dim arr() As String, i As Integer

arr = Split(r.ReadLine, " ")

For i = LBound(arr) To UBound(arr)

MsgBox(arr(i))

Next

－－－－－－－－－－－－－－－－－－－－

还是用readline,如果vb.net文本读写你要提取两个非连续空格之间的字符串，可以用

Dim arr() As String

arr = Split(r.ReadLine, " ")

arr()数组里就存vb.net文本读写了vb.net文本读写你要的单词。

快要下班了，明后天不上班，如果16vb.net文本读写：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中如何将数据写入txt文件、再从txt文件读出？

软糖来告诉vb.net文本读写你吧。

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

① 使用 File.ReadAllText 读取

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

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

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

Dim s As String = sr.ReadToEnd()

sr.Close()

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

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文本读写，谢谢 ◆

VB.net 读取文本文件？

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现vb.net文本读写的上传结果。

VB.NET读写文本文件方法

工作需要 我需要使用对文本文件进行读写操作 编程需要完成如下工作

把程序执行错误追加到错误日志中

使巧巧读书网vb.net文本读写的编辑能够读取错误日志

记得以前使用vb vb.net文本读写的时候 对文本文件的操作挺麻烦的 特别是在写文件的时候 需要区分什么顺序文件 随机文件 很教材都专门针对文本文件的读写开辟vb.net文本读写了一个章节来讲解 够麻烦的了 现在使用 net读写文本文件 因为时间仓促 没来得及细看MSDN 同时受到 的思路影响 把问题复杂化了 在追加记录到文本文件尾部的时候就写不下去了 后来仔细看了一下MSDN中例子 问题终于得到了解决

好了下面进入正题 分别把中对文本文件进行读和写的通用操作做个示例 免得后来新手多走弯路

我们这里是对文件流进行操作 所以模块前面要加上

Imports System IO

写操作

使用System IO的StreamWriter 下面是代码

Dim strFilePath As String = SaveFileDialog FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打开指定文件

For i = To j

temp = i ToString

sw WriteLine（temp）

sw Flush（）

Next

sw Close（）

sw = Nothing

首先要说明的是构造函数new

Public Sub New（path append Encoding）

path 要打开文件的完整路径 如果文件不存在则自动建立一个新的文件

append 缺省值为false 指示是否以追加方式打开指定文件 false——如果存在path指定的文件 则覆盖原文件 否则建立一个新文件 true——如果存在path指定的文件 则打开该文件 以追加数据的方式在文尾写数据 否则建立一个新文件

Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码写文件

WriterLine（str） 在文本中添加一个新行 同时在行尾加上回车换行符

读操作

Dim line As String

Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）

Do While sr Peek（）

line = sr ReadLine（）

Loop

sr Close（）

sr = Nothing

构造函数new

Public Sub New（Path Encoding）

path 要打开文件的完整路径 如果文件抛出一个错误

Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码读文件

lishixinzhi/Article/program/net/201311/11973

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

关于vb.net文本读写和vb读取文本的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。