以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有办法实现 我输入函数名 并且输入对应的代码后 点击保存后将我写的函数名和代码 对应写成如开发模式下 创建内部函数一样的操作呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152223)
--  作者：李孝春
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2020/7/9 20:30:00
--  
参考：http://www.foxtable.com/webhelp/topics/1487.htm
--  作者：李孝春
--  发布时间：2020/7/9 20:55:00
--  回复：（有点蓝）参考：http://www.foxtable.com/webh...
有点蓝老师  已经参照帮助学习了一下  

现在同步当前按钮事件代码如下：
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编辑过]
--  作者：有点蓝
--  发布时间：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)