以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128911)
--  作者：hbhb
--  发布时间：2018/12/18 9:20:00
--  动态函数
大师：请问如何动态管理一个带参数的函数，下面的写法为什么不对？
Dim Code As String
Code = "dim a as string = args(0)" &  vbcrlf
Code = Code & "Dim ifo As new FileInfo(a) " & vbcrlf
Code = Code & "qsnd = ifo.Name.replace(ifo.Extension,nothing)"

Output.Show(Code)
Functions.Add("qsnd10",Code)
Functions.Complie()
--  作者：有点甜
--  发布时间：2018/12/18 9:25:00
--  

Dim Code As String
Code = "dim a as string = args(0)" &  vbcrlf
Code = Code & "Dim ifo As new FileInfo(a) " & vbcrlf
Code = Code & "dim qsnd = ifo.Name.replace(ifo.Extension,nothing)" & vbcrlf
code = code & "return qsnd"


Output.Show(Code)
Functions.remove("qsnd10")
Functions.Add("qsnd10",Code)
Functions.Complie()

Dim s = Functions.Execute("qsnd10", "d:\\test.jpg")
msgbox(s)
--  作者：hbhb
--  发布时间：2018/12/18 17:48:00
--  
还是不行

执行后显示：


编译错误：应为语句结束

错误代码：dim a as string = args(0)Dim ifo As new FileInfo(a)
--  作者：有点甜
--  发布时间：2018/12/18 18:11:00
--  

 

我测试2楼代码没问题，请认真测试啊。

 

 
--  作者：hbhb
--  发布时间：2018/12/18 18:53:00
--  
奇怪，原有项目执行不行，新项目可以？why?
--  作者：有点蓝
--  发布时间：2018/12/18 20:17:00
--  
代码没有拼正确，Output.Show(Code)显示什么？把显示的结果复制到命令编辑器中执行，看哪里有问题