Question

vb跳过空行把文本文件数据读入数组(inputb函数的问题)

比如有以下的这个txt文件:
N行空行
11 22 33 44 55
12 22 33 44 55
N行空行
13 22 33 44 55
14 22 33 44 55
15 22 33 44 55
PS:因为我要读取的文本里有汉字，所以要转成UNICODE
我是这样子读的,先全部读入,然后分行,接着按条件把不是空行的赋值给数组。
Open "d:\2.txt" For Input As #1
all = StrConv(InputB(LOF(1), 1), vbUnicode)
temfile = Split(all, vbCrLf)
用SPLIT分出来的肯定不只5个元素。
但是我想把上面的的5行有数据的读入a(0)--a(4)，就是5个元素。
请不要用直接赋值的方式。。。。
就是
a(0)=11 22 33 44 55
a(1)=12 22 33 44 55
a(2)=13 22 33 44 55
.......
这个只是例子，在实际中，我不可能一行行的 手动 给每个数组元素赋值吧？

请问，这种问题应该怎么办？我这种方法最主要的就是怎么跳过空行，把空行下面的行读入数组里面。
或者请朋友们给出按行读的方式，能处理乱码问题的也行。

附：
1： 不要用textstream方式。
2：按行读的我会，但是在读行中的中文时，有时候会出现乱码。

以下是按行读入然后存入数组。
Do While Not EOF(1)
Line Input #1, str1
If str1 = "" Then
k = k + 1
Else
all = all & str1 & vbCrLf
End If
Loop
Close #1

Answer 1

问的有些奇怪，你既然已经用temfile = Split(all, vbCrLf)取得了分割后的数组，那只需要再定义一个动态数组，比如
dim arr() as string
c=0
redim arr(0)
for i=lbound(temfile) to ubound(temfile)
if trim(temfile(i))<>"" then
arr(c)=trim(temfile(i))
c=c+1
redim arr(c) Preserve
end if
next i
之后的arr就是你要的数据了。

Answer 2

k=-1
Do While Not EOF(1)
Line Input #1, str1
If str1 <> "" Then
k = k + 1
str1 = StrConv(str1, vbUnicode)
all = all & str1 & vbCrLf
a(k) = str1
End If
Loop

追问

str1 = StrConv(str1, vbUnicode)

我也用过。
但是在读取中文的时候会出错。
比如在一行中用split或者left,mid之类的。会有乱码。

追答

你把文本贴出来

Answer 3

Sunrise:留着.