VBS基础篇 - vbscript堆栈

实例代码

脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空

Option Explicit

'建立堆栈
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")

Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"

'查看堆栈中的元素数
WScript.Echo "堆栈中的元素数: " & Stk.Count

WScript.Echo

'遍历堆栈
Sub TraverseStk
  Dim ArrStk : ArrStk = Stk.ToArray
  Dim Counter
  For Counter = 0 To UBound(ArrStk)
    WScript.Echo ArrStk(Counter)
  Next
End Sub
TraverseStk

WScript.Echo

'元素出栈
WScript.Echo Stk.Pop
WScript.Echo "---"
TraverseStk

WScript.Echo

'清空堆栈
Stk.Clear
WScript.Echo "堆栈中的元素数: " & Stk.Count

调用方法：通过双击d.bat调用，d.bat代码如下：

cscript d.vbs
pause

运行结果截图：

可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序

赞 (0)

相关推荐

  • VBS基础篇 - vbscript堆栈

    实例代码 脚本文件:d.vbs,包含堆栈的添加元素(压栈).删除元素(出栈).遍历.统计元素个数.清空 Option Explicit '建立堆栈 Dim Stk : Set Stk = CreateObject("System.Collections.Stack") Stk.Push "Element1" Stk.Push "Element2" Stk.Push "Element3" '查看堆栈中的元素数 WScript.E

  • VBS基础篇 - vbscript常用函数及功能

    vbs常用函数 函数名 语法 功能 Abs Abs(number) 返回一个数的绝对值 Sqr Sqr(number) 返回一个数的平方根 Sin Sin(number) 返回角度的正玄值 Cos Cos(number) 返回角度的余玄值 Tan Tan(number) 返回角度的正切值 Atn Atn(number) 返回角度的反正切值 Log Log(number) 返回一个数的自然对数 Int Int(number) 取整函数,返回一个小于number的第一整数 FormatNumber

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

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

  • VBS基础篇 vbscript Sendkeys模拟键盘操作

    模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为:object.SendKeys(string) object:表示WshShell对象 string:表示要发送的按键指令字符串,需要放在英文双引号中 基本键 每个按键由一个或多个字符表示. 为了指定单一键盘字符,必须按字符本身的键.例如,为了表示字母 A,可以用 "A" 为了表示多个字符,就必须在字符后面直接加上另一个字符.例如,要表示 A.B 及 C,可用 "ABC"

  • VBS基础篇 - vbscript TextStream对象

    TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对象时,我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容.可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile(),来获取TextStream的对象句柄. 下面我们来具体的看看TextStream 对象的方法及属性的使用 TextStrea

  • VBS基础篇 - vbscript队列

    实例代码 脚本文件:c.vbs,包含队列的添加元素(入队).删除元素(出队).遍历.统计元素个数.清空 '建立队列 Dim Que : Set Que = CreateObject("System.Collections.Queue") Que.EnQueue("Element1") Que.EnQueue("Element2") Que.EnQueue("Element3") '查看队列中的元素数 WScript.Echo

  • VBS基础篇 - vbscript动态数组

    脚本文件:b.vbs,包含动态数组的添加元素.删除元素.遍历.统计元素个数.清空 实例代码 '建立动态数组 Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList") '添加元素 Arrl.Add "Element3" Arrl.Add "Element2" Arrl.Add "Element1" '查看动态数组中的元素数 WScript.Echo &q

  • VBS基础篇 - vbscript Dictionary对象

    Dictionary是存储数据键和项目对的对象,其主要属性有Count.Item.Key,主要方法有Add.Exists.Items.Keys.Remove.RemoveAll. 创建Dictionary对象 '定义并创建Dictionary对象,使用CreateObject创建并返回自动化对象的引用 Dim Dic Set Dic = CreateObject("Scripting.Dictionary") 添加键值 Dim Dic Set Dic = CreateObject(&q

  • VBS基础篇 - VBScript过程（使用sub 与 Function定义函数）

    我们一般都是在重复使用一些功能的时候,例如循环输出内容.分页的时候都会使用过程函数 Sub过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句.如果 Sub 过程无任何参数,则 Sub 语句必须包含空括号 (). 实例代码如下: Call GetName() '调用Sub过程 Sub GetName() MsgBox "我是我们" '输出字符串 End Sub Sub 过程可以使用参数(由调用过程传递的常数.变量或表达式).实例代码如下: Ca

  • VBS基础篇 - wscript 对象详解

    一.wscript对象 描述:提供对 Windows 脚本宿主对象模型根对象的访问. 详述:WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象.它可在任何脚本文件中使用,不需要特定的声明.         WScript 对象提供对以下信息的访问命令行参数, 脚本文件的名称,宿主文件名, 宿主版本信息.         WScript 对象可用来创建对象,连接对象, 与对象断开连接, 同步事件, 以编程方式停止脚本的执行,将信息输出到默认输出设备(Windows 对话框或命

随机推荐