“合并” TDI 和 TBZ 使用的 WINAPI “函数”

firstxinjie

发布于 2024-12-06 14:24:48

2480

在 VFP 应用开发过程中，TDI 和 TBZ 两个库是很有用的。但是，其作者采用了一种“非主流”的组织方式来使用 WIN API 函数：每一个 API 函数，都是一个以下划线开始的 PRG 文件。一共有多少个这样的文件呢？29 + 74 个文件......

我看着项目管理器里这一大堆 PRG......反正我是头晕......

因此，我写了下面的代码：

_CLIPTEXT = []

For each loFile in _VFP.ActiveProject.Files
  If Left(JustFname(m.loFile.name), 1) == [_] And Upper(JustExt(m.loFile.name)) == [PRG]
    _CLIPTEXT = _CLIPTEXT + Chr(10) + Chr(13) + ;
          [Function ] + JustStem(m.loFile.name) + Chr(10) + Chr(13) + ;
          FileToStr(m.loFile.name) + Chr(10) + Chr(13) + ;
          [EndFunc]
  EndIf 
EndFor

OK，执行后，我就可以将一大堆 PRG 文件“合并”到一个 PRG 文件里了......这个世界清爽了......

Follow me，认识不一样的 VFP ！

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-06-14，如有侵权请联系 cloudcommunity@tencent.com 删除

api