vb 读取文本文件 数据放到二维数组中，

Question

像http://zhidao.baidu.com/question/98313874.html，但是格式是这样的
1 “你好" 0.1
2 “很不好" 0.2
行与行之间是 vbcrlf 一行内用 空格间隔
开始的时候想用结构体 但是一直出错，然后想先存入二维数组，然后再转为结构体的
请您给指导下。谢谢

Answer 1

(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

如果是按一行一行读取进数组 你可以用

dim a
a = split(openfile(App.Path & "\1.txt"),vbcrlf)

追问

你给的这个只是读，怎么把读入的数据存入到结构体中
Type key
id as integer
keyString as string
keyScore as single
end Type
谢谢

Answer 2

给你个例子
#include <fstream.h>
#include <iostream.h>
int main(){
int k=0;
int m=0,n=0,l=0;
char b[200][200];
char a[200][200]={0};
ifstream file("sdasd.txt");
while(!file.eof()){
file.getline(a[k],200,'\n');
if(strstr(a[k],"#"))
continue;
k++;}
for(m=0;m<5;m++){
for(n=0;n<200;n++){
// if(a[m][n]==':'||a[m][n]=='/')
// continue;
// else
{b[m][l]=a[m][n];
cout<<b[m][l];
l++;

}

追问

有没有vb版的

追答

暂时没有 希望对你有帮助 呵呵