Foxtable(狐表)用户栏目专家坐堂 → 有没有办法实现 我输入函数名 并且输入对应的代码后 点击保存后将我写的函数名和代码 对应写成如开发模式下 创建内部函数一样的操作呢?


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

主题:有没有办法实现 我输入函数名 并且输入对应的代码后 点击保存后将我写的函数名和代码 对应写成如开发模式下 创建内部函数一样的操作呢?

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
有没有办法实现 我输入函数名 并且输入对应的代码后 点击保存后将我写的函数名和代码 对应写成如开发模式下 创建内部函数一样的操作呢?  发帖心情 Post By:2020/7/9 20:09:00 [只看该作者]

在移动开发中 网络监视器写入如下代码:
Dim wb As New weui
Select Case e.Path
    
    Case "", "default.htm" '首页
        e.AsyncExecute = True  '通知系统,将采用异步方式生成网页
        Functions.AsyncExecute("default", e) '异步调用函数生成网页
    Case Else
        e.WriteString("404.htm")
End Select

在内部函数功能中 创建default函数 并写入代码  

启动web服务  可以打开default.htm页面

经过实际使用中,如果项目发布后,我想修改default函数内容就必须再次打开项目文件进行修改后编辑并重新生成项目,有点不方便。

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看
有没有办法实现 我输入函数名  并且输入对应的代码后  点击保存后
将我写的函数名和代码  对应写成如开发模式下   创建内部函数一样的操作呢?

以下内容是专门发给有点蓝浏览




[此贴子已经被作者于2020/7/9 21:53:21编辑过]

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/9 20:30:00 [只看该作者]


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)参考:http://www.foxtable.com/webh...  发帖心情 Post By:2020/7/9 20:55:00 [只看该作者]

有点蓝老师  已经参照帮助学习了一下  

现在同步当前按钮事件代码如下:
Functions.Remove(Tables("内部函数表").Current("函数名称"))
Dim Code As String
Code = "Dim e As RequestEventArgs = args(0)" & vbcrlf
Code = Code & Tables("内部函数表").Current("代码") & vbcrlf
MessageBox.Show(code)
Functions.Add(Tables("内部函数表").Current("函数名称"),Code)
Functions.Complie()
Tables("内部函数表").Current("代码")=code
Tables("内部函数表").Current.Save()
怎么实现Dim e As RequestEventArgs = args(0)永远只有一行呢?也就是如果当前“代码”有值后就先判断是否有这行文本,如果有就不增加 ,如果没有就增加   
同时该同步操作后   函数并没有转换成 htm页面    
(1、不是生成htm页面哦 而是想直接调用函数的方式 用htm页面展示函数的代码运行效果
2、不想写入固定的网络监控事件代码里面去,因为后续需要灵活添加内容)

打开网页按钮事件代码如下:
Dim port As Integer = Tables("zwsystem").Current("port")
Dim IP As String = Tables("zwsystem").Current("ip")
Dim www As String
Dim htm As String =Tables("内部函数表").Current("网页名")
'MessageBox.Show(htm)
If port=0 Or port=80 Then
    www="http://"& IP & "/" & htm
Else
    www="http://" & IP & ":" & port & "/" & htm
End If
If Tables("内部函数表").Current("是否启用")=True Then
    Dim Proc As New Process
    Proc.File = www
    Proc.Start()
Else
    MessageBox.Show("尚未启用")
End If

实现函数名称为logon的时候,那对应就打开http://127.0.0.1:8080/logon.htm 但是当前因为“同步当前”没有生成htm,导致无法打开 直接提示空白页
[此贴子已经被作者于2020/7/9 21:02:49编辑过]

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


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

使用substring获取前面的几十个字符是否是【Dim e As RequestEventArgs = args(0)】不是就添加

按钮事件执行后就可以在httprequest里调用这个函数了,类似:

Select Case e.Path
    Case "xxxx.htm"
       Functions.execute(Tables("内部函数表").Current("函数名称"),e)

 回到顶部