好玩的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

(0)

相关推荐

  • 好玩的vbs特色代码vbs栈类

    数据结构的问题相当重要,如果你能描述出一个问题的输入和输出数据结构,那么这个问题就大有希望,数据结构并不是C语言的专利,真正的数据结构是伪代码的.下面这个栈类是我以前搜集别人的代码,实际上每当考虑一个程序问题的时候,尤其是复杂的程序,就应该想到,用什么样的数据去描述你的输入和输出. '********************************************** '        vbs栈类 '        push(string)进栈 '        getTop取栈顶元素

  • 好玩的vbs特色代码第1/6页

    用什么来表示组合?比如从5个数里面选n个数,你怎么用一个数字来表述你的选择结果?注意是一个数字. 硬盘的权限就是一个例子,参考脚本手册FileSystem文件Attributes 属性部分: Normal 0 普通文件.不设置属性.  ReadOnly 1 只读文件.属性为读/写.  Hidden 2 隐藏文件.属性为读/写.  System 4 系统文件.属性为读/写.  Volume 8 磁盘驱动器卷标.属性为只读.  Directory 16 文件夹或目录.属性为只读.  Archive 

  • VBS基础篇 - vbscript class类的定义与使用

    从网上看到一个vbs中使用class的例子, 转出来,共同学习! Class 语句:声明一个类的名称,以及组成该类的变量.属性和方法的定义. vbs类的使用方法 类的结构: class 类名称      end class 调用方法 set myclass=new 类名称    中间类里面的代码,      类模块的事件过程. Private Sub Class_Initialize() 这里写上类实例化的时候执行的代码. end sub Private Sub class_terminate(

  • 抖音很火的vbs表白代码(简单实用!)

    好玩的循环表白代码 1,右键->新建文本文件 2,右键->编辑 3,粘贴下面代码 MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年的等待" MsgBox " 百世的轮回" MsgBox " 换你今朝一世情缘" MsgBox " 可否" dim a(5) a(0)=" 天大,地

  • vbs整人代码大集合 多年的代码收集

    一.你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 复制代码 代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.

  • Win7下VHD文件右键增强实现代码(vbs+注册表)

    1.保存以下代码到:c:\windows\system32\vdm.vbs 复制代码 代码如下: Dim ArgsSet Args = WScript.ArgumentsTranArgs = " "For i = 0 To Args.Count - 1 TranArgs = TranArgs & """" & Args(i) & """" & " " Ne

  • 可以将文件转换为vbs语句的vbs代码

    文章作者:xiaolu [BST] 信息来源:邪恶八进制信息安全团队(www.eviloctal.com) 这个不是exe2vbs 所有类型的文件都可以转化的 不过限于string的大小 文件不能太大 我测试过3m的文件是可以的 将下面的代码存为:file2vbs.vbs 复制代码 代码如下: 'Program By xiaolu  'name:file2vbs.vbs On error resume next do while 1 fname=InputBox("请输入要转换的文件名(包括路径

  • 最新恶意复制型病毒autorun.inf,stNP.VBS,NP.VBS代码简单解析和解决方法

    最新恶意复制型病毒autorun.inf,stNP.VBS,NP.VBS 及代码分析与病毒处理两种方法 方法一:来自于指间轻舞 此病毒最大的特点在于中毒后,自动感染你的硬盘根目录,并复制病毒文件.无论你是采用双击,还是右键选择打开,或者运行资源管理器都会自动运行其代码(病毒),所以中此病毒后,新手往往打不开盘符,导致数据无法读取. 下面是病毒的代码分析 文件总共有三个 都很简单,已经加上了注解. 文件名:autorun.inf 复制代码 代码如下: [autorun]  open=  shell

  • 雷客图 站长安全助手 vbs版代码(asp 木马查找)

    均在命令行下使用 AntiIframe.vbs #该脚本是批量挂马程序的逆向,用于批量清除被添加到文件中的恶意代码.记事本打开文件可以修改Pattern参数指定要处理的文件名,文件名之间用|隔开(也支持vbs正则表达式).由于要修改文件,请谨慎的使用(最好先备份文件) #用法: CScript AntiIframe.vbs [处理的路径] [包含清除内容的文件] #例子: CScript AntiIframe.vbs d:\Web d:\lake2.txt -------------------

  • C++中实现队列类链式存储与栈类链式存储的代码示例

    队列类链式存储 代码: linkqueue.hpp // 队列类 #pragma once #include "linklist.hpp" template <typename T> class LinkQueue { public: LinkQueue(); ~LinkQueue(); public: int clear(); int append(T &t); int retieve(T &t); int header(T &t); int le

随机推荐