在VB.NET里如何去读文件 c++-->vb.net

[KIMURAHONGBIN]

unsigned long dtlbuf[1440/4*27];
unsigned char dtbuf[1440*6];
unsigned char ini1[37],
ini2[25],
ini3[25],
ini4[7],
ini5[193],
trend_set[12][29],
/*@1 trend_data[12][4][125], */
trend_data,
req_chno[3][50],
bar_chno[12][26],
exh_set[17],
exh_data[4][105],

read_file()
{
FILE *fp;
register unsigned char * p, *p1;
unsigned n,i;

if((fp=fopen("em16data.fil","rb"))==NULL) return;
p = (unsigned char *) dtlbuf;
p1 = dtbuf;
for(n=0; n<1440; n++){
for(i=0; i<27; i++) *p++ = fgetc(fp);
for(i=0; i<6; i++) *p1++ = fgetc(fp);
}
p = ini1; for(n=0; n<22; n++) *p++ = fgetc(fp);
p = ini2; for(n=0; n<25; n++) *p++ = fgetc(fp);
p = ini3; for(n=0; n<25; n++) *p++ = fgetc(fp);
p = ini4; for(n=0; n<7; n++) *p++ = fgetc(fp);
p = ini5; for(n=0; n<97; n++) *p++ = fgetc(fp);
p = &trend_set[0][0]; for(n=0; n<(12*29); n++) *p++ = fgetc(fp);
/*@1 p = &trend_data[0][0][0]; for(n=0; n<(12*4*125); n++) *p++ = fgetc(fp); */
p=&trend_data; for(n=0;n<(12*4*125);n++) *p=fgetc(fp);
p = &req_chno[0][0]; for(n=0; n<(3*50); n++) *p++ = fgetc(fp);
p = &bar_chno[0][0]; for(n=0; n<(12*26); n++) *p++ = fgetc(fp);
p = exh_set; for(n=0; n<17; n++) *p++ = fgetc(fp);
p = &exh_data[0][0]; for(n=0; n<(4*105); n++) *p++ = fgetc(fp);
/*@2 p = &cnt_chno[0][0]; for(n=0; n<(3*50); n++) *p++ = fgetc(fp); */
p=&cnt_chno; for(n=0;n<(3*50);n++) *p=fgetc(fp);
/*@2 p = &cnt_data[0][0]; for(n=0; n<(3*242); n++) *p++ = fgetc(fp); */
p=&cnt_data; for(n=0;n<(3*242);n++) *p=fgetc(fp);
p = (unsigned char *)&meter_ch[0][0]; for(n=0; n<48; n++) *p++ = fgetc(fp);
fclose(fp);
}
这是一个C#的程序原码,如何转成VB.NET 问了好多人都没有给我答复.

[OenAuth.Core]

[Quote=引用 1 楼 cnzdgs 的回复:]
这是C代码，不是C#代码。
可以用System.IO.FileStream类来读文件，MSDN中有例子可以参考。
[/Quote]

C#读文件比上面代码容易多了，呵呵，上面的是C语言
.NET里面有自己的类来操作文件，如FileStream BinaryWriter BinaryReader等等，很多。到MSDN里面查如何..就可以看到

[Dinelgua]

不懂
帮顶
别忘了给点辛苦分 呵呵

[猫已经找不回了]

帮顶吧。。。

[cnzdgs]

这是C代码，不是C#代码。
可以用System.IO.FileStream类来读文件，MSDN中有例子可以参考。

[sxbwelcome]

在VB.net中可以通过StreamReader类来读取文件
dim din as StreamReader=file.opentext("……")
dim str,allstr as string
while not din.peek=-1
str=din.readline
allstr=allstr&str&chr(13)
end while
din.close

[xianyuxiaoqiang]

。。。