8

在 VBScript 中,您可以通过 COM 自动化使用某些 .net 类。当您想使用动态数组、列表、队列等时,这会派上用场。

如果我可以将字符串用作对象,那就太好了,所以我可以用它来做所有花哨的字符串,但是每当我从另一个对象传递一个字符串时,VBScript 将它视为文字字符串而不是字符串对象:

Set s = CreateObject("System.Text.StringBuilder")
s.Append_3 "I love deadlines. I like the whooshing sound they make as they fly by."

' This gives me the literal string
MsgBox s.ToString
text = s.ToString

' But unfortunately this won't work
MsgBox s.ToString.Length
Set stringRef = s.ToString

将字符串创建为 COM 对象也不起作用:

Set s = CreateObject("System.String")      ' Nope.

有没有人解决了这个问题,或者对此有其他想法?

4

2 回答 2

7

您可以使用一些方法和属性,但不是全部。以下内容有效,但从您使用 toString 的那一刻起,您就有了一个行为如此的 vbscript 变量。

Set s = CreateObject("System.Text.StringBuilder")
s.Append_3 "I love deadlines. I like the whooshing sound they make as they fly by."
s.Append_3 "and the rest."
wscript.echo s.Length
wscript.echo s.Capacity
wscript.echo chr(s.chars(0))
wscript.echo s.Replace("t", "d").Replace("l", "k").toString

83
140
I
I kove deadkines. I kike dhe whooshing sound dhey make as dhey fky by.and dhe resd.

但是例如以下不起作用,尽管它是 stringbuilder 的一种方法http://msdn.microsoft.com/en-us/library/system.text.stringbuilder_methods.aspx 不要问我为什么

s.Insert 1, "insert this"

s.Insert_2 7, "insert this"

确实有效

我还在 Ruby 中编程,您也可以在其中使用这些对象,并且行为相同。对于某些对象,我可以枚举属性或方法,例如 Excel

require 'win32ole'
excel = WIN32OLE.new('Excel.Application')
properties = excel.ole_get_methods
properties.each do |property|
  p property.to_s
end

给出了一个很长的列表,比如

"Application"
"Creator"
"Parent"
"ActiveCell"
"ActiveChart"
"ActiveDialog"
"ActiveMenuBar"
"ActivePrinter"
"ActiveSheet"
"ActiveWindow"
"ActiveWorkbook"
etc etc

但对于 System.Text.Stringbuilder 而言并非如此,我想这是由于程序员将他的方法和属性暴露给外部的方式。

可悲的是,我认为在 vbscript 中直接使用 System.String 是不可能的。

于 2012-08-07T22:44:39.230 回答
0

你有没有尝试过。Msgbox len(s.ToString) 或简单的 MsgBox(s.Length)

或者,您可以创建自己的 .Net 类并将其公开给 com,该类将充当您要公开的静态字符串函数的包装器......

于 2012-05-14T11:52:34.807 回答