1、D盘中有123.txt文件一个，文件离有如下数据：

* 数学 = 83    英语=92    语文 = 93    体育 =    70    *
* 化学 = 78    地理= 100    物理 = 87    *
 ............................................................................
* 最高的两个分数 = 100    93.54    最低的两个分数： 78    70    *
* 分数排列： 100    93    92    87    83    78    70    *

2、在VB窗体中的18个text文本控件读取上述文件的18个数字数据。
       例如：text1=83    text2=92     ...   text17=78     text18=70

有请高人出来指点！




[ 本帖最后由 大长经 于 2010-2-6 17:00 编辑 ]

这是我写的代码，太麻烦，还请高人能提供一个更加方便的方法！
Private Sub Command1_Click()
Dim S As String, A
Open "D:\123.txt" For Input As #1
Line Input #1, S
Text1.Text = Mid(S, 8, 2)
Text2.Text = Mid(S, 17, 2)
Text3.Text = Mid(S, 28, 2)
Text4.Text = Mid(S, 42, 2)

Line Input #1, S
Text5.Text = Mid(S, 8, 2)
Text6.Text = Mid(S, 18, 3)
Text7.Text = Mid(S, 30, 2)

Line Input #1, S
Line Input #1, S
Text8.Text = Mid(S, 13, 3)
Text9.Text = Mid(S, 20, 5)
Text10.Text = Mid(S, 38, 2)
Text11.Text = Mid(S, 44, 2)

Line Input #1, S
Text12.Text = Mid(S, 9, 3)
Text13.Text = Mid(S, 16, 2)
Text14.Text = Mid(S, 22, 2)
Text15.Text = Mid(S, 28, 2)
Text16.Text = Mid(S, 34, 2)
Text17.Text = Mid(S, 40, 2)
Text18.Text = Mid(S, 46, 2)

Close #1
End Sub

不能让它沉下去啊！

如果文本文件固定,基本上可以用你这种的代码来硬读.


相对来说,使用 split 来分解数据,容错性就更高一点.
但相对来说 split 相比代码更复杂一点.

读一行

星号换成无
等号换成空格
冒号换成空格
do
  取长度
  把2个空格换成一个空格
loop while 长度不等旧长度

split分解, 以空格为分解符
for 扫描每个元素
  如果是数字,则么就取这个元素给文本框
next