当前位置：文江博客话题详情

GetRef 来捕获方法？

发布于 2024-09-04 19:08:44 字数 108 浏览 4 评论 0原文

我刚刚发现了 VBScript 的 GetRef 函数，它获取对其参数命名的函数的引用。有没有办法以这种方式获取对方法的引用？我有一种预感，VBScript 不提供这样做所需的复杂绑定，但它肯定会很好。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

对你的占有欲 2024-09-11 19:08:44

不，GetRef 不支持类方法。

回复收藏 0 原文

关于从前 2024-09-11 19:08:44

有一个解决方法，请参阅我的答案这里

这里是完整的示例

Const forReading = 1, forWriting = 2, forAppending = 8, CreateFile = True
Set my_obj = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\temp\test.txt", forWriting, CreateFile)

Function my_function(my_obj, method, text)
  command = "my_obj." & method & " """ & text & """"
  ExecuteGlobal command
End Function

'make a reference to our function
Set proc = GetRef("my_function") 
'and call it with parameters, the first being the method invoked
Call proc(my_obj, "WriteLine", "testing")

'cleanup'
my_obj.Close
Set my_obj = Nothing

There is a workaround for this, see my answer here

Here the full sample

Const forReading = 1, forWriting = 2, forAppending = 8, CreateFile = True
Set my_obj = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\temp\test.txt", forWriting, CreateFile)

Function my_function(my_obj, method, text)
  command = "my_obj." & method & " """ & text & """"
  ExecuteGlobal command
End Function

'make a reference to our function
Set proc = GetRef("my_function") 
'and call it with parameters, the first being the method invoked
Call proc(my_obj, "WriteLine", "testing")

'cleanup'
my_obj.Close
Set my_obj = Nothing

回复收藏 0 原文

~没有更多了~