VFP知识点点.docVIP

VFP知识点点 设置目录路径 1.如何取得系统目录 nPath_ls=fullpath(,2) nPath=strtran(nPath_ls,COMMAND.COM,) 　取得Windows\的目录名 *如果想得到SYSTEM目录则： nPath=strtran(nPath_ls,COMMAND.COM,system\) 取得Windows\system\的目录名 当然下面的代码更简单： mWinPath=getenv(windir) 　取得Windows\的目录名 2.如何取得运行程序的盘符和当前目录 Dqml=sys(5)+sys(2003)+\ 3.设置隐含路径 DQML=SYS(5)+SYS(2003) CXLJ=SYS(16) FOR JSQ=1 TO LEN(CXLJ) CXZF=LEFT(RIGHT(CXLJ,JSQ),1) IF CXZF=\ CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,) EXIT ENDIF ENDFOR SET DEFAULT TO CXLJ 即把exe文件所在有目录设为隐含目录。 4.调用WINDOWS对话框 GETPRINTER()显示 Windows 的“打印设置”对话框，并返回所选择的打印机名称 GETFILE( )显示“打开”对话框，并返回选定文件的名称 GETFONT( )显示“字体”对话框，并返回所选定字体的名称 GETCOLOR( )显示 Windows 的“颜色”对话框，并返回选定颜色的颜色编号 GETPICT( )显示“打开图象对话框”对话框，并返回选定图片文件的文件名 5.如何取得某个文件的大小、修改日期及属性 Vfp为我们提供了一个非常强大函数ADIR(), 语法： ADIR(ArrayName [, cFileSkeleton [, cAttribute [, cCreatorType]]]) 使用： X=Adir(Myml,C:\TEMP\*.DBF) 返回： X=符合cFileSkeleton条件的文件或目录个数 （数值型） Myml=一个有五列内容的数组。 这五列的含义是： 1 文件名 　字符型 2 文件大小 数值型 3 文件日期 日期型 4 文件时间 字符型 5 文件属性 字符型 例：我们想得到某个文件的大小或文件修改日期及属性： X=Adir(Myml,C:\TEMP\abc.DBF) IF X#0 　 wjsize=Myml(1,2) 取得文件大小 　 wjdate=Myml(1,3) 取得修改日期及属性 　 wjAttr=Myml(1,5) 取得文件属性 ELSE 　 wait wind 没有您指定的文件！ ENDIF 文件属性的含义： A 档案文件 一 可读写 H 隐藏文件 R 只读文件 S 系统文件 D 目录或文件夹 我们利用Adir()还可以检查某个目录是否存在： X=Adir(Myml,C:\ABCDE,D) IF X=0 　　wait wind 该目录不存在... ENDI 当然用下面的更简单： if ! file(C:\ABCDE\nul) 　　wait wind 该目录不存在... endi 总之Adir()可以达到很多目的，具体使用请看查看帮助。 6.如何删除只读属性的文件 Vfp没有提供改变文件属性的命令或函数，在Vfp代码中无法删除只读属性的文件，我发现可以利用Rename命令来解决。 如c:\temp\XX1.DAT是一个只读属性的文件。 Rename c:\temp\XX1.DAT TO C:\RECYCLED\XX1.DAT 将XX1.DAT文件改名到RECYCLED[回收站]，就等于删除了该文件。 VFP下的Rename命令当TO后面的文件夹与前面的不一致时，相当于资源管理器里的剪切命令，这是不是也是BUG呢？ 7.如何改变文件的属性 Vfp没有提供改变文件的属性的命令或函数，要想改变文件的属性必须转个弯，先把原文件改名，再拷贝回一个然后再删除就到达了目的， 如有一文件： XX1.DAT是只读属性的文件，不改属性无法往文件里写新内容。 Rename c:\temp\XX1.DAT TO C:\temp\XX1.DDD 　　　先改名 Copy file C:\temp\XX1.DDD to C:\temp\XX1.DAT　　再拷贝 Rename c:\temp\XX1.DDD TO C:\RECYCLED\XX1.DAT 　再删除 这样新拷贝的XX1.DAT就是解除了只读属性的文件了。 表格： 1.表格（Grid）控件的 View 属性设为1或2可以得到如下界面，即左窗口为浏览，右窗口为编辑格式 此主题相关图片如下： 2.问：在用表格显示数据表的内容时，我