redim preserve

时间: 2024-09-14 20:06:23 浏览: 16
`ReDim Preserve` 是在一些编程语言中,特别是Visual Basic系列语言(包括VB.NET)中用来动态调整数组大小的语句。在数组被初始化后,如果需要增加或减少数组中的元素数量,而又想保留数组中已有的数据,就可以使用 `ReDim Preserve`。 使用 `ReDim Preserve` 可以改变数组的最后一个维度的大小,但需要注意的是,每次使用 `ReDim Preserve` 时只能改变数组的最后一个维度的大小,并且无法增加数组的维数。这样做通常会涉及到数组数据的复制,因为系统需要重新分配内存以适应新的大小,这可能会影响程序的性能。此外,频繁地使用 `ReDim Preserve` 会使代码效率降低,因此在设计程序时应尽量减少使用。 下面是一个简单的例子来说明如何在VB.NET中使用 `ReDim Preserve`: ```vb.net Dim numbers(2) As Integer numbers(0) = 1 numbers(1) = 2 numbers(2) = 3 ' 增加数组的最后一个维度的大小,并保留原有数据 ReDim Preserve numbers(3) numbers(3) = 4 ' 输出当前数组元素 For Each num In numbers Console.WriteLine(num) Next ```
相关问题

vba redim preserve

b'vba redim preserve'是一种在Visual Basic for Applications (VBA)中使用的重置动态数组大小并保留现有数据的语句。这意味着您可以更改现有数组变量的大小而不会丢失数据。在使用Redim Preserve时,您必须先声明一个动态数组变量,然后使用Redim命令来增加或减少数组的大小。使用Preserve关键字可以保留数组中的现有数据,以便可以继续使用。

Redim preserve 的语句使用

Redim Preserve 是一种用于重新定义数组大小的语句,它允许你更改数组的大小并且保留其中的数据。具体使用方式为:先声明一个数组,然后使用 Redim Preserve 重新定义该数组的大小,同时保留该数组的数据。如下所示: Dim arr() As Integer Redim Preserve arr(5) 这将声明一个 Integer 数组,并将其大小设置为 5。然后,如果我们需要将数组大小改为 10,同时保留其中的数据,我们可以使用以下代码: Redim Preserve arr(10) 这将重新定义数组的大小,并将其大小设置为 10,同时保留前 5 个元素的值。注意,Redim Preserve 只能用于动态单维数组,而不能用于静态数组或多维数组。

相关推荐

帮我合并以下宏程序 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, cell As Range Dim arr() As Variant Dim cnt As Long Dim isCopying As Boolean ' 如果B1单元格为空,直接退出Sub过程 If Me.Range("B1").Value = "" Then Exit Sub If Not Intersect(Target, Me.Range("B1")) Is Nothing Then Sheets("点位提取").Range("C5:C200").ClearContents If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已被清空 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Set rng = Me.Range("B1:B2000") cnt = 0 isCopying = False For Each cell In rng If cell.Value = ":BEGIN" Then isCopying = True ReDim arr(2000) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "开始提取数据 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If ElseIf cell.Value = ":END" Then isCopying = False ReDim Preserve arr(cnt - 1) Sheets("点位提取").Range("C5").Resize(cnt, 1).Value = Application.Transpose(arr) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已进行提取完毕 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Exit For End If If isCopying And cell.Value <> ":BEGIN" Then arr(cnt) = rng.Cells(cell.Row, 1).Value cnt = cnt + 1 End If Next cell End If On Error GoTo ErrorHandler Exit Sub ErrorHandler: If Me.Range("AH36").Value = True Then Me.ListBox2.AddItem Err.Description & " " & Format(Now, "hh:mm:ss") Me.ListBox2.ListIndex = Me.ListBox2.ListCount - 1 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim j As Integer Dim k As Integer Dim ws As Worksheet Set ws = ActiveSheet If Target.Address = "$B$2" Then For i = 9 To 40 For j = 2 To 7 If ws.Cells(i, j).Value = ws.Cells(8, 5).Value Then For k = 3 To 4 ws.Cells(i, j + k - 2).Value = ws.Cells(Application.Match(ws.Cells(i, 1).Value, ws.Range("AK9:AK40"), 0) + 8, k).Value Next k End If Next j Next i End If End Sub

