PB中讀寫文件通用的兩個函數

原文鏈接：https://blog.csdn.net/xys_777/article/details/5787833

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.csdn.net/xys_777/article/details/5787833