VB中判断空的几种方法(Null, Missing, Empty, Nothing, vbNullString)

vb6中存在几个虚幻的值：Null、Missing、Empty、Nothing、vbNullString。除了最后一个之外，每一个值都不能直接用“a=值”来判断。下面分别解释一下这几个值的含义。

1、Null

Null（空值）指一个不合法的数据，判断一个变量是否为Null使用SQL中的isNull函数。

1.1 ISNull函数

ISNULL函数：使用指定的替换值替换 NULL。

语法：ISNULL ( check_expression , replacement_value )

isnull(a,0)  '如果a字段有空值返回0 没有空值就返回a的本身
isnull(a,1)=2 '字段a有空值返回1，判断isnull(a,1)是否等于2

'从TbStudent里查找stuAdress为空值的学生姓名和学号，并把空值替换成未知'
'stuAdress是int类型的，未知是varchar类型的，不允许添到同一列上'
select stuName,stuNumber,ISNULL(stuAdress,'未知') from TbStudent

check_expression：将被检查是否为 NULL的表达式。check_expression 可以是任何类型的。

replacement_value：代替值，在 check_expression 为 NULL时将返回的表达式。

注释：

replacement_value 必须与 check_expresssion 具有相同的类型。

如果 check_expression 不为 NULL，那么返回该表达式的值；否则返回 replacement_value。

1.2 使用Null的三种情况

(1)最简单的，函数直接返回Null给调用方。譬如

Function DivideEx(ByVal A as Double, ByVal B as Double) as Double

	If B=0 Then		'当B=0时返回Null，表示为不合法数据'
		DivideEx=Null
	Else
		DivideEx=A/B
	End if
End Function

(2)数据库中，当一个字段设为“允许空值”时，VB读取到空值就会用Null表示,例如

Function GetCity(rst as ADODB.Recordset) as String

	If isNull(rst.Field("City")) Then	'当City字段为空时返回Province字段，否则返回City字段'
	   GetCity=rst.Field("Province") 
	Else 
		GetCity=rst.Field("City")
	End if
End Function

(3)在调用库函数时，如果遇到传送变量类型与定义类型不一样时有时会出现Null值。

Null值在计算时有点奇怪，譬如Null-Null=Null，Null+10=10，Null+""=""等

2、Missing

Missing指传递进入Variant变量的缺少，判断Missing使用isMissing函数。
Missing只会在Varient中出现，如果给入的数据类型是Byte,Integer,Long,Single,Double等缺少时为0；String缺少时为""；Object缺少时为Nothing。**

data value;
   input var1 var2 @@;
   if missing(var2) then delete;	'如果var2的的对象丢失，就删除'
   datalines;
127 988 195 .
122 .n								'就这里吧n（nothing）删除了'
;
run;
proc print ;run;

if var2=. then delete这样的结果只会删除缺失的值，不能删除缺少的对象。

2.1 IsMissing函数

IsMissing是一个VB函数，它返回一个布尔值，表示一个可选参数是否未被传递给一个函数。

语法：IsMissing (ArgName) As Boolean

ArgName参数：必需，一个Variant类型的可选参数名。

备注：

• 使用 IsMissing 函数可检测调用过程时是否提供了可选 Variant 参数。 如果未为指定参数传递任何值，则 IsMissing 将返回 True；否则将返回 False。
• 如果 IsMissing 针对某参数返回 True，则在其他代码中使用缺少参数可能导致用户定义的错误。
• 如果对 ParamArray （可变参数）参数使用 IsMissing，则将始终返回 False。
• IsMissing 对简单数据类型（如 Integer 或 Double）无效，因为与 Variants 不同，它们没有针对“丢失”标志位的设置。

示例：

下例使用 IsMissing 函数检查是否已将可选参数传递到用户定义的过程。 请注意， Optional 参数现在可具有默认值和 Variant 之外的类型。

Dim ReturnValue		'下面的语句调用用户定义的函数过程'
	ReturnValue = ReturnTwice()    ' Return是Null'
	ReturnValue = ReturnTwice(2)    ' Returns是4'

Function ReturnTwice(Optional A)	'函数过程定义'
    If IsMissing(A) Then			'如果缺少参数A，则返回Null'
        ReturnTwice = Null
    Else							'如果存在参数A，则返回值的两倍'
        ReturnTwice = A * 2
    End If
End Function

3、Empty

VB特有的一种数据类型叫Variant 可变类型，理论上可以接受任何其他数据类型，如果变量未定义，VB自动将其作为可变类型对待。它的默认值就是 Empty，值 Empty 是异于0、零长度字符串 (“”) 或 Null 值的特定值。判断Empty使用isEmpty函数，例如：

If IsEmpty (Z) Then Z = 0

当 Variant 变量包含 Empty 值时，可在表达式中使用它；将其作为 0 或零长度字符串来处理，这要根据表达式来定。

只要将任何值（包括 0、零长度字符串或 Null）赋予 Variant 变量，Empty 值就会消失。而将关键字 Empty 赋予 Variant 变量，就可将 Variant 变量恢复为 Empty。

3.1 ISEmpty函数

IsEmpty返回一个指示是否已初始化变量的布尔值。

语法：IsEmpty(expression)

expression：必需的，参数是一个包含数值或字符串表达式的Variant 。 但是, 由于IsEmpty用于确定是否初始化了各个变量, 因此_表达式_参数通常是单个变量名称。

备注

IsEmpty 在变量未初始化或显式设置为 Empty 时返回 True；否则，返回 False。 如果 expression 包含多个变量，则始终返回 False。 IsEmpty 仅返回变量的有用信息。此示例使用 IsEmpty 函数确定是否已初始化变量。

