以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  HttpRequest读取  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170358)
--  作者：qazlinle6
--  发布时间：2021/7/23 10:39:00
--  HttpRequest读取
可不可以把HttpRequest代码全部放在 文本文档 (.txt)里面，让HttpRequest读取，文本文档 (.txt)里面的代码执行
--  作者：有点蓝
--  发布时间：2021/7/23 10:41:00
--  
读取文件：http://www.foxtable.com/webhelp/topics/0344.htm
--  作者：qazlinle6
--  发布时间：2021/7/23 10:52:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20210723105106.png
图片点击可在新窗口打开查看


这样


图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20210723105139.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/7/23 11:01:00
--  
要编译为动态函数才能调用：http://www.foxtable.com/webhelp/topics/1487.htm
--  作者：qazlinle6
--  发布时间：2021/7/23 11:04:00
--  
Dim Code As string
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Dim Val2 As Integer = 2" & vbcrlf
Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code = Code & "Return Sum"
Functions.Add("Sum",Code)
Functions.Complie()


直接用吗
--  作者：有点蓝
--  发布时间：2021/7/23 11:06:00
--  
txt文件发上来
--  作者：qazlinle6
--  发布时间：2021/7/23 11:12:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:httprequest.txt
--  作者：有点蓝
--  发布时间：2021/7/23 11:17:00
--  
txt文件第一行加上：
Dim e As RequestEventArgs = args(0)

afteropenproject
Dim s As string = FileSys.ReadAllText("c:\\data\\table.txt")
Functions.Add("Sum",s)
Functions.Complie()

httprequest
Functions.Execute("Sum",e)
--  作者：qazlinle6
--  发布时间：2021/7/23 11:35:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20210723113935.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/7/23 11:39:53编辑过]
--  作者：有点蓝
--  发布时间：2021/7/23 11:42:00
--  
Dim s As string = FileSys.ReadAllText("c:\\data\\table.txt")
Functions.Remove("Sum")
Functions.Add("Sum",s)
Functions.Complie()