有没有办法实现我输入函数名并且输入对应的代码后点击保存后将我写的函数名和代码对应写成如开发模式下创建内部函数一样的操作呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在移动开发中网络监视器写入如下代码：

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编辑过]

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

现在同步当前按钮事件代码如下：

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编辑过]

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

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

Select Case e.Path
Case "xxxx.htm"

Functions.execute(Tables("内部函数表").Current("函数名称"),e)

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

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