Foxtable(狐表)用户栏目专家坐堂 → HttpRequest读取


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

主题:HttpRequest读取

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10507 威望:0 精华:0 注册:2013/6/8 16:19:00
HttpRequest读取  发帖心情 Post By:2021/7/23 10:39:00 [只看该作者]

可不可以把HttpRequest代码全部放在 文本文档 (.txt)里面,让HttpRequest读取,文本文档 (.txt)里面的代码执行

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/23 10:41:00 [只看该作者]


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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10507 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/7/23 10:52:00 [只看该作者]


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


这样


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


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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/23 11:01:00 [只看该作者]

要编译为动态函数才能调用http://www.foxtable.com/webhelp/topics/1487.htm

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10507 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By: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()


直接用吗

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/23 11:06:00 [只看该作者]

txt文件发上来

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10507 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/7/23 11:12:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:httprequest.txt


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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10507 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/7/23 11:35:00 [只看该作者]


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

[此贴子已经被作者于2021/7/23 11:39:53编辑过]

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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()

 回到顶部
总数 18 1 2 下一页