[VB.NET]空白判定と空文字変換

空白判定「IsNull」

'空白判定(戻り値：True=空白, False=空白では無い)
Public Function IsNull(ByVal text As String) As Boolean
　　'Nothing判定
　　If IsNothing(text) = True Then
　　　　Return True
　　End If
　　'空文字判定
　　If text Is String.Empty Then
　　　　Return True
　　End If
　　'""文字判定
　　If text.Trim = "" Then
　　　　Return True
　　End If
　　Return False
End Function

空文字判定「NZf」

'空文字を変換
Public Function NZf(ByVal a As Object)
　　If IsNull(a) Then
　　　　NZf = "00"
　　Else
　　　　NZf = a
　　End If
End Function

どんな経緯で使ったかは覚えてないけれど、あったら助かったクラスより抜粋。

「NZf」は「IsNull」がないと使えないという罠は気にしてはいけないのですよ。