hur.cn - 华软网

 热门搜索

关于fileread的问题。。。

  作者:未知    来源:网络    更新时间:2018/2/6
各位大侠帮忙看一下以下的读、写文件是否正确,小的看了半天也看不出错误来
以下是读文件
li_filelen = filelength(filename)
li_file = fileopen(filename,StreamMode!,Read!,LockRead!)
if li_file <> -1 then
if li_filelen > 32765 then
if mod(li_filelen,32765) = 0 then
li_loop = li_filelen / 32765
else
li_loop = (li_filelen / 32765) + 1
end if
else
li_loop = 1
end if
ll_pos = 0
do while li_loop > 0
fileread(li_file,lb_tmp)
ll_pos += 32765
FileSeek(li_file,ll_pos + 1)
lb_file = lb_file + lb_tmp
li_loop --
loop
end if
fileclose(li_file)

以下是写文件
li_filenum = fileopen(filepath,StreamMode!,Write!,LockWrite!,Append!)
if li_filenum <> -1 then
   if mod(len(lb_file),32765) <> 0 then
       li_loop = len(lb_file) / 32765
       li_loop = 1 + li_loop
   else
       li_loop = len(lb_file) / 32765
   end if

do while li_loop > 0
blobmid(lb_file,li_pos + 1,32765)
filewrite(li_filenum,lb_file)
li_pos = li_pos + 32765
li_loop --
loop
fileclose(li_filenum)
------华软网友回答------
设置断点看看
------华软网友回复------
请问怎们设置断点呀?
生成写的文件如果小的话就可以成功打开,如果大的话就会失败
我想是在分段写文件或是分段读文件时出错了。
------华软网友回复------
断点,在开发模式下写代码debugbreak()

然后进入调试模式

-----------------------------------
数据库用直连方式


ODBC连接有这个问题
------华软网友回复------
to: hygougou(狗狗) 
是用ms专用接口连接数据库
不是用ODBC连接
进入调试模式然后又怎样了呢?
------华软网友回复------
setp in    单步
step over  结束
step out   跳出
step cursor 定位到代码


自己看看所有变量
------华软网友回复------
看过了,读文件和写文件时都没有出错。
我怕是我的程序在合并文件时出错了。就是说在把每一个32765字节的文件在分开读取或在分开合并时的处理方法有问题。
------华软网友回复------
up      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。