Dim MyVar, MyCheck
	MyCheck = IsEmpty(MyVar)    ' 返回值为True'
	MyVar = Null    			' 给MyVar赋值为空值'
	MyCheck = IsEmpty(MyVar)    ' 初始变化量已发生变化，返回值为False'

	MyVar = Empty    			' 将关键字 Empty 赋予 MyVar 变量'
	MyCheck = IsEmpty(MyVar)    ' 返回值为True'

4、Nothing

Nothing相当于Object变量中的空值，指向于空对象的引用，用于取消对象变量与实际对象的关联。 使用Set 语句可将Nothing分配给对象变量。 例如：

Set MyObject = Nothing 

多个对象变量可引用相同的实际对象。 在将 Nothing 分配给一个对象变量后，该变量将不再引用实际对象。

未初始化的Object变量为Nothing；未传入函数的Object为Nothing。判断一个变量是否为Nothing使用 is Nothing表达式。

同时，Nothing还有另外一个用途，就是把所有指向某一个对象的Object变量赋值为Nothing可以销毁此对象节省内存空间。

4.1 IsNothing 与 Is Nothing的区别

IsNothing语法：IsNothing(Object)
Is Nothing语法：Object Is Nothing

A. IsNothing能给任何类型值的对象赋值nothing，但这可能出现Bug

IsNothing(Object)表示所有类型（括值类型）的对象都赋值为nothing，但是值类型不能为nothing，只能是0

Dim i As Integer
If IsNothing(i) Then	'使用IsNothing，代码可以编译和运行 额。。。'
   ' Do something 
End If

Dim i As Integer		'使用Is Nothing，代码不能运行，编译器会提出错误'
If i Is Nothing Then	'Is不接受类型为Integer的操作，必须是引用类型或可空类型'
    '  Do something 	
End If

B. 可读性来说Is Nothing更胜一筹

• IsNothing的否定语句是：Not IsNothing(object)
• Is Nothing的否定语句是：Not object Is Nothing

C. IsNothing(Object)实际上就是是Microsoft.VisualBasic.dll的一部分。（这句话代表什么意思呢）

5、vbNullString

vbNullString是一个String类型的常量，表示一个empty字符串。它与空白字符串"“不同，表示什么也没有的字符串（nothing string）。

对于许多场合，它被当作一个empty字符串”"处理，真正使用它的目的是传递null参数给库函数，主要是用于调用外部的动态链接库程序时使用（也就是API函数）。

字符串是由两部分组成：一个指针和一个Unicode字符数组
vbNullString就是一个只有第一部分而没有第二部分的字符串

Dim temp As String
'这个时候temp还没有附值，只是定义了类型，就是说还没有真正占用内存，地址就是0'
'这时候temp就等于vbNullString'

temp=""	
'把""赋值给temp，尽管等于空字符串，但是已经占用了内存，地址就发生了变化'

6、 零长度字符、空字符、vbNull、vbNullChar、vbNullString的区别

不过很奇怪的是vbNullString=""这个表达式为True.

零长度字符是指””，
空字符是指ASCII 中字符编码为0的字符，即Null字符。

在vba内部还定义了很多常量，其中有三个是含有Nul的的常量，它们分别是vbNull、vbNullChar、vbNullString。

通过在VBA编辑环境中按下F2快捷键分别搜索查询以上三个常量可以得知：

Const vbNull = 1
Const vbNullChar = “”
Const vbNullString = “”

其中vbNull=1可以很好的理解，而vbNullChar 和vbNullString 常量定义都等于零长度字符，让人有点摸不着头脑。继续查找MSDN中的官方文档，可以得知：

vbNullChar=chr(0)，指的是一个字符，这个字符的字符编码为0，即等于ASCII表中的第一个字符，Null字符。
vbNullString 指的是一个字符串，它不同于零长度字符串，主要是用于调用外部的动态链接库程序时使用（也就是API函数）。

那vbNullChar是否等于零长度字符呢？也即vbNullChar是否按照常量的定义等于””？可以使用如下代码测试：

Sub QQ1722187970()
Dim str1 As String
    str1 = ""				'零长度字符的Len返回0'
    Debug.Print Len(str1)	'Len(vbNullChar)返回1'
    Debug.Print Len(vbNullChar)		'返回False'
    Debug.Print str1 = vbNullChar
End Sub

也就是vbNullChar不等于零长度字符。

再根据什么是BSTR数据类型一文，我们知道在vba中字符串变量存储的是字符串的第一个字符的内存地址，而实际的字符串是以BSTR类型存储的，BSRT类型是个复合数据类型，它由4个字节（字符串的字节长度，不含字符串结束符）+实际字符串+字符串结束符组成。

根据代码测试可以得知：

字符串变量|字符串长度不包含字符串结束符，以字节为单位)|第1个字节|第2个字节|第3个字节|第4个字节
-|-|-|-|-|-|-|-
str1=””|0|Null字符(字符串结束符）|Null字符(字符串结束符）|未使用|未使用
str1=vbNullChar|2|Null字符|Null字符|Null字符(字符串结束符）|未使用
str1=Chr(0)|2|Null字符|Null字符|Null字符(字符串结束符）|未使用

而vbNullString则一般用在调用外部api函数时使用，如果直接赋值给字符串变量则会导致excel重启。

根据以上的知识，现总结如下：

空字符=vbNullChar=chr(0)

vbnull=1

零长度字符即不等于vbNullChar也不等于vbNullString。

到此这篇关于VB中判断空的几种方法(Null, Missing, Empty, Nothing, vbNullString)的文章就介绍到这了,更多相关VB 判断空内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

最新评论