好玩的vbs特色代码vbs栈类
数据结构的问题相当重要,如果你能描述出一个问题的输入和输出数据结构,那么这个问题就大有希望,数据结构并不是C语言的专利,真正的数据结构是伪代码的。下面这个栈类是我以前搜集别人的代码,实际上每当考虑一个程序问题的时候,尤其是复杂的程序,就应该想到,用什么样的数据去描述你的输入和输出。
'**********************************************
' vbs栈类
' push(string)进栈
' getTop取栈顶元素
' pop去掉栈顶元素
' isempty是否栈空
' isfull是否栈满(pMax设置了大小,可自行修改)
'
' 木鸟 2002.10.10
' http://www.aspsky.net/
'**********************************************
class Stack
private pArr, pString, pMax
private tab
private sub class_initialize()
tab=chr(9)
pMax=1000 '最大容量
end sub
private sub class_terminate()
if isarray(pArr) then
erase pArr
end if
end sub
public function push(str)
if str<>"" and instr(str,tab)<1 and not Isfull then
if isarray(pArr) then
pString=join(pArr,tab)
end if
pString=pString & tab & str
pArr=split(pString,tab)
push=true
else
push=false
end if
end function
public function GetTop()
if not isarray(pArr)<0 then
GetTop=null
else
if ubound(pArr)<0 then
GetTop=null
else
GetTop=pArr(Ubound(pArr))
end if
end if
end function
public function Pop()
if not isArray(pArr) then
Pop=false
else
if Ubound(pArr)<0 then
Pop=false
else
pString=join(pArr,tab)
pString=left(pString,inStrRev(pString,tab)-1)
pArr=split(pString,tab)
Pop=true
end if
end if
end function
public function Isempty()
if not isArray(pArr) then
Isempty=true
else
if Ubound(pArr)<0 then
isempty=true
else
isempty=false
end if
end if
end function
public function Isfull()
if not isArray(pArr) then
Isfull=false
else
if ubound(pArr)<pMax then
Isfull=false
else
Isfull=true
end if
end if
end function
end class
- 好玩的vbs特色代码第1/6页
- vbs简单好玩的代码段
- VBS代码:数字转英文代码
- VBS中常用脚本代码
- 黑客必须要知道的几个vbs文件代码
- VBS清除全盘网页文件被挂马代码【VBS专杀】
- vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码
- 用python做的一个好玩的问候代码-学习笔记12
- vbs 查找硬盘分区中指定扩展名文件的实现代码
- 用VBS修改IIS Metabase的代码
- VBS实现的系统服务备份优化代码
- VBS 强制关闭Symantec Endpoint Protection的代码
- 利用VBS脚本自动创建计算机帐户的代码
- VBS脚本使用WMI操作注册表的代码第1/2页
- 用vbs操作注册表实例代码
- IIS_Manager(vbs代码)
- 用vbs编写的将vbs代码中的Replace转换成Java的replace(第一版)
- VBS建立不死账户随cmd启动(代码)