以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态函数的问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88832)
--  作者：ericsky
--  发布时间：2016/8/10 11:25:00
--  [求助]动态函数的问题？
每个动态函数按照我的电脑性能越0.25-0.3秒，效率是在太低，
但是我发现，编译时间长短与代码量无关，所以我试了下，把所有的函数打包编译成一个大函数，也是0.25-0.3秒，函数调用也没问题
这就完美解决了编译效率的问题

想请教各位老师，这样做有没有后遗症，不胜感谢！
--  作者：大红袍
--  发布时间：2016/8/10 11:32:00
--  
动态编译，主要是启动的时候耗时，可以整体编译的。
--  作者：kao_go
--  发布时间：2017/7/18 15:01:00
--  回复：（ericsky）[求助]动态函数的问题？
请教，你是怎么把多个动态函数打包成一个大的函数的呢？
--  作者：有点甜
--  发布时间：2017/7/18 15:19:00
--  
以下是引用kao_go在2017/7/18 15:01:00的发言：
请教，你是怎么把多个动态函数打包成一个大的函数的呢？

 

需要编译的函数，一起编译不就好了？
--  作者：y2287958
--  发布时间：2017/7/18 16:19:00
--  
同问：如何一起编译？（大函数里包含多个小函数吗？）请明示
--  作者：有点甜
--  发布时间：2017/7/18 16:24:00
--  

有什么问题？

 

Dim Code As String
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Functions.Execute(""aaa"", val1)"
Functions.Add("test",Code)
Functions.Complie()

 

Code = "msgbox(args(0))"
Functions.Add("aaa",Code)
Functions.Complie()

 

Functions.Execute("test")