快速提取源码中个别功能代码如模块中的子程序

大部分代码提取自第二届源码大赛大神写的作品！

觉得用它提取模块中一个功能命令非常实用。

代码还不是很完善大家一起修改优化。

wce.cbSize ＝ 48
wce.lpfnWndProc ＝ 到整数 (&窗口消息代理)
wce.hInstance ＝ GetModuleHandle (0)
wce.hCursor ＝ LoadCursor (0, #IDC_ARROW)
wce.lpszClassName ＝ “ShuGuang”
wce.hbrBackground ＝ #COLOR_BTNSHADOW
RegisterClassEx (wce) ' ’ 注意上面没有赋值的 wce 成员，易语言默认初始化为0
' 创建窗口
hwnd ＝ CreateWindowEx (#WS_EX_TOPMOST, “ShuGuang”, “正在分析...”, #WS_VISIBLE, _启动窗口.左边 ＋ (_启动窗口.宽度 － 300) ÷ 2, _启动窗口.顶边 ＋ (_启动窗口.高度 － 100) ÷ 2, 300, 100, 0, 0, GetModuleHandle (0), 0)
SetTimer (hwnd, 0, 500, 0)
' 消息循环
.判断循环首 (GetMessage (msg, 0, 0, 0) ≠ 0)
TranslateMessage (msg)
DispatchMessage (msg)
.判断循环尾 ()

' 文件名 ＝ API保存文件对话框 (_启动窗口.取窗口句柄 (), “保存源码”, , “易语言源码文件（*.e）|*.e”, , “*.e”)
.' 如果真 (文件名 ＝ “”)
' 返回 ()
.如果真结束
' 写到文件 (文件名, 数据)
' 写到文件 (“d:\aa.txt”, 到字节集 (取相关代码 (编辑框1.内容, 编辑框2.内容, 1)))
子程序文本 ＝ 显示项目 (树型框1.取项目数值 (树型框1.现行选中项))
.计次循环首 (树型框1.取项目数 (), i)
.如果真 (寻找文本 (子程序文本, 树型框1.取项目文本 (i － 1), , 假) ≠ -1)
相关子程序 ＝ 相关子程序 ＋ #换行符 ＋ 显示项目 (树型框1.取项目数值 (i － 1))
.如果真结束

.计次循环尾 ()
子程序文本 ＝ 相关子程序
相关子程序 ＝ “”
.计次循环首 (树型框1.取项目数 (), i)
处理事件 ()
.如果真 (寻找文本 (子程序文本, 树型框1.取项目文本 (i － 1), , 假) ≠ -1)
相关子程序 ＝ 相关子程序 ＋ #换行符 ＋ 显示项目 (树型框1.取项目数值 (i － 1))
.如果真结束

.计次循环尾 ()