Public Function UpdateStencilData(stencil As StencilDetailEntity) As Boolean Dim arrSql(2) As String If stencil.IsDateEdit Then '当状态不是维修状态下不用添加维修时间 arrSql(0) = $"UPDATE M_StencilDetails SET StencilID='{stencil.StencilID}',StencilName='{stencil.StencilName}',Thickness='{stencil.Thickness}' ,location_char='{stencil.Location.Substring(0, 1)}',location_no='{stencil.Location.Substring(1)}',workshop='{stencil.WorkShop}' ,MakeDate='{stencil.MakeDate}',StartDate='{stencil.StartDate}',StateID ={stencil.StateID},stencilUsesCount={stencil.StencilUseCount} ,Notes='{stencil.Notes}' " Else '当状态不是维修状态下不用添加维修时间 arrSql(0) = $"UPDATE M_StencilDetails SET StencilID='{stencil.StencilID}',StencilName='{stencil.StencilName}',Thickness='{stencil.Thickness}' ,location_char='{stencil.Location.Substring(0, 1)}',location_no='{stencil.Location.Substring(1)}',workshop='{stencil.WorkShop}' ,MakeDate='{stencil.MakeDate}',StateID ={stencil.StateID},stencilUsesCount={stencil.StencilUseCount} ,Notes='{stencil.Notes}' ,StartDate=NULL" End If If stencil.StateID = 3 Then arrSql(0) = arrSql(0) & $",repairDate='{stencil.RepairDate}' " End If arrSql(0) = arrSql(0) & $" where ID={stencil.ID}" '钢网编号发生改变时 If stencil.StencilID <> stencil.oldStencilID Then arrSql(1) = $"delete M_StencilAndProduct where StencilID='{stencil.oldStencilID}'" arrSql(2) = $"update M_StencilOperationLog set StencilId='{stencil.StencilID}' where StencilID='{stencil.oldStencilID}'" Else arrSql(1) = $"delete M_StencilAndProduct where StencilID='{stencil.StencilID}'" arrSql(2) = $"update M_StencilOperationLog set StencilId='{stencil.StencilID}' where StencilID='{stencil.StencilID}'" End If ReDim Preserve arrSql(3) arrSql(3) = $"insert into M_StencilOperationLog (StencilID,Time,Nickname,Reason,Operation) values ('{stencil.StencilID}','{stencil.Time}','{stencil.Nickname}' ,'{stencil.OperationReason}','{stencil.Operation}')" If stencil.StateID <> 2 Then ReDim Preserve arrSql(4) If stencil.ProductName.Count <> 0 Then Dim sql = $"insert into M_StencilAndProduct (StencilID,ProductName) values('{stencil.StencilID}','{stencil.ProductName(0)}')" For i = 1 To stencil.ProductName.Count - 1 sql += $",('{stencil.StencilID}','{stencil.ProductName(i)}')" Next arrSql(4) = sql End If End If Return DBHel.ExecuteNoQueryMul(arrSql, 1) > 0 End Function 请在原有逻辑的情况下对以上代码进行优化,让代码具有更好的可读性,可维护性,提升性能,并说出理由

在以下宏中帮我把查找结果输出到对应的AL9-EG40单元格中 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, cell As Range Dim arr() As Variant Dim cnt As Long Dim isCopying As Boolean Dim i As Integer Dim j As Integer Dim k As Integer Dim ws As Worksheet Set ws = ActiveSheet ' 如果B1单元格为空,直接退出Sub过程 If Me.Range("B1").Value = "" Then Exit Sub If Not Intersect(Target, Me.Range("B1")) Is Nothing Then Sheets("点位提取").Range("C5:C200").ClearContents If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已被清空 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Set rng = Me.Range("B1:B2000") cnt = 0 isCopying = False For Each cell In rng If cell.Value = ":BEGIN" Then isCopying = True ReDim arr(2000) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "开始提取数据 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If ElseIf cell.Value = ":END" Then isCopying = False ReDim Preserve arr(cnt - 1) Sheets("点位提取").Range("C5").Resize(cnt, 1).Value = Application.Transpose(arr) If Me.Range("AH34").Value = True Then Me.ListBox1.AddItem "数据已进行提取完毕 " & Format(Now, "hh:mm:ss") Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 End If Exit For End If If isCopying And cell.Value <> ":BEGIN" Then arr(cnt) = rng.Cells(cell.Row, 1).Value cnt = cnt + 1 End If Next cell If Target.Address = "$B$2" Then For i = 9 To 40 For j = 2 To 7 If ws.Cells(i, j).Value = ws.Cells(8, 5).Value Then For k = 3 To 4 ws.Cells(i, j + k - 2).Value = ws.Cells(Application.Match(ws.Cells(i, 1).Value, ws.Range("AK9:AK40"), 0) + 8, k).Value Next k End If Next j Next i End If End If On Error GoTo ErrorHandler Exit Sub ErrorHandler: If Me.Range("AH36").Value = True Then Me.ListBox2.AddItem Err.Description & " " & Format(Now, "hh:mm:ss") Me.ListBox2.ListIndex = Me.ListBox2.ListCount - 1 End If End Sub

