『壹』 vb.net如何打开选定文件夹下所有TXT文件，读取数据，写入数据，并保存数据至新的文件
IfFolderBrowserDialog.ShowDialog=Windows.Forms.DialogResult.OKThen
Dim资料夹AsString()=System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath,"*")
ForEach文件In资料夹
MsgBox(My.Computer.FileSystem.ReadAllText(文件))'读取数据
My.Computer.FileSystem.WriteAllText(文件,"数据",False)'写入数据
Next
EndIf
EndUsing
『贰』 vb如何读取多行txt文本
1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。
2、读取多行文本，可以使用Line input #语句，一行行读取，再连接在一起，这种方法对大一点txt文件效率不高。
3、下面提供一个高效率、一次性读入所有文本的vb6示例：
PrivateSubCommand1_Click()
Dimr
Open"d: eadme.txt"ForBinaryAs#1
r=StrConv(InputB(LOF(1),1),vbUnicode)
Close#1
Debug.Printr
EndSub
『叁』 vb批量处理txt文件
如果你的这些txt文件名称是有规律的，比如1.txt、2.txt、3.txt、....10.txt，那么就可以这样：
for i=1 to 10
open app.path & "\" & i & ".txt" for binary as #1
s=input(lof(1),#1)
'这时候s就是读出回的文件内答容，你可以在这里对s进行修改
put #1,1,s
close #1
next
这样就批量处理完了这10个文件了
如果文件名是没规律的，则可以这样：
d=dir(app.path & "\*.txt")
do while d<>""
open app.path & "\" & d for binary as #1
s=input(lof(1),#1)
'这时候s就是读出的文件内容，你可以在这里对s进行修改
put #1,1,s
close #1
d=dir
loop
这是批量处理同一目录的所有txt文件
『肆』 VB.net窗体设计中，如何读取.txt文件中的数据
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码，点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
『伍』 如何用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)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
气斜射入水或其他介质，折射光线与入射光线法线在
『陆』 请教在VB.net中如何将数据写入txt文件、再从txt文件读出
写入：
Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭版
读取：权
Open "D:\123.txt" For Input As #1 '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容
Close #1 '关闭
『柒』 vb.net文件读取txt
读取每行TXT如下代码：
VB.NETcode
PublicSubReadFileSample()
'打开程序当前路径下的config.txt文件
'内容就是楼主贴出来的
DimreaderAsTextReader=File.OpenText("config.txt")
DimlineAsString=reader.ReadLine()'读第一行
line=reader.ReadLine()'读第二行
line=reader.ReadLine()'读第三行
DimnAsInteger=3'当前行号
Whileline<>""Andn<50
line=reader.ReadLine()'读下一行
n=n+1
EndWhile
DimitemsAsString()=line.Split("".ToCharArray(),StringSplitOptions.RemoveEmptyEntries)
ForEachitemAsStringInitems
Console.WriteLine(item)
Next
EndSub
『捌』 vb.net 怎么写入和多行读取txt文件，而且多次写如之前的不被覆盖
.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容，File.ReadAllLine(filename)用于读取多行。
『玖』 VB.NET中，现有一多行TXT文件，想按行读取全部内容，然后显示在一文体框中，代码如下
a=""
TextBox1.Text=""
FileOpen(1,Application.StartupPath()&"file 1.txt",OpenMode.Input)
DoWhileNotEOF(1)
Input(1,a)
TextBox1.Text=TextBox1.Text&a&vbcrlf
Loop
一次性读取
a=File.ReadAllText(Application.StartupPath()&"file 1.txt")