易语言开源模块分析查看器

模块_分析文件 (路径, 用户信息, 系统信息, 公开程序集, 公开类, 公开类型, 公开DLL, 公开常量, 公开全局变量) ' 模块my.ec 控件界面类库.ec GDIPlus类2.1.ec
文件号 ＝ 打开内存文件 ()
' 标题，图片索引，选中图片索引，项目数值，是否加粗，缩进层次
' 第四个整数：0:通常；1:加粗；2:展开；3:既展开又加粗
编辑框1.内容 ＝ “模块名称：” ＋ 用户信息.程序名称 ＋ #换行符 ＋ #换行符 ＋ “模块版本：” ＋ 到文本 (用户信息.版本号1) ＋ “.” ＋ 到文本 (用户信息.版本号2) ＋ #换行符 ＋ #换行符 ＋ “编译版本：” ＋ 系统信息.编译版本 ＋ #换行符 ＋ #换行符 ＋ “程序作者：” ＋ 用户信息.作者 ＋ #换行符 ＋ #换行符 ＋ “作者主页：” ＋ 用户信息.主页 ＋ #换行符 ＋ #换行符 ＋ “联系地址：” ＋ 用户信息.联系地址 ＋ #换行符 ＋ #换行符 ＋ “程序备注：” ＋ 用户信息.程序备注 ＋ #换行符 ＋ #换行符 ＋ “其他：” ＋ 用户信息.其他

成员数 ＝ 取数组成员数 (公开程序集)
.如果真 (成员数 ＝ 0)
返回 ()
.如果真结束
写出数据 (文件号, “子程序[” ＋ 到文本 (成员数) ＋ “]”, 0, 0, 0, 0, 1)
索引 ＝ 索引 ＋ 1
.计次循环首 (成员数, n)
成员数1 ＝ 取数组成员数 (公开程序集 [n].函数组)
写出数据 (文件号, “程序集” ＋ 到文本 (n) ＋ “[” ＋ 到文本 (成员数1) ＋ “]”, 0, 0, 合并整数 (n, 索引), 0, 2)
索引 ＝ 索引 ＋ 1
.计次循环首 (成员数1, m)
公开函数 ＝ 公开程序集 [n].函数组 [m]
写出数据 (文件号, 公开函数.名称, 0, 0, 合并整数 (m, 索引), 0, 3)
索引 ＝ 索引 ＋ 1
.计次循环尾 ()
.计次循环尾 ()