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


  共有3700人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
hongyefor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望: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

 

这样可以做吗?


 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2020/1/27 14:58:00 [显示全部帖子]

如何编译

 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望: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)

这个代码不行啊


 回到顶部