如何判断数组是否已初始化,定义了维数

原创 2015年07月11日 02:31:25
 如何判断数组是否已初始化,定义了维数 


最近用Split("",",")函数,遇到如何简明判断数组是否初始化问题,找到了一些方法,只有方法一最简单,记之。


方法一:使用cstr(Join(list[, delimiter]))函数的返回值
    将delimiter参数设置为""
    例如:  join(strArray,"") = ""    'arr 数组为空或者尚未初始化


方法二:Error方法
    就是采用通用的错误捕获功能
    Function IsNotEmpty(ByVal sArray As Variant) As Boolean '判断数组是否为空
        Dim i     As Long
        IsNotEmpty = True
        On Error GoTo lerr:
        i = UBound(b)
        Exit Function
    lerr:
        IsNotEmpty = False
    End Function


方法三:CopyMemory方法
    VB的数组都是安全数组,通过访问一个结构来确定数组内容保存位置,上标下标和维数
    
    安全数组的头两位就保存着维数信息
    Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
    Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
             (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)


    Private Sub Form_Load()
    Dim MyArr() As Long
Dim pMyarr As Long
    Dim nDims As Integer
        '从数据指针得到SafeArray结构的指针
        CopyMemory pMyarr, ByVal VarPtrArray(MyArr), 4
        If pMyarr = 0 Then
            MsgBox "这个数组是空数组"
            '再从这个指针所指地址的头两个字节取出cDims
            CopyMemory nDims, ByVal pMyarr, 2
           MsgBox "这个数组有" & nDims & "维"
        End If
    End Sub


方法四:使用api函数safearraygetdim()的返回值,判断数组为空或没有初始化


使用api函数safearraygetdim()的返回值,返回值值<=0,说明数组元素个数为0或者数组还没有初始化.
SafeArrayGetDim用来判断一个数组的维数,该函数在MSDN中定义为:


Public Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
如果数组已经初始化,则返回非0,否则返回0。

    Sub diag()
Dim msg As String
Dim arr1() As String, arr2() As String, arr3() As Date, arr4() As Date, arr5() As Range, arr6() As Range
msg =  IIf(SafeArrayGetDim(arr1) > 0, "数组不为空!", "数组为空!")
arr2 = Split("一、二", "、")
msg =  IIf(SafeArrayGetDim(arr2) > 0, "数组不为空!", "数组为空!")
ReDim arr4(1 To 100)
msg = IIf(SafeArrayGetDim(arr4) > 0, "数组不为空!", "数组为空!")
ReDim arr6(1 To 256, 1 To 65536)
msg = IIf(SafeArrayGetDim(arr6) > 0, "数组不为空!", "数组为空!")
    End Sub

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

vb6判断动态字节数组是否已经初始化的最简单的办法

Dim a() As Byte If StrConv(a, vbUnicode) = "" Then   MsgBox "未初始化" Else ...

Java数组类型的定义和初始化

学了很久的Java,总感觉自己很会,可是越往深处想,越觉得什么也不会。 今天看了一下数组类型,把自己的感觉和体会记录下来,希望能有更多的人看到,并且受益: 在Java中,数组不是基本数据类...

c语言字符数组的定义与初始化

1、字符数组的定义与初始化 字符数组的初始化,最容易理解的方式就是逐个字符赋给数组中各元素。 [cpp] view plaincopy char str[...

java数组定义与初始化,类型转换,instanceof的使用

1、一维数组的声明方式: type var[]; 或type[] var; 声明数组时不能指定其长度(数组中元素的个数), Java中使用关键字new创建数组对象,格式为: 数组名 = new...

二维数组定义及初始化

#include #include using namespace std; int main () {     int a[3][2] = {(0,1),(2,3),(4,5)};//注意...

c语言二维数组的定义和初始化

二维数组: 用于存放一位数组的数组,被称为二维数组。 #include //二维数组的长度 #define kI 3 #define kJ 4 /** 打印二维数组元素 */...

C 语言字符数组的定义与初始化

C 语言字符数组的定义与初始化1、字符数组的定义与初始化字符数组的初始化,最容易理解的方式就是逐个字符赋给数组中各元素。 char str[10]={ ‘I’,’ ‘,’a’,’m’,’ ‘,‘h’...

C 语言字符数组的定义与初始化

1、字符数组的定义与初始化 字符数组的初始化,最容易理解的方式就是逐个字符赋给数组中各元素。 char str[10]={ 'I',' ','a','m',' ',‘h’,'a','p...

c语言一维数组的定义、初始化

一维数组 1、定义:是一组具有相同数据类型的有序元素集合。 2、初始化: (1)、初始化方式一: //数组的定义: int a[length]; //这是数组的定义 ...

c语言中静态数组的定义和初始化

数组可以初始化,即在定义时,使它包含程序马上能使用的值。   例如,下面的代码定义了一个全局数组,并用一组Fibonacci数初始化:     int iArray[10]={1,1,2,3,5,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)