文件里的空行影响读取数据，如何跳过？

[qzgrmc]

VB读取文件实在不那么方便。比如
文件里的数据如下

0 1 2

3
4
如果读取前5个赋值给5个整型变量a,b,c,d,e 使用input #1,a,b,c,d,e
那么a=0 b=1 c=2 d=0 e=3
而不是我期待的
a=0 b=1 c=2 d=3 e=4
请问，如何跳过该死的空行？？

[FreshAir]

Dim curData() As Curency '存放读出的数据
Dim IntCnt As Integer '读出数据的个数
Dim strData() As String
Dim strTemp As String
Dim i As Integer

intCnt = 0
Open "Demo.txt" For Input As#1
Do While Not Eof(1)
Line Input #1,strTemp '一次读入一行，
If Trim(strTemp) = "" Then
'是空行，则跳过，不做任何处理
Else
'是非空行，则先将一行的数据strTemp分离出来
strData = Split(strTemp," ")
'再将分离出来的数据转换成数值型
ReDim Preserve curData(intCnt + UBound(strData) + 1)
For i=0 To UBound(strData)
intCnt = intCnt + 1
curData(intCnt) = Val(strData(i))
Next i
End If
Loop
Close #1
For i=1 To intCnt
Debug.Print curData(i)
Next i

[13161795500]

up