For Next循环中的新数组每次迭代VBS
For Next循环是一种在VBS（Visual Basic Script）中用于循环执行一段代码的结构。在For Next循环中，可以使用一个新数组来存储每次迭代的值。
新数组是一个用于存储数据的数据结构，它可以包含多个元素，并且每个元素可以是不同的数据类型。在每次迭代中，可以将特定的值存储到新数组中，以便在循环结束后进行处理或使用。
在VBS中，可以使用以下语法来创建和操作新数组：
Dim newArray() ' 声明一个新数组
ReDim newArray(10) ' 定义新数组的大小为11个元素（0到10）
newArray(0) = "Value 1" ' 将值存储到新数组的第一个元素中
newArray(1) = 2 ' 将值存储到新数组的第二个元素中
' ...
For i = 0 To UBound(newArray) ' 使用For Next循环遍历新数组
' 在每次迭代中处理或使用新数组中的值
MsgBox newArray(i)
Next在上述示例中，我们首先声明了一个新数组newArray()，然后使用ReDim语句定义了新数组的大小为11个元素。接下来，我们将一些值存储到新数组的不同元素中。最后，使用For Next循环遍历新数组，并在每次迭代中弹出一个消息框显示新数组中的值。
新数组在VBS中的应用场景很广泛，可以用于存储和处理各种类型的数据。例如，可以将用户输入的数据存储到新数组中进行验证和处理，或者从数据库中检索数据并存储到新数组中进行分析和操作。
腾讯云提供了多个与VBS相关的产品和服务，例如云服务器（CVM）、云数据库MySQL（CDB）、云存储（COS）等。您可以通过访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用指南。
相关·内容
3回答
最大字符串数组VisualBasic WSH
arrays、vbscript、wsh
我在VB中写了一个WSH脚本来读取通过.Run方法重定向的目录列表生成的大量目录列表。
目录清单大约有8400行，但每次我运行脚本时，都会执行以下循环
执行直到DirList.AtEndOfStream保留arrData(i) arrData(i) = DirList.ReadLine i=i+1循环
在1800到3500行之间的看似随机的范围内提前截断。这听起来像是数组大小问题还是shell内存限制？
我听说过有人解析大型日志文件，像我一样一次读取所有日志文件。
浏览 2提问于2010-11-13得票数 2
5回答
将每个最后一个值与数组中所有以前的值相加
php、arrays
我有一个值数组，需要将其转换为新数组，并将每个值与所有以前的值相加。例如(数组长度、键和值总是不同)，这就是我所拥有的：
Array
(
[0] => 1
[1] => 1
[2] => 5
[3] => 1
[4] => 1
[7] => 1
[8] => 3
[9] => 1
)
这就是我需要的：
Array
(
[0] => 1
[1] => 2
[2] => 7
[3] => 8
[4] => 9
浏览 4提问于2014-12-28得票数 6
回答已采纳
1回答
根据ID在foreach语句中将变量加在一起
php、google-analytics、opencart
我正在使用此代码来添加产品到谷歌分析跟踪。
<?php foreach($orderProducts as $product) { ?>
_gaq.push(['_addItem',
"<?php echo $product['order_id']; ?>",
"<?php echo $product['product_id']; ?>",
<?php echo json_encode($product['name
浏览 0提问于2013-01-24得票数 0
回答已采纳
3回答
VBA数组输出到Excel工作表
arrays、excel、vba
我遇到了一个问题，虽然很简单，但我有一个来自单元格的字符串，我使用Mid函数将字符串拆分成字符，并将其存储到一个数组中。现在，我想将数组打印到不同的范围，但我无法这样做。我已经尝试了很多不同的代码，但都是徒劳的。请帮帮忙。
我的代码是as
Option Base 1
Function Takseer(Rg As Variant)
Dim NewArray() As Variant
Dim StrEx As String
Dim k, l, m As Integer
StrEx = Rg
StrEx = WorksheetFunction.Substit
浏览 3提问于2021-05-15得票数 0
1回答
减少将宏加载复制到数组的运行时间以减少运行时间？还有其他建议吗？
arrays、excel、vba、runtime、copying
因此，我创建了一个复制宏，它遍历一个工作表列表，并将其中的数据复制到另一个工作表中。我正在使用赋值，没有选择或活动，并在开始时关闭ScreenUpdating等，但将文本复制到其他单元格仍然需要相对较长的时间(大约25秒)。我已经读过将我想要复制的文本加载到一个数组中，这样它就在RAM中，以使它运行得更快。遗憾的是，我不能让它与我现有的代码一起工作。如果你能帮助我做到这一点或有任何其他建议，使这运行得更快，我将不胜感激！这是我的整个代码，主要的循环片段，它完成了所有的工作，花了所有的时间在中间： Dim ws As Worksheet
Dim lr As Integer
Dim Spalt
浏览 11提问于2020-12-15得票数 0
4回答
谁能给我解释一下这个删除数组中重复值的函数是如何工作的？
javascript、arrays
我一直在寻找一个javascript函数，可以删除数组中的重复值。我发现了这个函数：
function removeDuplicateElement(arrayName)
{
var newArray=new Array();
label:for(var i=0; i<arrayName.length;i++ )
{
for(var j=0; j<newArray.length;j++ )
{
if(newArray[j]==arrayName[i])
continue
浏览 0提问于2012-11-23得票数 2
回答已采纳
2回答
在字符串数组中填充数据时，下标超出范围
vba、multidimensional-array
我正在尝试将一些引用数据存储在一个字符串数组中，然后使用它与另一个字符串数组进行比较。但是，由于我得到了一个“下标超出范围”错误(请参阅下面的代码注释)，所以代码无法工作。
Sub StoreBaseReferences()
Dim cell As Range
Dim val As Variant
Dim stringValues() As String
Dim i, rowCounter, columnCounter As Integer
rowCounter = 0
columnCounter = 0
For i = 2 To Sh
浏览 3提问于2013-09-09得票数 0
回答已采纳
6回答
我不理解数组是如何工作的
javascript、arrays、loops、for-loop
我正在做一个类，我被要求为循环数组编写以下代码，但我不理解它是如何工作的逐步过程。有人能给我解释一下吗？它是求平方根，但我不明白它是如何一步一步地工作的。
var oldArray = [12, 45, 6, 23, 19, 20, 20, 15, 30, 42];
// Write your code below this line
var newArray = [];
for (i = 0; i < oldArray.length; i++) {
newArray.push(oldArray[i] * oldArray[i]);
}
浏览 2提问于2016-12-29得票数 0
1回答
VBA代码给出了一致数据的不一致结果
excel、vba、duplicates
我已经用尽了我的知识/资源，试图弄清楚这个问题。我正在比较两个列A& B。如果A中的值包含在B中，那么我的代码应该只从A中删除该值。
A是一个完整的唯一列表，B是一个过滤的唯一列表。B中的每个值都应该出现在A中，A中值的最终计数总是2390，在我当前的数据中B的最终计数总是2218。算一算，我希望A栏中还有178行。
当我运行下面的代码时，每次都会得到不同的最终计数。253,242,249,246我似乎不明白这个问题是从哪里来的。我哪里出错了？
Sub RemoveDuplicateFromOneColumnComparingWithAnother()
Worksheets(2).
浏览 1提问于2015-04-03得票数 0
回答已采纳
1回答
如何从这些数据中获取对象数组，以便在reactjs中进行状态和计数
javascript、node.js、reactjs
我在这个对象数组中有数据文件，我需要状态数据和属于同一状态的人的数量，因为我需要一个具有状态的对象数组，它的计数像[{state,count},{state, count},{state,count}]一样，我如何才能获得这个反应？
浏览 16提问于2021-04-18得票数 4
2回答
如何仅以json而不是key:value对来显示值？
php、jquery、json、mysqli
我有我的mysqli查询：
$fetchTransactions = "SELECT * FROM transaction WHERE client_id = '$client_id'";
$result = $mysqli->query($fetchTransactions);
$data = array();
$data = $result->fetch_all( MYSQLI_ASSOC );
echo json_encode( $data );
它将json返回为：
[{"transaction_id":"1&
浏览 4提问于2015-10-19得票数 1
回答已采纳
2回答
“”循环与用于迭代数组的`.map`
javascript、reactjs
为什么在React中使用.map比使用for循环更好，这有什么特别的原因吗？
我正在做一个项目，其中所有的数组都是用for循环迭代的，但我相信这是使用.map更好的做法，因为它创建了数组的副本，据我所知，这是更好的做法，但我找不到具体的原因。
浏览 1提问于2020-03-21得票数 2
3回答
将单个值添加到多维数组vba，然后添加redim
arrays、vba、dynamic-arrays
我遇到了一些问题，试图填充多维变体数组。我要做的是向数组中的第1行第1列添加一个值。但是，以下代码不起作用。
Dim arr() As Variant
arr(1,1) = 3
在此基础上，当满足某些条件时，我希望向数组添加更多的值。例如
For c = 2 To 10001
Sheets("Data").Select
If Range("P" & c) = branch And Range("Q" & c) = dept And Range("R" & c) = subd
浏览 2提问于2014-04-26得票数 0
回答已采纳
1回答
我的数组不兼容吗？
arrays、vba、excel
我试图遍历一个包含拆分字符串的数组，该数组是通过以下行完成的：
repHolder() = Split(rep, ",")
但是，当我试图通过一个repHolder()循环遍历这个for数组时，每次都会遇到一个subscript out of range错误。
这对我来说毫无意义。当我每次遍历数组时，第一个元素都会失败；这一行：
If repHolder(j) = counter Then
我尝试将j设置为0和1，这两个选项在循环的第一个序列上都失败了。这对我来说是个建议，因为数组没有定义的大小；我不能以这种方式遍历它，但这对我来说还是没有什么意义，因为它仍然充满了元素。
下面
浏览 6提问于2017-08-02得票数 0
回答已采纳
3回答
从excel工作表中的短语列动态填充字符串数组
arrays、string、excel、vba
我有两张床单。我在表1中使用了一个用户定义的函数，其中我想使用一个数组来比较一些字符串。数组由第二个工作表中的单元格列的内容组成(名为“短语”)。
所以(从另一个角度看)在“短语”中，我把100个字符串输入到P列，3到102单元格中。我想把它们都放到一个数组中，我以后可以用它。
现在，让我让它变得复杂一点-我的意图是电子表格的用户将能够添加新的内容到列P，这样它最终可能是500个单元格或更多。所以我真的很想动态地填充这个数组。
这就是我现在的处境--而且它似乎不起作用：
Dim newarray() As String
Dim i As Long
Dim counter As Long
cou
浏览 5提问于2015-03-20得票数 1
回答已采纳
1回答
从数组中选择至少两个元素，使其GCD为1且代价最小问题的解释
c++、dictionary
在阅读问题的解决方案时，我注意到在遍历映射(第二个)的迭代期间，在某些情况下，某些插入是在同一个映射( 'else')中执行的。在这种情况下，for循环的行为是什么？迭代是否省略了新的插入？这是正确的吗？
编辑:这是代码
// C++ implementation of the approach
#include <bits/stdc++.h>
using namespace std;
// Function to return the minimum cost required
int getMinCost(int arr[], int n
浏览 25提问于2020-06-05得票数 0
回答已采纳
1回答
VBS -定义数组
vbscript
我编写了VBS脚本来计算C:\下的所有文件夹，代码如下： set wshell = createobject("WScript.Shell")
dim fso,file,subfolder,folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("\\192.168.0.201\thang\Learning\test.txt")
Set folder = fso.GetFolder("C:\")
dim i
浏览 31提问于2021-08-20得票数 1
回答已采纳
1回答
超出范围误差的下标(带有数组)
arrays、vbscript
我在VBS中有这样的代码：
Dim Arg()
Set objArgs = WScript.Arguments
for i=0 to objArgs.Count
Arg(i) = Replace(objArgs(i),"\n",vbNewLine,1,-1,1)
... (yes, the for has a Next at the end)
(示例参数："hello\nworld" "test" 0 64)
但是当我运行它时，它会抛出一个错误：The subscript is out of range (第4行，第3列)。
我是不正确地使用
浏览 4提问于2022-07-22得票数 1
回答已采纳
5回答
如何将一个数组复制到另一个已有数据的数组中？
java、arrays
我如何复制一个数组
float arraytobecopied[] = {1.20,2.50,3.60};
添加到另一个已包含数据的数组中，例如
float newarray[] = {5.20,6.30,4.20};
我希望将arraytobecopied添加到新数组的末尾，并保留数组中的值。另外，作为附注，这将是一个正在进行的过程，每次都会添加到数组的末尾。
我应该只使用for循环吗？还是有更好的方法。(无法使用数组)已尝试：(
浏览 0提问于2013-06-11得票数 6
回答已采纳
4回答
如何将字符串添加到数组VB.NET？
arrays、vb.net
我有一个像这样的数组
Dim array() As String = {}
和下面的代码
For i = 0 To membertable.Rows.Count - 1
If InStr(membertable.Rows(i)("name"), txtSearch.Text, CompareMethod.Text) - 1 _
<> -1 And txtSearch.Text.Length >= 3 Then
found = True
'add the item that matches the
浏览 2提问于2014-09-12得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
