- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问是否可以用文本文件执行代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145514)
-- 发布时间：2020/1/27 14:18:00
-- 请问是否可以用文本文件执行代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:s1.txt |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:s2.txt |
我有两个文件，我的目的是用代码执行S2文件
Dim s As String = FileSys.ReadAllText("D:\\用户管理\\s2.txt", Encoding.Default)
Output.Show(s)
然后再用s2里的代码执行
Dim s As String = FileSys.ReadAllText("D:\\用户管理\\s1.txt")
Output.Show(Eval(s))
最后结果等于2
这样可以做吗？
-- 发布时间：2020/1/27 14:36:00
--
s2文件中的字符要编译后才能执行的
-- 发布时间：2020/1/27 14:58:00
--
如何编译
-- 发布时间：2020/1/27 16:01:00
--
Dim s1 As String = FileSys.ReadAllText(ProjectPath & "s1.txt", Encoding.Default)
Dim s2 As String = FileSys.ReadAllText(ProjectPath & "s2.txt", Encoding.Default)
Dim s As String = s2.Replace("Eval(s)","Eval(""" & s1 & """)")
If s > ""
Functions.Add("test",s)
Functions.Complie()
Functions.Execute("test")
Functions.Remove("test")
End If
-- 发布时间：2020/1/27 17:41:00
--
我需要的是任何将s2.txt和s1.txt里的代码实现
Dim s As String = FileSys.ReadAllText("D:\\用户管理\\s2.txt", Encoding.Default)
Output.Show(s)
其他的在s1.txt，s2.txt里的代码不写入项目里
-- 发布时间：2020/1/27 17:42:00
--
Dim sa As String = FileSys.ReadAllText("D:\\用户管理\\s2.txt", Encoding.Default)
Functions.Add("s0",Eval(sa))
Output.Show(s0)
这个代码不行啊
-- 发布时间：2020/1/28 10:49:00
--
4楼代码我测试没有问题，如果不理解，就看看调试结果
Dim s1 As String = FileSys.ReadAllText(ProjectPath & "s1.txt", Encoding.Default)
msgbox(s1)
Dim s2 As String = FileSys.ReadAllText(ProjectPath & "s2.txt", Encoding.Default)
msgbox(s2)
Dim s As String = s2.Replace("Eval(s)","Eval(""" & s1 & """)") ‘s2代码里面的s要替换为s1的内容
msgbox(s) ‘看替换后的结果
If s > ""
Functions.Add("test",s)
Functions.Complie()
Functions.Execute("test")
Functions.Remove("test")
End If
认真理解一下帮助：
-- 发布时间：2020/1/28 11:53:00
--
‘————使用文本执行代码————
Dim s As String = FileSys.ReadAllText("D:\\用户管理\\s2.txt", Encoding.Default)
If s > ""
Functions.Add("test",s)
Functions.Complie()
Functions.Execute("test")
Functions.Remove("test")
End If
’————————————————