Function getMaxMinAvg(Arr,cttRead) max = CDbl(arr(0)) min = CDbl(arr(0)) sum = CDbl(arr(0)) ctra = -26 ctr27 = -27 ctrb = 0 ctrb27 = 0 For i = 0 to UBound(Arr) If CDbl(Arr(i)) < ctra Then ctrb = ctrb + 1 end if if CDbl(Arr(i)) < ctr27 Then ctrb27 = ctrb27 + 1 end if Next For i = 1 To UBound(Arr) If CDbl(Arr(i)) > max Then max = CDbl(Arr(i)) End If If Arr(i) < min Then min = CDbl(Arr(i)) End If sum = sum +CDbl(Arr(i)) Next getMaxMinAvg = Array(max,min,Round(sum/(UBound(Arr)+1),2),ctrb,i,Round(ctrb/(UBound(Arr)+1),2),ctrb27,cttRead) End Function 'Function zte_Send(oltname,iP,port,iPLast,iPnxt,sLot,fso,eXclPath,LOgfilePath,cnt,re,reNot) Function zte_Send(oltname,iP,port,iPLast,iPnxt,fso,eXclPath,LOgfilePath,cnt,re,reNot) port = Split(port,"/") s = port(1) p = port(2) If iPLast <> iP Then crt.session.Connect("/telnet "&iP) crt.Screen.WaitForString "Username:" crt.Screen.Send "tzztesuper" & vbcr crt.Screen.WaitForString "Password:" crt.Screen.Send "ZTE@suer2019" & vbcr crt.Screen.WaitForString "#" crt.Screen.Send "configure t" & vbcr crt.Screen.WaitForString "#" End If If crt.GetScriptTab.Session.Logging = True Then crt.GetScriptTab.Session.Log False End If crt.Session.LogFileName = LOgfilePath crt.GetScriptTab.Session.Log True if InStr(oltname,"中兴600") <> 0 or InStr(oltname,"C600") <> 0 then code = "show pon power onu-rx gpon_olt-1/" Else code = "show pon power onu-rx gpon_olt-1/" End If crt.Screen.send code & s & "/" & p & vbCr t = crt.Screen.WaitForStrings("--More--",")#") Do while t = 1 crt.Screen.Send " " t = crt.Screen.WaitForStrings("--More--",")#") Loop crt.GetScriptTab.Session.Log False cttRead = fso.OpenTextFile(LOgfilePath).ReadAll If reNot.Test(cttRead) Then MaxMinAvg =Array("无ONU","0","0","0","0","0",cttRead) Elseif re.test(cttRead) Then 'rxArr = Split(re.Replace(Split(cttRead,String(77,"-"))(2),"$1"),vbCrLf) Set Matches = re.Execute(cttRead) tmpcnt = 0 For Each Match In Matches ReDim Preserve rxCDblArr(tmpcnt) rxCDblArr(tmpcnt) = CDbl(Match.SubMatches(0)) tmpcnt = tmpcnt +1 Next MaxMinAvg = getMaxMinAvg(rxCDblArr,cttRead) else MaxMinAvg =Array("所有ONU离线","0","0","0","0","0",cttRead) End If If iPnxt <> iP Then crt.Screen.Send "exit"&vbCr crt.Screen.WaitForStrings "#" crt.Screen.Send "exit"&vbCr if InStr(oltname,"中兴600") <> 0 or InStr(oltname,"C600") <> 0 then crt.session.Disconnect else crt.Screen.WaitForStrings "[yes/no]:" crt.Screen.Send "yes"&vbCr crt.session.Disconnect End If crt.sleep(500) End If zte_Send = MaxMinAvg End Function

最新推荐

recommend-type

一个很好的批量绘制宗地图程序

