怎样用vb读取文件数据txt

open "C:\datetxt" for input as #1
'这步是打开“datetxt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。
Do Until eof(#1) '循环，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #1, A '读取下一行的内容
Loop
Close #1

窗体上添加2个文本框，设置成多行，2个按钮，在文本框1里随便输入若干文字，可以多行，单击按钮1，保存到文件。然后单击按钮2，把刚才写入的文件读到文本框2里。
代码如下：
'写文本文件
Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
'创建(写入)一个文本文件
Dim MyStream As New SystemIOFileStream(ApplicationStartupPath & "\Ssktxt", SystemIOFileModeCreate)
Dim MyWriter As New SystemIOStreamWriter(MyStream, SystemTextEncodingDefault)
MyWriterWriteLine(TextBox1Text)
MyWriterFlush()
MyWriterClose()
MyStreamClose()
End Sub
'读文本文件
Private Sub Button2_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button2Click
'读取一个文本文件
Dim MyReader As New SystemIOStreamReader(ApplicationStartupPath & "\Ssktxt", SystemTextEncodingUTF8)
TextBox2Text = MyReaderReadToEnd()
MyReaderClose()
End Sub
气斜射入水或其他介质，折射光线与入射光线法线在

你好! 1、对于TXT文件,用什么语言都不能实现任意10条内容,只能从头开始读取；但可能有变通的办法：先产生一个随机数，打开TXT文件，从头开始读取数据，当已读取的数据=随机数时，开始将读取的数据放到变量中，连续存放10个； 2、用OFFICE的WORD文档控件的DLL链接到VB中，在VB中创建一个WORD文档工作平台（空间）,将10个数据写入到该文档中，文档取名为>