才学习VBScript非常郁闷，为什么报错？

[lzl]

就这么一个小函数，为什么老出错

ToJavaName()
Sub ToJavaName()
dim r
Set r = "AABB"
WScript.Echo r
end sub

Error:缺少对象 :'[string:"AABB"]'
Code:800A01A8

[挨踢直男]

把 set 拿掉

[wuyq11]

i = 1
WScript.Echo i

[xingyuebuyu]

http://www.jb51.net/article/26210.htm

object类型的才需要Set

ToJavaName()
Sub ToJavaName()  
  r = "AABB"
  WScript.Echo r
end sub

[lzl]

谢谢大侠帮助，可以了

[lzl]

还是郁闷啊，稍微变换一下又报这个错，本人想在powerdesign中导出java类和derby的建表语句，想把名字转成java习惯的命名。
ToJavaName("AA_BB") '希望得到AaBb
Sub ToJavaName(name)
dim r,p,s
s = name.toLowerCase()
p = InStr(name, "_")
r = name.substring(0,p)
WScript.Echo r
end sub
VbsEdit\Temp\CPAKBDVV.vbs(4, 4) Microsoft VBScript 运行时错误: 缺少对象: 'name'

[挨踢直男]

我感觉你把 js 和 vbs 混在一起了

[挨踢直男]

ToJavaName("AA_BB") '希望得到AaBb
Sub ToJavaName(name) 
  dim r,p,s
  s = lcase(name)
  p = InStr(name, "_")
  r = left(name,p)
  WScript.Echo r
end sub 

[lzl]

那知道vbscript的帮助把js，vb混在一起，我没看清，谢谢aspwebchh指点