ReDim Preserve Points(2 * n + 1) As Double Points(2 * n) = Pt(0) + (Point2(0) - Point1(0)) Points(2 * n + 1) = Pt(1) + (Point2(1) - Point1(1)) ... End If End If ... 通过这个宗地图绘制程序,可以批量...
recommend-type

基于yolov3结合卡尔曼滤波匈牙利算法虚拟线圈的车流量检测python源码+项目说明.zip

本项目专注于视频基的车辆跟踪与流量统计,依托深度学习技术,实时追踪路面车辆动态并精准统计各车道车流量。该项目通过以下核心步骤高效处理输入视频数据: 高精度目标检测:采用YOLOv3模型,凭借其卓越的实时性与准确性,快速识别视频中的车辆目标,为后续追踪奠定坚实基础。 稳定目标追踪:集成SORT(Simple Online and Realtime Tracking)算法,结合卡尔曼滤波器预测车辆未来位置,同时运用匈牙利算法优化目标间的匹配,实现连续、稳定的车辆追踪,有效应对遮挡、交叉等复杂场景。 智能车流量统计:借鉴虚拟线圈概念,巧妙设计算法以监测穿越预设区域的车辆,自动计数并准确统计各车道车流量,为交通管理与分析提供可靠数据支持。 整体而言,本项目通过融合先进的目标检测与追踪技术,结合创新的流量统计方法,构建了一个高效、精准的实时车辆跟踪与流量统计系统,为智慧交通领域的发展贡献力量。
recommend-type

ExtJS 2.0 入门教程与开发指南

"EXTJS开发指南,适用于初学者,涵盖Ext组件和核心技术,可用于.Net、Java、PHP等后端开发的前端Ajax框架。教程包括入门、组件结构、控件使用等,基于ExtJS2.0。提供有配套的单用户Blog系统源码以供实践学习。作者还编写了更详细的《ExtJS实用开发指南》,包含控件配置、服务器集成等,面向进阶学习者。" EXTJS是一个强大的JavaScript库,专门用于构建富客户端的Web应用程序。它以其丰富的组件和直观的API而闻名,能够创建具有桌面应用般用户体验的Web界面。在本文档中,我们将深入探讨EXTJS的核心技术和组件,帮助初学者快速上手。 首先,EXTJS的组件模型是其强大功能的基础。它包括各种各样的控件,如窗口(Window)、面板(Panel)、表格(Grid)、表单(Form)、菜单(Menu)等,这些组件可以灵活组合,构建出复杂的用户界面。通过理解这些组件的属性、方法和事件,开发者可以定制化界面以满足特定需求。 入门EXTJS,你需要了解基本的HTML和JavaScript知识。EXTJS的API文档是学习的重要资源,它详细解释了每个组件的功能和用法。此外,通过实际操作和编写代码,你会更快地掌握EXTJS的精髓。本教程中,作者提供了新手入门指导,包括如何设置开发环境,创建第一个EXTJS应用等。 EXTJS的组件体系结构是基于MVC(Model-View-Controller)模式的,这使得代码组织清晰,易于维护。学习如何构建和组织这些组件,对于理解EXTJS的工作原理至关重要。同时,EXTJS提供了数据绑定机制,可以方便地将视图组件与数据源连接,实现数据的实时更新。 在EXTJS中,控件的使用是关键。例如,表格控件(GridPanel)可以显示大量数据,支持排序、过滤和分页;表单控件(FormPanel)用于用户输入,可以验证数据并发送到服务器。每个控件都有详细的配置选项,通过调整这些选项,可以实现各种自定义效果。 此外,EXTJS与服务器端的集成是另一个重要话题。无论你的后端是.NET、Java还是PHP,EXTJS都能通过Ajax通信进行数据交换。了解如何使用Store和Proxy来处理数据请求和响应,是构建交互式应用的关键。 为了深化EXTJS的学习,你可以参考作者编写的《ExtJS实用开发指南》。这本书更深入地讲解了EXTJS框架,包括控件的详细配置、服务器集成示例以及一个完整应用系统的构建过程,适合已经掌握了EXTJS基础并希望进一步提升技能的开发者。 EXTJS是一个强大的工具,能够帮助开发者构建功能丰富、用户体验优秀的Web应用。通过本文档提供的教程和配套资源,初学者可以逐步掌握EXTJS,从而踏入这个充满可能的世界。在实践中不断学习和探索,你将能驾驭EXTJS,创造出自己的富客户端应用。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

【Java字符串不可变性深度剖析】:影响与应用场景分析

