请用VFP9，使用WinRAR或7z，将左侧第1个下划线 前 字符串 相同 的文件，压缩成一个压缩文件(压缩文件名就用下划线前的字符串命名)，压缩完成后，删除已经压缩的原文件，谢谢！

[此贴子已经被作者于2026-5-25 13:05编辑过]

实现方法不难，方法不知道是不是最优。以下是执行思路：
1、创建临时表1，用于保存文件名

2、将文件信息存放到数组中，然后返回文件个数
ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])

3、 把获取到的文件名保存到临时表1
FOR nCount = 1 TO gnDbcnumber  && 遍历数据库
   ? gaDatabase(nCount,1)  && 显示数据库名
ENDFOR

4、STREXTRACT，取字符第一个“—”的字符串update到一个字段里面

5、select “字段”，将左侧第1个下划线 前 字符串 相同 的文件读取到另外一个临时表2

6、do while 临时表2，执行rar压缩

7、保险起见，压缩完，检测一下rar，没有问题了再do while 临时表2删除文件

也可以用 windows api cabinet.dll
压缩算法有：MSZIP; XPRESS; Huffman 编码的 XPRESS; LZMS

试一试，谢谢！

吹版主，可否给一点示例？谢谢！

晚上抽空看看，调用几个 API 函数。

好的，谢谢！

谢谢！我学习学习，再试一试。