vb编程问题，帮帮忙啊，我不知道该怎么弄了

Line Input #intFilenum, strLine
Do
If Len(strLine) = Len(Replace(strLine, " ", " ")) Then Exit Do
strLine = Replace(strLine, " ", " ")
Loop
a = Split(strLine)
Debug.Print a(0), a(1), a(2)

百度吃掉了我的空格,请注意..do里面的replace语句都是.前面是2个空格,后面是1个空格,就是循环减少空格,直至间隔都是1个空格为止!

先做一个数组循环，数组内容就是空格，比如数组是100个，没个变量的值就是从1到100个空格比如
dim abc(100)
abc(1)="1空格"
abc(2)="2空格"
abc(3)="3空格"
太多就用循环来写，达到不可能出现的最多空格为止

然后用REPLACE把每行里的空格都替换成一个空格，这样格式就统一了，再做别的

1.strline 两边去空格
2.把strline 分成第一个数a(0)和后面的部分a(1)
3.a(1)两边去空格
4.a(1)分成a第二个数a(1)和后面的部分a(2)
5.a(2)两边去空格
a(0),a(1),a(2) 为所求

Line Input #intFilenum, strLine
Do Len(strLine) > Len(Replace(strLine, Space(2), Space(1)))
strLine = Replace(strLine, Space(2), Space(1))
Loop
a = Split(strLine)
Debug.Print a(0); a(1); a(2)

看不懂你写什么样