『壹』 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")