PB中读写文件通用的两个函数

最新推荐文章于 2024-05-16 16:38:00 发布

转载最新推荐文章于 2024-05-16 16:38:00 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://blog.youkuaiyun.com/xys_777/article/details/5787833

PB 专栏收录该内容

26 篇文章

订阅专栏

本文详细介绍了使用大对象类型进行文件读写的高级编程技巧，包括如何处理大文件的分段读取与写入，确保数据完整性和提高效率。通过具体的函数实现，读者可以学习到在读写大文件时如何避免内存溢出，以及如何正确处理文件打开、关闭及错误情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、文件读取 :

//函数名：f_readfile
//功能：读取文件
//参数：
//  io_file：ref blob 大对象类型，存储读出的文件内容；
//  is_filename：string 文件名
//返回值：int  1-成功 0-失败
LONG ll_len
int li_FileNum,li_count,loops,i,bytes_read
blob lblb_b,tot_b
int liResult=1

ll_len=FileLength(is_filename)
IF ll_len > 32765 THEN
IF Mod(ll_len, 32765) = 0 THEN
  loops = ll_len/32765
ELSE
  loops = (ll_len/32765) + 1
END IF
ELSE
loops = 1
END IF

li_FileNum = FileOpen(is_filename,StreamMode!, read!, lockread!)
if li_filenum = -1 then
messagebox("","无法打开文件"+ is_filename)
end if

FOR i = 1 to loops
bytes_read=FileRead(li_FileNum, lblb_b)
if bytes_read = -1 then
        messagebox("","读取文件"+is_filename+"失败!")
    liResult = 0
    exit
end if
if i=1 then
  tot_b = lblb_b
else
  tot_b = tot_b + lblb_b
end if
NEXT
Fileclose(li_FileNum)

if liResult = 1 then
ib_file=tot_b
end if

return liResult

2、文件写入 :

//函数名：f_writefile
//功能：写入文件
//参数：
//  io_file：blob  大对象类型，存储将写入的文件内容；
//  is_filename：string  文件名
//返回值：int  1-成功 0-失败

uLONG ll_len,li_count,loops
int li_FileNum
blob lblb_b
int liResult = 1

ll_len=len(ib_file)
IF ll_len > 32765 THEN
IF Mod(ll_len, 32765) = 0 THEN
  loops = ll_len/32765
ELSE
  loops = (ll_len/32765) + 1
END IF
ELSE
loops = 1
END IF

li_FileNum =  FileOpen(is_filename,StreamMode!, write!, shared!,Replace!)
if li_FileNum = -1 then
messagebox("系统提示","无法打开文件"+is_filename)
return 0
end if
FOR li_count = 1 to loops
lblb_b = blobmid( ib_file , ( li_count - 1) * 32765 + 1 , 32765 )
if FileWrite(li_FileNum, lblb_b) = -1 then
  messagebox("系统提示","写文件" + is_filename+"失败")
  liResult=0
  exit
end if//8010
NEXT
Fileclose(li_FileNum)

//if liResult=1 then
// liResult = gf_setfiletime(is_filename,idt_file_time)
//end if

return liResult
————————————————
原文链接：https://blog.youkuaiyun.com/xys_777/article/details/5787833