![【Java字符串不可变性深度剖析】:影响与应用场景分析](https://www.edureka.co/blog/wp-content/uploads/2017/05/String-pool-1.png) # 1. Java字符串不可变性的基本概念 Java字符串的不可变性指的是一个字符串对象一旦被创建,其内部的字符序列就不能被改变。这意味着任何对字符串的修改操作,如更改字符、拼接、截取等,都不会影响原始字符串对象,而是会生成一个新的字符串对象。不可变性是Java中String类的一个核心特性,它为Java语言带来了多方面的积极影响,比如线程安全、高效的字符串池管理等。然而,这一特性也并
recommend-type

如何让一个字符串等于一个字符数组

要让一个字符串等于一个字符数组,你可以直接赋值,假设我们有一个字符数组`char strArray[]`和一个字符串`char* myString`,你可以这样做: ```c // 字符数组初始化 char strArray[] = "Hello, World!"; // 将字符串字面量赋给myString char* myString = strArray; // 或者如果你想要创建动态分配的字符串并且需要手动添加终止符'\0', // 可以使用strcpy()函数 size_t len = strlen(strArray); // 获取字符串长度 myString = (char*)
recommend-type

基于TMS320F2812的能量回馈调速系统设计

"基于TMS320F2812的能量回馈调速系统的研发,涉及硬件电路设计、软件设计及Matlab仿真,是理解能量回馈技术的重要资料。" 本文详细探讨了基于TI公司的TMS320F2812 DSP芯片实现的能量回馈调速系统。TMS320F2812是一款高性能的数字信号处理器,适用于实时控制应用,其内置的双事件管理器功能使得双PWM控制得以高效实现,降低了硬件成本并支持复杂控制算法。 在能量回馈的基本原理上,传统的能耗制动方法在变频调速中存在能源浪费、电阻过热以及无法在四象限运行等问题。能量回馈技术则解决了这些问题,它允许变频器在所有四个象限运行,并通过控制整流器和逆变器之间的功率平衡,减小直流储能电容的需求。此外,制动能量被送回电网,提高了系统的整体效率,同时不会对电网质量造成负面影响。 文章首先介绍了能量回馈调速系统的硬件电路设计。主电路采用了两电平电压型双PWM变换器架构,包含网侧电抗器、PWM整流器、直流环节和PWM逆变器。PWM整流器在电机减速时将电机产生的机械能转化为电能,并通过逆变器将其反馈到电网。直流母线电压检测、电流检测、同步电路和温度检测电路等辅助电路确保了系统稳定运行和安全。 接下来,文章阐述了系统的控制策略和软件设计。通过DSP芯片,可以执行实时的控制算法,实现精确的电压和电流控制,确保能量有效回馈。软件设计包括了对电机状态的监控、PWM信号的生成以及各种保护机制的编程。 最后,作者进行了Matlab仿真实验,通过仿真波形验证了设计的有效性。实验结果表明,基于TMS320F2812的系统能够实现能量回馈,且动态性能良好。尽管国际上已有类似的四象限运行变频器和再生装置,但考虑到价格和电网适应性,本设计提供了更经济、更适合中国国情的解决方案。 这篇文章为读者提供了一个深入理解能量回馈技术以及如何利用TMS320F2812 DSP实现这一技术的实例,对于从事相关领域的工程师和技术人员来说,是一份有价值的参考资料。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

【Java字符串编码问题】:如何解决乱码,保证数据一致性

![【Java字符串编码问题】:如何解决乱码,保证数据一致性](https://img-blog.csdnimg.cn/20190805185144223.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L215c3FsMTEwXw==,size_16,color_FFFFFF,t_70) # 1. Java字符串编码基础 ## 1.1 字符串编码的重要性 在 Java 编程中,字符串的正确处理对于数据的准确性和一致性至关重要。随着应用
recommend-type

通过PHP中提供的while循环语句和递增递减运算符来实现菱形金字塔

在PHP中,可以利用while循环和递增递减运算符来创建菱形金字塔,这是一种常见的控制结构和算术操作结合的应用实例。以下是一个简单的示例,展示如何生成一个向上对齐的小型菱形: ```php <?php $height = 5; // 菱形的高度 // 上半部分三角形 $i = 1; while ($i <= $height) { for ($j = $height - $i; $j >= 0; $j--) { echo " "; } for ($k = 0; $k < 2 * $i - 1; $k++) { echo "*";