关于文件的读写问题!!!
我这样将一个文件存成另外一个文件,对吗?
long flen,loops
integer filehandle1,filehandle2
bolb readfile
flen=filelength(filename1)
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
filehandle1=fileopen(filename1,streammode!,read!,lockread!)
filehandle2=fileopen(filename2,streammode!,write!,lockwrite!,replace!)
if filehandle1=0 or filehandle2=0 then
messagebox("","错误")
return
end if
for i=1 to loops
fileread(filehandle1,readfile)
filewrite(filehandle2,readfile)
next
fileclose(filehandle1)
fileclose(filehandle2)