VB中-惟一Null, Empty, Nothing, and vbNullString的区别

转载：(原贴作者未知)
惟一
Null, Empty, Nothing, and vbNullString的区别

　　 以上这些奇怪的数值间有些微妙的不同含义：

　　 Null：Null是一个象Integer或者String一样的变量类型，它表示一个没有合法数据的变量。这有别于zero、Nothing、Empty或者vbNullString。许多数值与Null结合在一起，都将产生Null结果。比如：

　　 表达式 结果
Null - Null Null
Null + 7 7
Null = Null Null

　　 你可以使用IsNull语句来判断表达式是否为Null：

　　 If IsNull(my_variable) Then ...

　　 Empty：这也是一个象Integer或者String一样的变量类型，它表示了一个还没有进行初始化的变量。它与Null的意义不同，Null表示没有合法数据。

　　 一个没有初始化的变量的数值是Empty。你可以使用IsEmpty语句来判断是否变量进行了初始化：

　　 If IsEmpty(my_variant) Then ...

　　 Nothing：这是一个指向空对象的对象引用。将对象引用设置为Nothing，就释放了那个对象。如果没有其他的引用指向对象，Visual Basic就将销毁这个对象。

　　 Dim obj As Form1
　　 :
　　 Set obj = Nothing 注释： Free the object reference.

　　 使用Is Nothing语句来判断是否一个引用为Nothing：

　　 If obj Is Nothing Then ...

　　 vbNullString：这是个常量，表示一个empty字符串。它与空白字符串""不同，表示什么也没有的字符串（nothing string）。对于许多场合，它被当作一个empty字符串""处理，真正使用它的目的是传递null参数给库函数。

　　 Null是一个很奇怪的数值，它不是zero,不是Nothing，不是vbNullString。它是没有定义的东西。

　　 判断字符串是否为空白

　　 有以下几种方法判断一个字符串是否为空白：

Dim txt As String
Dim blank As String

blank = ""
:
If Len(txt) = 0 Then ...
If txt = vbNullString Then ...
If txt = "" Then ...
If txt = blank Then ...

　　 经过测试，Len(txt)=0的方法要比其他方法快20％多。

　　 从字符串尾部搜索匹配子串

　　 在Visual Basic 版本6中，可以使用InStrRev函数实现从字符串尾部搜索匹配子串的功能。在早期的版本中，没有这个函数，做为替换，请使用下面的代码：

Function LastInStr(txt As String, pattern As String)
Dim pos1 As Integer
Dim pos2 As Integer

pos2 = 0
Do
pos1 = pos2
pos2 = InStr(pos1 + 1, txt, pattern)
Loop While pos2 > 0
LastInStr = pos1
End Function