• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    好玩的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代码
    下一篇:好玩的vbs特色代码第1/6页
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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