vbs的sort（数组排序）

最新推荐文章于 2022-08-08 22:46:25 发布
最新推荐文章于 2022-08-08 22:46:25 发布
阅读量1.1k 收藏
点赞数
本文介绍了一种使用VBA在Excel中对数组进行排序的方法。通过创建ArrayList对象并利用其内置的排序功能来实现对任意数组的有效排序。这种方法避免了手动实现排序算法的复杂性。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Function fSortArray(aSortThisArray)
Dim oArrayList, iElement
Set oArrayList = CreateObject( "System.Collections.ArrayList" )
For iElement = 0 To UBound(aSortThisArray)
oArrayList.Add aSortThisArray(iElement)
Next
oArrayList.Sort
set fSortArray = oArrayList
End Function

myarray=Array(50,20,30)
MsgBox myarray(0)
MsgBox fSortArray(myarray)(0)

'CreateObject( "System.Collections.ArrayList" )调用了mscoree.dll,是.NET Framework相关组件。

VB数组快速排序算法
miaozk2006的专栏
02-14 2679
VB数组排序模块，使用的是快速排序法，支持 Variant、Double、Long、String……等多种数据类型数组排序。 Option Explicit Private Sub QuicksortInt(list() As Integer, ByVal min As Integer, ByVal max As Integer)Dim med_value As IntegerDim ...
vbs的sort排序
09-06
vbs+sort排序效果代码
VBScript脚本实现数组排序
weixin_34216107的博客
11-03 548
1、需求：VBScript对数组的功能支持相对其他语言而言比较弱，然而在脚本应用中经常要使用数组，甚至对数组排序等，例如：遍历某个目录下的所有文件，并按某个规则依次保存到数组中。2、实现方法：既然VBScript本身的功能不够，那么可以调用.NET Framework相关组件（mscoree.dll）的功能，具体实现如下：1> 写个数组排序函数（参数：数组）：F...
ASP/VBS 数组快速排序
AMinfo的专栏
03-31 2503
ASP/VBS 数组快速排序方法： Function fsArray(thisArray) Dim oArrayList, iElement Set oArrayList = CreateObject("System.Collections.ArrayList") For iElement = 0 To UBound(thisArray) oArrayList.Add CLng(thi
js vbs 数组_[已解决]请问纯 VBS 数组排序算法怎么写？（要求纯 VBS 无组件）
weixin_39639698的博客
01-14 201
' 『表格字符串』指定列名、列号排序by yu2n' 指定列名(usr)排序：' sn,usr,pwd' 01,CCC,D00' 02,BBB,E11' 03,AAA,F22' =>' sn,usr,pwd' 03,AAA,F22' 02,BBB,E11' 01,CCC,D00' 指定列序号(2)排序：' 01,CCC,D00' 02,BBB,E11' 03,AAA,F22' =>...
vbs各种排序，字符串从小到大（升序）排序
weixin_30604651的博客
12-18 715
***vbs各种排序******** option explicit'接收输入：dim s,r,n,is=inputbox(vbcrlf&vbcrlf&"以空格隔开：","请输入一组数：","2007 10 18 21 15")if s="" then wscript.quitr=split(s," ")n=ubound(r) '把字符串转换为Double ...
VBS基础篇 - vbscript动态数组
08-27
使用 Sort 方法可以对动态数组进行排序。例如： ```vb Arrl.Sort ``` 删除指定元素 使用 Remove 方法可以删除动态数组中的指定元素。例如： ```vb Arrl.Remove("Element1") ``` 清空动态数组 使用 Clear 方法可以...
VBS 脚本中的字典、动态数组、队列和堆栈实现代码
08-27
动态数组排序： `Arrl.Sort` 删除指定元素： `Arrl.Remove("Element1")` 清空全部元素： `Arrl.Clear` 队列和堆栈 在 VBS 中，队列和堆栈可以使用 Scripting.Dictionary 对象和 System.Collections.ArrayList...
由vbs sort引发.NET Framework之间的关系说明
09-05
标题中的“由vbs sort引发.NET Framework之间的关系说明”指的是在Visual Basic Script (VBS)中如何使用.NET Framework的类来实现数组排序的功能。描述中提到的对话是问题的起因，表明VBS本身并不内置排序方法，但...
VBS_VBS操作EXCLE排序
05-28
通过VBS技术操作EXCEL列排序，内有具体说明
VB中三种排序方法
12-11
用冒泡法，选择法，比较法三种方法对一组数进行排序。
asp数组 排序
02-13
asp数组 排序,实现一维数组排序,二维数组排序
VBS 数组冒泡排序
weixin_30258901的博客
08-26 663
'定义变量 Dim arr1 '数组赋值 arr1 = array(3, 6, 8, 7, 1, 2, 9,10) For m = 0 To UBound(arr1) For i = m+1 To UBound(arr1) k=arr1(m) If arr1(m) < arr1(i) Then ...
VB-快速排序
BXA
08-10 4141
快速排序（QuickSort） 快速排序 像归并排序，快速排序是分而治之算法。它选择一个元素作为支点和周围的采摘支点给定的数组分区。 有迹象表明，挑支点以不同的方式快速排序的许多不同的版本。 总是挑一个元素作为支点。 总是挑最后一个元素为支点（下实现） 选择一个随机元素作为支点。 挑选位数作为支点。 在快速排序的关键过程是分区（）。分区目标，给定一个数组和X数组作为支点的元素，将X个
用VBS模拟二叉树，可以得到一个排序办法.
superdullwolf的专栏
07-21 1309
  数据结构知识：二叉树中序便历可以用来做排序而VBS里面恰恰就没有现成的排序方法，因此我写了一个用VBS的二叉树，来解决排序问题，中序便历就是排序。大家可以参考原理，应用到自己的程序中。 class node public data public Lnode public Rnode sub insert(newData)  if newData   if IsEmpty(Lno
字符串数组：排序并排除重复项
AMinfo的专栏
05-22 2183
字符串数组，需排除其中的重复项、重复值排除
VBA(14)排序Sort
热门推荐
q14091355的博客
08-08 1万+
VBA(14)排序Sort属性参数说明、自定义序列添加
php面试题之三——PHP语言基础（基础部分）
weixin_30746117的博客
06-25 813
三、PHP语言基础 1. strlen( )与 mb_strlen( )的作用分别是什么(新浪网技术部) strlen和mb_strlen都是用于获取字符串长度。 strlen只针对单字节编码字符，也就是说它计算的是字符串的总字节数。如果是多字节编码，如 gbk 和 utf-8，使用 strlen 得到是该字符的总字节数； 可以使用mb_strlen获取其字符个数，使用mb_strlen 要注意两...
PHP 实现冒泡排序算法 （php7.1数组赋值）
dmedaa的博客
11-07 503
冒泡排序 冒泡排序（Bubble Sort），是一种计算机科学领域的较简单的排序算法。 它重复地走访过要排序的元素列，依次比较两个相邻的元素，如果顺序（如从大到小、首字母从Z到A）错误就把他们交换过来。走访元素的工作是重复地进行直到没有相邻元素需要交换，也就是说该元素列已经排序完成。 这个算法的名字由来是因为越小的元素会经由交换慢慢“浮”到数列的顶端（升序或降序排列），就如同碳酸饮料中二氧化碳的气泡最终会上浮到顶端一样，故名“冒泡排序”。 算法原理 比较相邻的元素。如果第一个比第二个大，就交换他们
vbs 多维数组赋值
最新发布
03-22
<think>好的，用户想了解如何在VBScript中给多维数组赋值。首先，我需要回忆一下VBScript的数组处理机制。VBScript支持多维数组，但和现在的一些语言不同，它的数组索引是基于0还是基于1呢？对了，默认情况下是基于0的，但也可以通过Option Base 1调整，不过通常还是用0开始的比较多。 用户可能已经知道如何声明数组，但需要具体多维的赋值方法。首先，声明多维数组的关键字是Dim，然后是数组名和括号里的维度。例如，Dim arr(2,3) 会创建一个3行4列的二维数组（因为索引默认从0开始）。这点需要明确，用户可能对索引范围有误解，需要解释清楚。 接下来是赋值部分。多维数组需要指定每个维度的索引。例如，arr(0,0) = 1，arr(0,1) = 2，依此类推。可能需要给出一个具体的例子，比如二维数组的初始化，这样用户更容易理解。 不过，如果数组维度更高，比如三维，用户可能也需要知道如何处理。这时候需要说明如何嵌套使用索引，比如arr(i,j,k)的形式。同时，用户可能对动态数组感兴趣，即使用ReDim来调整大小。这里需要注意的是，ReDim Preserve只能调整最后一维的大小，这点需要强调，避免用户在使用时出错。 另外，用户可能会遇到需要循环赋值的情况，比如用For循环来填充数组元素。这时候可以给出一个例子，展示如何用嵌套循环来遍历多维数组。同时，提醒数组的索引范围，避免越界错误。 可能存在的误区包括：认为VBScript支持真正的动态多维数组，但实际上ReDim只能改变最后一维的大小。此外，VBScript不支持超过60维的数组，虽然这在实际情况中很少见，但也可以提一下。 总结步骤的话，应该先介绍声明多维数组，然后静态赋值，接着动态调整，最后循环初始化的例子。确保用户能够一步步理解，并注意常见的陷阱，比如索引越界和ReDim的限制。</think>在 VBScript 中，多维数组赋值需要遵循特定的语法规则。以下是逐步说明： --- ### 一、声明多维数组 使用 `Dim` 声明多维数组，格式：`数组名(维度1上限, 维度2上限,...)` ```vbscript Dim arr(2, 3) ' 声明 3x4 的二维数组（索引默认从0开始） ``` --- ### 二、直接赋值 通过指定每个维度的索引赋值： ```vbscript arr(0, 0) = 10 arr(0, 1) = 20 arr(2, 3) = 99 ``` --- ### 三、动态调整数组大小（使用 `ReDim`） 1. **动态声明未初始化的数组**： ```vbscript Dim arr() ' 先声明动态数组 ReDim arr(2, 3) ' 分配 3x4 的二维空间 ``` 2. **保留原有数据调整最后一维**（仅限最后一维可调整）： ```vbscript ReDim Preserve arr(2, 5) ' 扩展第二维到6个元素 ``` --- ### 四、循环初始化示例 用嵌套循环为二维数组赋值： ```vbscript Dim rows, cols rows = 3 cols = 4 Dim arr(rows, cols) For i = 0 To rows For j = 0 To cols arr(i, j) = i * 10 + j ' 示例赋值逻辑 Next Next ``` --- ### 注意事项 1. **索引范围**：默认从 `0` 开始，`Dim arr(2,3)` 的实际范围是： - 第一维索引：`0,1,2` - 第二维索引：`0,1,2,3` 2. **维度限制**：VBScript 最多支持 60 维数组（实际开发中极少使用高维数组） 3. **ReDim限制**：`ReDim Preserve` 只能调整最后一维的大小 --- ### 三维数组示例 ```vbscript Dim cube(1, 2, 3) ' 声明 2x3x4 的三维数组 cube(0, 1, 2) = 100 cube(1, 2, 3) = 200 ``` 通过上述方法，可以灵活操作多维数组的赋值和调整。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值