2.8w+
社区成员
- 全部
关于用VBScript定义类的问题：
例如用VBScript定义了一个类，如下：
class LNode
public col
public value
End class
请问如何把一个变量（如a）设成是这种类？如何引用这个类（变量）的成员变量（col、value)?
有没有关于vbscript的比较全面的书可以推荐看？
class LNode
public col
public value
End class
请问如何把一个变量（如a）设成是这种类？如何引用这个类（变量）的成员变量（col、value)?
有没有关于vbscript的比较全面的书可以推荐看？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
超级大笨狼 2004-10-16
<input value="看看superDullWolf的CNWord类引用实例,vbs,改进了一下，可以提供chinese出现的位置了" id="input1" style="width:100%"/>
<br/>
<button onclick="vbs:classAndRegExp">验证</button>
<script language = "vbscript">
sub classAndRegExp()
set wolf = new CNWord
wolf.str = input1.value
msgbox "含有中文数" & wolf.CNcount
msgbox "含有中文块数" & wolf.CNBlockCount
msgbox "第2个中文块是--->" & wolf.CN(2)
msgbox "第1个中文块出现的位置是--->" & wolf.CNIndex(1)
set wolf = nothing
end sub
</script>
<script language="vbscript">
class CNWord
public str
private sub Class_Initialize()
set regEx =new RegExp
regEx.IgnoreCase = True '设置是否区分大小写。
regEx.Global = True '设置全局可用性。
end sub
private regEx
Property get CN(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match
i = i + 1
next
if x<=maxBound then CN = Arr(x)
End Property
Property get CNIndex(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match.FirstIndex + 1
i = i + 1
next
if x<=maxBound then CNIndex = Arr(x)
End Property
Property get CNcount
'返回含有中文的字数
regEx.Pattern = "[\u4e00-\u9fa5]"
CNcount = findCHNnum()
End Property
Property get CNBlockCount
'返回含有中文的块数
regEx.Pattern = "[\u4e00-\u9fa5]+"
CNBlockCount = findCHNnum()
End Property
private function findCHNnum()
findCHNnum = regEx.Execute(str).count
end function
private sub Class_Terminate()
set regEx = nothing
end sub
end class
</script>
<br/>
<button onclick="vbs:classAndRegExp">验证</button>
<script language = "vbscript">
sub classAndRegExp()
set wolf = new CNWord
wolf.str = input1.value
msgbox "含有中文数" & wolf.CNcount
msgbox "含有中文块数" & wolf.CNBlockCount
msgbox "第2个中文块是--->" & wolf.CN(2)
msgbox "第1个中文块出现的位置是--->" & wolf.CNIndex(1)
set wolf = nothing
end sub
</script>
<script language="vbscript">
class CNWord
public str
private sub Class_Initialize()
set regEx =new RegExp
regEx.IgnoreCase = True '设置是否区分大小写。
regEx.Global = True '设置全局可用性。
end sub
private regEx
Property get CN(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match
i = i + 1
next
if x<=maxBound then CN = Arr(x)
End Property
Property get CNIndex(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Match
For each Match in regEx.Execute(str)
Arr(i) = Match.FirstIndex + 1
i = i + 1
next
if x<=maxBound then CNIndex = Arr(x)
End Property
Property get CNcount
'返回含有中文的字数
regEx.Pattern = "[\u4e00-\u9fa5]"
CNcount = findCHNnum()
End Property
Property get CNBlockCount
'返回含有中文的块数
regEx.Pattern = "[\u4e00-\u9fa5]+"
CNBlockCount = findCHNnum()
End Property
private function findCHNnum()
findCHNnum = regEx.Execute(str).count
end function
private sub Class_Terminate()
set regEx = nothing
end sub
end class
</script>
zerocci 2004-10-15
class LNode
public col
public value
End class
class A
Inherits LNode
End class
public col
public value
End class
class A
Inherits LNode
End class
gymxyl 2004-10-15
如果再定义一个类，其中类的成员变量想把它定义成结构LNode型的，可以实现吗？
就是说类套类，可以吗？
就是说类套类，可以吗？
rabbit666 2004-10-15
set a = new lnode
a.value=
a.value=
xiangyyy 2004-10-15
顶
gymxyl 2004-10-15
那怎样才能嵌套定义？
celliona 2004-10-15
这样不行，vbscript类不支持继承和多态
vbscript基础篇 - vbs变量定义与使用方法 VBScript只有一种数据类型 —— Variant，它是根据上下文来判断是数字还是字符串。因为Variant是VBScript中唯一的数据类型，所以它也是VBScript中所有函数的返回值的数据类型
vbsbricks:一组 VBScript 函数和子程序-源码 VBScript 被定义如下： VBScript (Visual Basic Scripting Edition) 是微软开发的一种基于Visual Basic 的Active Scripting 语言。 它被设计为具有快速解释器的“轻量级”语言，可在各种 Microsoft 环境中使用...
VBScript 基础知识 VBS是VisualBasic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它...
VBScript中的类 文章目录1 VBScript 中的类1.1 对象、类和组件1.2 类语句1.3 定义属性1.3.1 私有属性变量1.3.2 Property Let1.3.3 Property Get1.3.4 Property Set1.3.5 创建只读属性1.3.6 创建只写属性1.4 定义方法1.5 类事件1.5.1...
Microsoft VBScript 运行时错误 '800a01fa',类没有被定义: 'upload_5xSoft' 类没有被定义: 'upload_5xSoft' \ManageAdmin\ProductManageEditSave.asp, line 6 最近测试了几个网站，修改新闻时都出现相同的错误（如上） 用NETBOX调试ASP,所以就导致了这个错误.NETBOX不支持 <...
VBScript 用法 在 标签中，请使用 type 属性来定义脚本语言 “text/vbscript”： … IE 将解释和执行 和 之间的 VBScript 代码。 VBScript 不应该被用作客户端脚本语言！ 在这里，我们使用仅适用于 IE 的 VBScript 的用于...
<VBScript>VBS（五）VBScript中的类class详解 创建VBScript类的关键字是Class语句。跟用Function……End Function或Sub……End Sub语句设定过程的边界类似，...可以在一个脚本中使用多个Class…End Class代码块定义多个类（但是在VBScript中类不能嵌套）。 ...
VBScript把json字符串解析成json对象的2个方法 主要介绍了VBScript把json字符串解析成json对象的2个方法,本文通过MSScriptControl.ScriptControl和jscript实现,需要的朋友可以参考下
在Web网页上使用VBScript 和JScript 在Web网页上使用VBScript 和JScript 综述：本文讨论了VBScript和 JScript之间的区别，以及它们的使用场合。本文还讨论了： Visual InterDev中的VBScript 和JScript 内联服务器脚本和单元 脚本执行顺序 如果...
VBScript中变量作用域 下午在写程序的时候，碰到个变量重定义的问题，具体是在一个函数中的两个地方定义了相同的变量，两个变量分别放在IF语句的两部分中，本来以为这两次定义在语句中不同的块，应该没有影响，然而在运行中IIS却提示变量...
VBScript：基本语法 行注释用' 一行一个语句，行尾什么都不能加。 代码断行时行尾用" _"(空格下划线，不包括双引号)连接。 如果vbs脚本文件中有中文，要把vbs文件保存为ANSI编码再运行，若保存为UTF-8编码中文会乱码...
Microsoft VBScript 运行时错误 '800a01f4' 变量未定义: 'upload_5xSoft' 的解决办法 Microsoft VBScript 运行时错误 800a01fa 类没有被定义: upload_5xSoft 很简单，如果用的不是IIS，而用的是netbox，就会产生这样的问题，只需要把netbox不支持的语句换掉：方案一 把upload.inc里面的 换成 接着把 ...
参考：VBScript 运行时错误与解释 VBScript 运行时错误 如果 VBScript 脚本执行系统无法实施的操作，则会产生 VBScript 运行时错误。只有在运行脚本、为变量表达式赋值或分配内存时，才会产生 VBScript 运行时错误。 以下是65个运行时错误：错误...
超详细教程：PowerDesigner 使用VBScript从Excel导入表结构（脚本带注释） 美中不足的地方是对于单个字段的调整不是很灵活，需要点开表，找到列点来点去的调整，不能快速的ctrl c ctrl v，而且查找也不是很方便，这种时候就想到了用Excel来维护表结构，在Excel先定义好表的各个字段名，含义...
关于ASP的(VBScript)类 首先ASP的(VBScript)类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明（哈哈，我是现学现卖，说得不好请见谅） 在 Class 块中，成员通过相应的声明语句被声明为 ...
VBSCRIPT中文手册 VBSCRIPT中文手册,这里的信息可以帮你很方便地浏览 Visual Basic 脚本的许多不同部分。 你可以找到在按字母排序的关键字列表中列出的 VBScript 语言的所有部分。如果你只想调阅某一部分，例如“对象”，那么语言的每...
VBScript Vbs 脚本编程简明教程之一—为什么要使用Vbs？ 在 Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周 也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动...
Javascript与vbscript数据共享 如有纰漏之处，请指出，谢谢 1、普通全局变量 在browser里，引用一个全局变量，可以有很多方法，你可以直接引用该变量，也可以用window.variable来引用全局变量，原因是因为全局变量属于window的窗体，但是当每新开...
Microsoft VBScript 编译器错误 错误原因 代码大全 Microsoft VBScript 编译器错误 错误 '' 缺少语句 ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)...
<VBScript>VBS（一）VBScript的简介、优缺点介绍、VBS的用法 do msgbox(“你的电脑中毒啦！”) msgbox(“请重启”) msgbox(“哈哈，校草最帅！你同意不？”) msgbox(“你关不掉我吧！继续在心里面默认喜欢我！”) msgbox(“气死你！...msgbox(“继续再来一遍”) ...
html显示vbs变量,vbscript基础篇 - vbs变量定义与使用方法 一、申明变量① 显式声明：Dim、Public、Private语句进行声明② 隐式声明：不声明直接使用③ 强制声明：Option Explicit语句强制显式声明所有变量?二、变量作用域在VBScript中有三种变量作用域：① 脚本级作用域变量...
asp(vbscript)中自定义函数的默认参数实现代码 现代语言的函数中都可以带有默认参数,在vbscript系统内建的函数可以带有可选值(如常用的 split()等等),然而我们自己定义的函数中无法具有此功能. 下面提供一个方法实现可选参数的功能. functin foo(dtype, dsize,...
VBScript中Msgbox函数的用法 MsgBox(prompt[, buttons][, title][, helpfile, context]) [用途]：弹出对话框，并获取用户的操作结果。 [参数说明]： propmt:对话框中展示的文本内容。 buttons:对话框中的按钮组合、默认按钮以及提示图标...
