2,723
社区成员
发帖
与我相关
我的任务
分享关于IDE的查找工能
比如VISUAL STUDIO中我门可以打开一个项目，然后点快速查找，查找范围可以是当前文档或整个解决方案，
那么VFP的查找工能有没有”整个解决方案“，好像现在只能是单独查找一张FORM
那么VFP的查找工能有没有”整个解决方案“，好像现在只能是单独查找一张FORM
...全文
请发表友善的回复…
发表回复
ACMAIN_CHM 2011-02-25
- 打赏
- 举报
[Quote]IDE 环境下 Tools 菜单中的 Code References[/Quote]
KAMCHIHAU 2011-02-21
- 打赏
- 举报
是的，謝謝樓上兩位的，我是UPGRADE到VFP9了，我以為像VFP6一樣沒有
全PROJECT搜的，所以才瞎搞個涵數出來，謝謝的....
全PROJECT搜的，所以才瞎搞個涵數出來，謝謝的....
十豆三 2011-02-21
- 打赏
- 举报
[Quote=引用 2 楼 dkfdtf 的回复:]
IDE 环境下 Tools 菜单中的 Code References
[/Quote]
没错。（前提：VFP8.0 或 VFP9.0 ）
IDE 环境下 Tools 菜单中的 Code References
[/Quote]
没错。（前提：VFP8.0 或 VFP9.0 ）
都市夜猫 2011-02-21
- 打赏
- 举报
IDE 环境下 Tools 菜单中的 Code References
KAMCHIHAU 2011-02-21
- 打赏
- 举报
messagebox(searchdir("round")) &&舉例是把當前目錄中有round這個字的所有SCT文件掃出來
FUNCTION searchdir(searchstr)
dc=""
gnDbcnumber = ADIR(gadbf, '*.* ')
FOR nCount = 1 TO gnDbcnumber
filenameis = gadbf(nCount,1)
IF pre_match(filenameis,".SCT")=1
my_str=FILETOSTR(filenameis)
IF pre_match(my_str,searchstr)=1
dc=dc+filenameis+">"
ENDIF
endif
ENDFOR
RETURN dc
FUNCTION pre_match(original_str,match_str)
fromis=AT(ALLTRIM(match_str),ALLTRIM(original_str))
IF fromis > 0
RETURN 1
ELSE
RETURN 0
endif
