请问是否可以用文本文件执行代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问是否可以用文本文件执行代码

共有4216人关注过本帖树形打印复制链接主题：请问是否可以用文本文件执行代码

hongyefor

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：525 积分：3687 威望：0 精华：0 注册：2012/7/27 10:28:00

请问是否可以用文本文件执行代码 发帖心情

Post By：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

这样可以做吗？

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/1/27 14:36:00 [只看该作者]

s2文件中的字符要编译后才能执行的

hongyefor

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：525 积分：3687 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：2020/1/27 14:58:00 [只看该作者]

如何编译

y2287958

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：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

hongyefor

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：525 积分：3687 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：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里的代码不写入项目里

hongyefor

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：525 积分：3687 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：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)

这个代码不行啊

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

认真理解一下帮助：

http://www.foxtable.com/webhelp/topics/1487.htm

http://www.foxtable.com/webhelp/topics/1277.htm

hongye

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：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

’————————————————

下一主题 >> << 上一主题

主题：请问是否可以用文本文件执行代码