Muutujate edasiandmine VB-s

[A.R.]

Kirjutasin Lcc-32 all väikese testi.
Avan faili,
loen ridade kaupa,
seal vahel on veel pisianalüüs et mis on rea juhtstring. (Näidiseks)
salvestan loetu 200 kb faili.
_____________________________________________
char Fail[200000];
Fail[0]=0;
infile = fopen( iniFail,"rt" );
if( infile == NULL ){
wsprintf(txt, "fopen: Algseade fail %s ei avane\n\r", iniFail);
MessageBox(NULL,txt, "Veateade", MB_OK);
}else{
while( (p=fgets(txt, 70, infile))){
// if(*p==';') continue;
p1=p;
// while(*p1!=':')p1++;
// *p1++=0;
// while(*p1==' ') p1++;
if(!strcmp(txt, "TEST")){
test=1;
}
if(!strcmp(txt, "N")){
strcpy(Null, p1);
Null[strlen(Null)-1]=0;
}
if(!strcmp(txt, "NR")){
nr=(int)strtol(p1,&p1,10);
}
strcpy(Fail+strlen(Fail), p1);
}
fclose(infile);
}
}
________________________________

Ja kõik see lugemine võtab alla sekundi.
(Programm sek osasid ei lugenud.)
Kasutusel on arvuti 1,83 GHz Win-XP.

Selle C teksti pakkus translaator ise välja, mina lisasin
ainult lugemise, aja mõõtmise ja näitamise osa.
Copyd ühest vanemast asjast.

Kui kahtled-kõhkled, (võin saata) saadan kogu programmi exe ja/või C ja
ka lingid vabavaralisle LCC-le. Ühe USA (üli) koolpoisi tehtud.
Proovi. Ei kahetse. Usu vana inimest.
Basic on tore, kirjutasime selles 85. raamatu küljenduse programmi aga ......

Kui tahad, saad oma programmist kasvõi DOS versiooni või siis midagi muud uuemat.