Do While Not EOF(1)
Input #FileNum, Aline
tmpdata = Split(Aline, ",")
ReDim Preserve outdata(i + 1)
outdata(i) = tmpdata(0)
i = i + 1
Loop如果遇到这样的数据如何赋值?a,b,,d
Input #FileNum, Aline
tmpdata = Split(Aline, ",")
ReDim Preserve outdata(i + 1)
outdata(i) = tmpdata(0)
i = i + 1
Loop如果遇到这样的数据如何赋值?a,b,,d
tmpdata(1)="b"
tmpdata(2)=""
tmpdata(3)="c"不过你的程序好像并没有用到tmpdata(1)以后的东西,呵呵。
tmpdata = Split(Aline, ",")
只能读到tmpdata(0)