Question

VB编程里如何把文本文档(.dat)的某行读入到文本框中?

Answer 1

你问得不是很明白，想读哪行就读啊行就行了啊，`````给你举个例子吧
先，读dat所有到text,(会读吧？？)
open "路径" for input as #1
until eof(1)
line input #1,s
text1=text1 & s & vbcrl
loop
close #1
然后把text1作为一个数组
y=split(text1,vbcrlf)
再然后想读哪个就读哪个
for i=0 to ubound(s)
if i=你要读的行数+1 then text2=y(i)
next i
就行了```

追问

问题补充：要完成下面的编程如何编写代码？
例如：文本文档(.dat)的第一行第一个字符读入到text1.text；第一行的第二和第三个字符读入到text2.text。
文本文档(.dat)的第二行第一个字符读入到text3.text；第二行的第二和第三个字符读入到text4.text中

追答

```` 接着前面的思路来，你所有的dat已经存入了字符窜数数y了，现在只要按你的要求分离y中的元素就好了
如代码：
for i= 0 to ubound(y)
if i=0 then
text1= mid(y(0),1,1)
text2=mid(y(0),2,2)
elseif i=1 then
text3=mid(y(1),1,1)
text4=mid(y(1),2,2)
end if
就这样，基本上就OK 了，没调试，自己试下吧
next i

Answer 2

Function ReadLine(ByVal StrFilePath As String, ByVal IntLine As Integer)
'参数 StrFilePath:你要读取的文件的路径 IntLine:要读取的行数
'调用例子 MsgBox ReadLine("C:\123.dat", 2) 读取C:\123.dat 的第2行
If Dir(StrFilePath) <> "" Then
Dim a As Integer
Dim s As String
Open StrFilePath For Input As #1
Do While Not EOF(1)
a = a + 1
Line Input #1, s
If a = IntLine Then
ReadLine = s
Exit Do
End If
Loop
Close #1
End If
End Function

Answer 3

如果行数是固定的，就用一个循环，每次读一行，直到读到那一行为止。
如果不是固定的，你总要有个可以判断的条件吧