- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这又错了吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177471)
-- 发布时间：2022/5/23 21:30:00
-- 这又错了吗？
Dim s As String = FileSys.ReadAllText("F:\\用户管理\\s2.txt", Encoding.Default)
If s > "" Then
msgbox(s)
Functions.Add("test", s)
Functions.Complie()
Functions.Execute("test")
Functions.Remove("test")
End If
此主题相关图片如下：01.jpg
s2.txt的内容
Dim sw As String = FileSys.ReadAllText("F:\\用户管理\\s1.txt")
Output.Show(Eval(sw))
-- 发布时间：2022/5/23 22:19:00
--
最新版本已经取消了动态编译功能
-- 发布时间：2022/5/23 22:46:00
--
这个功能不是很好的吗，取消了可惜啊，有什么代码可以代替呢
-- 发布时间：2022/5/23 22:51:00
--
没有替代的，只能直接到自定义函数里输入代码使用