求教VFP的小问题！！！！！！！！

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

老总让我写个程序，实现将同一类型的文件汇总，方便随时查找。

如：通知和通知放在一起，通过程序可以查找、打开，帐单和帐单在一起，可以方便的查找打开。

同时，需要一个目录方便一起查找，建立一个录入程序，方便以后文档的更新。

这是系统功能的要求，我只学过一点的VFP，不会其它的写程序方法，希望大家能给我一些指导，小的拜谢了，要不就下岗了…………

解析:

你可以用Adir()试一下,把搜索到的文件名和路径保存到表里面，再从表里搜索你需的文件，如果是所需文件名，则打开。

呵呵，是不是简单了一点？如果有问题，可以E-mail联系我，我的主页上面有地址和QQ号。

以下是ADIR的帮助说明：

ADIR( ) 函数

将文件信息存放到数组中，然后返回文件个数。

语法

ADIR(ArrayName [, cFileSkeleton [, cAttribute [, cCreatorType]]])

参数

ArrayName

指定数组名。如果数组不存在，Visual FoxPro 将自动创建此数组。如果数组存在，但其大小不足以包含所有信息，则 Visual FoxPro 自动增加数组大小，使得数组能容纳所有信息。如果数组超过了所需大小，Visual FoxPro 将截掉多余部分。如果数组存在，并且 ADIR( ) 函数由于没找到匹配文件而返回 0，则数组保持不变。如果数组不存在，并且 ADIR( ) 函数返回零，则不创建数组。

下表说明了数组中每列的内容及其数据类型：

列 数组内容 数据类型

1 文件名 字符型

2 文件大小 数值型

3 文件最后修改日期 日期型

4 文件最后修改时间 字符型

5 文件属性 字符型

数组的最后一列包含匹配文件的文件属性。每个文件属性值由一个字母表示，一个文件可有多个属性。下表说明每个字母表示的文件属性含义：

字母 属性

A 档案文件 一 可读写

H 隐藏文件

R 只读文件

S 系统文件

D 目录或文件夹

cFileSkeleton

指定文件梗概，以便存储满足搜索条件的文件名或扩展名的文件信息。例如，条件可以是所有表、所有文本文件、所有文件名第一个字母为“A”的文件，等等。这些通配查询在 cFileSkeleton 中可以包含通配符 和 。其中问号代表单个字符，星号代表任意字符串。在文件梗概中，可在任意位置使用任意个数的通配符。

在 Visual FoxPro、FoxPro for Windows 和 FoxPro for MS-DOS 中，可以指定驱动器和目录名，程序将在此驱动器和目录下搜索匹配文件。如果不指定驱动器和目录名，将把当前目录下的文件信息存入数组中。

在 FoxPro for Macintosh 中，可以搜索匹配文件名的卷和文件夹。如果不指定卷和文件夹，

FoxPro for Macintosh 将当前文件夹中的文件信息存入数组中。

cAttribute

指定在返回内容中包含子目录或嵌套文件夹、隐藏或系统文件、或者卷名。

cAttribute 可以是 D、H 和 S 的任意组合。如果包含 D，除了返回匹配 cFileSkeleton 的文件名外，还将返回当前目录的子目录或当前文件夹的嵌套文件夹。如果包含 H，将返回与 cFileSkeleton 指定相匹配的隐藏文件信息。如果包含 S，将返回与 cFileSkeleton 指定通配文件名相匹配的系统文件信息。

如果 cFileSkeleton 为空字符串，仅返回子目录或嵌套文件夹名、隐藏或系统文件。

cAttribute 参数中包含字符 V，将返回当前驱动器的卷名。如果 V 和 D、H 或 S 一起包含在数组中，则只返回卷名。卷名存入数组的第一个元素中，并截去数组的其余部分。

cCreatorType

仅用于 FoxPro for Macintosh。

用指定的创建程序类型指定文件。如果参数 cFileSkeleton 为空字符串，则仅有匹配指定创建程序类型 cCreatorType 的文件放置到数组中去。如果在参数 cfileSkeleton 中有一个文件梗概，则匹配文件梗概且具有 cCreatorType 指定的创建程序类型的文件被放入数组中。

若要获取 FoxPro for Macintosh 所有的文件扩展名以及相关的创建程序类型，请参阅文件扩展名与文件类型。

返回值类型

数值型

说明

对于每一个文件，ADIR( ) 将文件名、大小、日期、时间和属性信息存入数组。

thisformlabel1caption=alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月"+alltrim(str(day(date())))+"日"

选中label控件，在属性中找到“宋体”，调整即可

你是想把日期型改为字符型吧？\x0d\假设存储“01/30/82”的字段名（列名）为“日期a”\x0d\\x0d\需要新建一个字段，也就是新建一列。\x0d\modi stru，新建一个字符型的字段，比如“日期b”。\x0d\\x0d\然后使用如下命令：\x0d\set century on\x0d\set date ansi\x0d\repl 日期b with dtoc(日期a)\x0d\\x0d\这样就将日期a中的日期型数据，存储到了日期b字段中，类型为字符型

以上就是关于求教VFP的小问题！！！！！！！！全部的内容，包括:求教VFP的小问题！！！！！！！！、请问Vfp中表单的标签怎样显示当前日期、在VFP中日期格式怎么修改等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！