VB怎么读TXT文件行数和列数！

Question

咧如：10 20 30            11 22 33            77 88 99 TXT文件放在：E:\a.txt单击第一个命令按钮：第一行的全部放到Text1.text , Text2.text , Text3.text单击第二个命令按钮：第二行的全部放到Text4.text , Text5.text , Text6.text求高手给源代码，和详细说明。万分感谢！！！

Answer 1

open "E:\a.txt" for input as #1
line input #1,s
Text1.text=left(s,2)
Text2.text=mid(s,4,2)
Text3.text=right(s,2)
line input #1,s
Text4.text=left(s,2)
Text5.text=mid(s,4,2)
Text6.text=right(s,2)
close #1

Answer 2

private sub command1_click()
dim s() as string,tt as string
dim i as integer
open "e:\a.txt" for input as #1
line input #1,tt
close
s=split(tt," ")
text1=s(0)
text2=s(1)
text3=s(2)
end sub
'===========================
private sub command2_click()
dim s() as string,tt as string
dim i as integer
open "e:\a.txt" for input as #1
line input #1,tt
line input #1,tt
close
s=split(tt," ")
text4=s(0)
text5=s(1)
text6=s(2)
end sub