> nBytes =3D 100000 ( or an appropriate size 'bite' to work with )
>=20
> gnErrFile2 =3D FCREATE("TEMP_N")
> gnFileHandle =3D FOPEN(cMyTableNamea)
>=20
> IF FERROR() !=3D 0
> ? "File open error:", FERROR()
> ELSE
>=20
> * Seek to end of file to determine the number of bytes in the file
> nSize =3D FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF
> IF nSize > 0
=3DFSEEK(gnFileHandle,0,0) && go top !!=20
>=20
> *!* DO WHILE !FEOF() < conceptual routine that needs correction
>=20
> cString =3D FREAD(gnFileHandle, nBytes)
> =3DFWRITE(gnErrFile2 , cString)
> *!* ENDDO
> FCLOSE(gnFileHandle)
> FCLOSE(gnErrFile2)
>=20
> ENDIF
>=20
>=20
©2003 Gérard LOCHON |
