vfp编程：计算一个文本文件中的字符数,并报告其中空格的个数

可以用ADIR(）函数，比如文本文件在当前默认路径下，名叫 test.txt

ADIR(arrayname,'test.txt')

在数组arrayname（1，2）中就是这个文件的大小，文本文件没有格式，文件大小就是字节数。

******************************************
ADIR( ) 函数
将文件信息存放到数组中，然后返回文件个数。

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

参数
ArrayName
指定数组名。如果数组不存在，Visual FoxPro 将自动创建此数组。如果数组存在，但其大小不足以包含所有信息，则 Visual FoxPro 自动增加数组大小，使得数组能容纳所有信息。如果数组超过了所需大小，Visual FoxPro 将截掉多余部分。如果数组存在，并且 ADIR( ) 函数由于没找到匹配文件而返回 0，则数组保持不变。如果数组不存在，并且 ADIR( ) 函数返回零，则不创建数组。下表说明了数组中每列的内容及其数据类型: 列 数组内容 数据类型
1
文件名
字符型

2
文件大小
数值型

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

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

5
文件属性
字符型

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

H
隐藏文件

R
只读文件

S
系统文件

D
目录或文件夹

cFileSkeleton