VFP表单文件转为文档

[tcfan]

请问高手，如何将一个VFP的表单文件.SCX转为文档格式的清单？

[winsonruan]

是啊！我也想知道，也曾经提问！但是好像没有人办法哦！唉……！

[winsonruan]

最好是包括表单内各对象的属性方法程序等等一次过生成文档，那就好了！

[nononono]

主菜单-工具-向导-文档

用于生成项目等文件的文档。

[zhongyj]

我抽空寫一個簡單的

[zhongyj]

*C:\temp.txt是輸出文件
#Define crlf chr(13)+chr(10)
#Define tab chr(9)
Local fhandle,cFileName,wstring

cFileName=getfile("SCX")
If file(cFileName)
fhandle=fcreate("C:\temp.txt")
If fhandle>0
Sele 0
Use (cFileName) shared noupdate
Scan
wstring="Objname:"+OBJNAME+crlf
wstring=wstring+"Class:"+Class+crlf
wstring=wstring+"ClassLoc:"+ClassLoc+crlf
wstring=wstring+"BaseClass:"+BaseClass+crlf
wstring=wstring+"Parent:"+Parent+crlf
wstring=wstring+"Properties:"+Properties+crlf
=fwrite(fhandle,wstring)
Endscan
=fclose(fhandle)
use
Else
messagebox("建立文件失敗.")
Endif
Endif
messagebox("已經完成.")