重组人干扰素怎么打:有关操作文本文件的一些问题
有关操作文本文件的一些问题
(2009-07-30 08:26:41)杂谈
分类: vf学习在VF中,有时需要把表内容转换成.txt文件,以前对这方面内容不够重视,没有很好的学习,现整理一下:
1 库文件复制为标准格式的数据文件
copy to bz.txt sdf next ... for ...
2文本数据文件复制到在DBF文件
append form...sdf... 用法和copy to 一样
3几个打开TXT文件的函数
dd=fcreat('路径+文件名',n)
当一个文件已存在时,则会导致原文件内容丢失,为避免,应用file()函数来测试文件是否存在
dd=fopen(路径+文件名',n)
=feof(dd)
=fflush(dd)
=filetostr('路径+文件名')
=fputs(dd,内容,写入符数)
=fwrite(dd,内容,写入符数)
fread(dd,读取的字节数)
fget(dd,读取的字节数)
=fseek(dd,字节数1,移到到位置n)
置,为2表示文件尾。=seek(dd,0,0)表示移动到文件头。=seek(dd,0,2)可返回文件的总字节数。=fseek(dd,0,1)返回文
件指针的当前位置。 =fseek(dd,10,1)将文件指针从当前位置向后移动10个字节。
ferror() 取得低级文件执行的错误码错误号 错误原因
果函数执行不成功,此函数返回一个正值。下列出了 FERROR( ) 函数返回的各个错误编号及错误原因 2文件没有
找到
文件指针时出错(无法将指针移到文件开始位置之前)
数据表加密解密程序
此程序在VPF6中通过并且无论经过多少次加密都一次解出
加密程序
newname="mmsd.dbf"
dbf_f_name=UPPER(ALLTRIM(newname)) && 文件名处理(变成大写)
hhandle=FOPEN(dbf_f_name,2) && 打开文件或通信端口,供低级文件函数使用
IF hhandle>0 &&如果fopen()打开文件,返回一个大于零的值
ENDIF hhandle>0
RETURN
解密程序如下
newname="mmsd.dbf"
dbf_f_name=UPPER(ALLTRIM(newname)) && 文件名处理(变成大写)
hhandle=FOPEN(dbf_f_name,2) && 打开文件或通信端口,供低级文件函数使用
IF hhandle>0 && 打开文件或通信端口,供低级文件函数使用
ENDIF
=FCLOSE(hhandle)
RETURN
JUSTDRIVE( ) 函数
JUSTEXT( ) 函数
JUSTFNAME( ) 函数
JUSTPATH( ) 函数
JUSTSTEM( ) 函数