aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Empty-string/Visual-Basic-.NET/empty-string-2.visual
View file

@ -1,19 +1,18 @@
Option Strict On
Module Program
Sub Main()
' Equality is somewhat convoluted in .NET, and VB doesn't help by adding legacy means of comparison.
' The means above are the author's recommendation for each case.
' Some methods also return true if the string is Nothing/null; this is noted in the description for those that
' The methods above are the author's recommendation for each case.
' Some also return true if the string is Nothing/null; this is noted in the description for those that
' do.
' s is initialized to Nothing. It is a variable of the System.String type that is a null reference and is not
' the empty string.
Dim s As String = Nothing
' Alias Console.WriteLine with a shorter name to make the demonstration code less verbose.
Dim P = Sub(x As Boolean) Console.WriteLine(x)
' Alias Console.WriteLine(Boolean) with a shorter name to make the demonstration code less verbose.
Dim P As Action(Of Boolean) = AddressOf Console.WriteLine
' Assign the empty string literal to s.
s = ""
@ -111,7 +110,7 @@ Module Program
Console.WriteLine()
' Each of the means described above, except testing for a non-empty string.
' Each of the methods described above, except testing for a non-empty string.
P(s IsNot "")
P(Not Object.ReferenceEquals(s, ""))
P(s <> "")