文件操作函数

一、文件操作函数

1、GetFileOpenName(title,filePathName,fileName,extension,filter,initDir):文件打开对话框

   GetFileSaveName(title,filePathName,fileName,extension,filter,initDir):文件保存对话框

  参数说明:title:对话框标题

       filePathName:存储将要打开文件的路径

       fileName:存储将要打开文件的文件名

       extension:需要打开文件扩展名

       filter:过滤文件的类型

       initDir:文件打开对话框初始化的路径

   例:GetFileOpenName("打开文件",filePathName,fileName,"doc;Excel;txt","File(*.doc;*.excel;*.txt),*.doc;*.excel;*.txt","c:\")

     GetFileOpenName("打开文件",filePathName,fileName,"doc;Excel;txt","File(*.doc;*.excel;*.txt),*.doc;*.excel;*.txt","c:\")
2、FileOpen(filePathName,fileMode,fileAccess,fileLock,writeMode):文件打开函数(读、写)

  参数说明:filePathName:要打开(读写)的文件地址

       fileMode:文件读写的模式:StreamMode!:流模式读写;LineMode:行模式读写(Default)

       fileAccess:文件读写方式:Read!(Default)、Write!

       fileLock:文件读写锁定方式:LockReadWrite!(Default)、LockRead!、LockWrite!、Shared!

       writeMode:文件写入模式:Append!:追加(Default);Replace!:替换(文件写时用到)

  例:li_open = FileOpen(filePathName,StreamMode!,Read!,LockReadWrite!)
3、FileRead(li_open,variable):将文件filePathName中的内容读入至变量variable中
4、FileWrite(li_open,variable):将变量variable的内容写入至文件filePathName中
5、FileSeek(li_open,-10/10,FromBeginning!/FromEnd!/FromCurrent!):文件内容查找(从开始位置/结束位置/当前位置,向前/后10个字节出查找)
6、FileCopy(sourceFile,targetFile,True/False):文件复制(将源文件sourceFile复制为目标文件targetFile;True:覆盖;False:不覆盖)
7、FileExist(filePathName):判断文件是否存在
8、FileDelete(filePathName):删除指定文件

二、FileOpen与FileRead及FileWrite的应用(FileRead、FileWrite文件读写时,以StreamMode!(流)的方式读写时,每次只能读写32765字节的数据,所以操作时需要进行判断)

1、FileOpen与FileRead事例

 

//定义函数gf_read_file(string ls_filePathName) 返回值为:string
//函数体如下:
//定义变量
string ls_fileName
int li_open,li_reads,li
long ll_fileLen
blob lb_read,gb_read

//打开文件
//ls_filePathName = "d:\update.sql"
//可以利用GetFileOpenName()获取需要打开的文件
//GetFileOpenName("打开文件",ls_filePathName,ls_fileName,"sql","File(*.sql),*.sql","c:\")
li_open = fileOpen(ls_filePathName,StreamMode!,Read!,lockReadWrite!)
//文件内容的大小(字节)
ll_fileLen = FileLength(ls_filePathName) 
//文件大小的判定,从而设定需要读取该文件的次数
if ll_fileLen>32765 then
    if mod(ll_fileLen,32765) = 0 then
        li_reads = ll_fileLen/32765
    else
        li_reads = ll_fileLen/32765 + 1
    end if
else
    li_reads = 1
end if
//清空变量
setnull(lb_read)
setnull(gb_read)

//文件读取
for li = 1 to li_reads
    if fileRead(li_open,lb_read) = -1 then
        return ""
    else
        gb_read = gb_read + lb_read
    end if
next
FileClose(li_open)

return string(gb_read) //文件内容读入得变量(blob类型)

 

posted @ 2014-02-14 09:54  吕坤  阅读(355)  评论(0编辑  收藏  举报