Delete VB examples with BinaryFormatter (dotnet#9076)

Author: gewarren

snippets/visualbasic/System.DateTime/Persistence.vb

@@ -23,11 +23,6 @@ Module Persistence
         File.Delete(filenameXml)
 
         File.Delete(filenameBin)
-        PersistBinary()
-        File.Delete(filenameBin)
-
-        SaveDateWithTimeZone()
-        RestoreDateWithTimeZone()
     End Sub
 
     ' <Snippet1>
@@ -296,132 +291,6 @@ Module Persistence
 
     Private Const filenameBin As String = ".\Dates.bin"
 
-    ' <Snippet5>
-    Public Sub PersistBinary()
-        SaveDatesBinary()
-        RestoreDatesBinary()
-    End Sub
-
-    Private Sub SaveDatesBinary()
-        Dim dates As Date() = {#6/14/2014 6:32AM#, #7/10/2014 11:49PM#,
-                              #1/10/2015 1:16AM#, #12/20/2014 9:45PM#,
-                              #6/2/2014 3:14PM#}
-        Dim fs As New FileStream(filenameBin, FileMode.Create)
-        Dim bin As New BinaryFormatter()
-
-        Console.WriteLine($"Current Time Zone: {TimeZoneInfo.Local.DisplayName}")
-        Console.WriteLine("The dates on an {Thread.CurrentThread.CurrentCulture.Name} system:")
-        For ctr As Integer = 0 To dates.Length - 1
-            Console.WriteLine(dates(ctr).ToString("f"))
-            dates(ctr) = dates(ctr).ToUniversalTime()
-        Next
-        bin.Serialize(fs, dates)
-        fs.Close()
-        Console.WriteLine("Saved dates...")
-    End Sub
-
-    Private Sub RestoreDatesBinary()
-        TimeZoneInfo.ClearCachedData()
-        Console.WriteLine("Current Time Zone: {TimeZoneInfo.Local.DisplayName}")
-        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-GB")
-
-        Dim fs As New FileStream(filenameBin, FileMode.Open)
-        Dim bin As New BinaryFormatter()
-        Dim dates As DateTime() = DirectCast(bin.Deserialize(fs), Date())
-        fs.Close()
-
-        Console.WriteLine("The dates on an {Thread.CurrentThread.CurrentCulture.Name} system:")
-        For Each value In dates
-            Console.WriteLine(value.ToLocalTime().ToString("f"))
-        Next
-        Console.WriteLine("Restored dates...")
-    End Sub
-    ' When saved on an en-US system, the example displays the following output:
-    '       Current Time Zone: (UTC-08:00) Pacific Time (US & Canada)
-    '       The dates on an en-US system:
-    '       Saturday, June 14, 2014 6:32 AM
-    '       Thursday, July 10, 2014 11:49 PM
-    '       Saturday, January 10, 2015 1:16 AM
-    '       Saturday, December 20, 2014 9:45 PM
-    '       Monday, June 02, 2014 3:14 PM
-    '       Saved dates...
-    '
-    ' When restored on an en-GB system, the example displays the following output:
-    '       Current Time Zone: (UTC-6:00) Central Time (US & Canada)
-    '       The dates on an en-GB system:
-    '       14 June 2014 08:32
-    '       11 July 2014 01:49
-    '       10 January 2015 03:16
-    '       20 December 2014 11:45
-    '       02 June 2014 17:14
-    '       Restored dates...
-    ' </Snippet5>
-
-    ' <Snippet7>
-    Public Sub SaveDateWithTimeZone()
-        Dim dates As DateWithTimeZone() = {New DateWithTimeZone(#8/9/2014 7:30PM#,
-                                          TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time")),
-                                      New DateWithTimeZone(#8/15/2014 7:00PM#,
-                                          TimeZoneInfo.FindSystemTimeZoneById("Pacific Standard Time")),
-                                      New DateWithTimeZone(#8/22/2014 7:30PM#,
-                                          TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time")),
-                                      New DateWithTimeZone(#8/28/2014 7:00PM#,
-                                          TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time"))}
-        Dim fs As New FileStream(".\Schedule.bin", FileMode.Create)
-        Dim formatter As New BinaryFormatter()
-        Try
-            formatter.Serialize(fs, dates)
-        Catch e As SerializationException
-            Console.WriteLine($"Serialization failed. Reason: {e.Message}")
-        Finally
-            If fs IsNot Nothing Then fs.Close()
-        End Try
-        ' Display dates.
-        For Each dateInfo In dates
-            Dim tz As TimeZoneInfo = dateInfo.TimeZone
-            Console.WriteLine($"{dateInfo.DateTime} {If(tz.IsDaylightSavingTime(dateInfo.DateTime), tz.DaylightName, tz.StandardName)}")
-        Next
-    End Sub
-    ' The example displays the following output:
-    '       8/9/2014 7:30:00 PM Eastern Daylight Time
-    '       8/15/2014 7:00:00 PM Pacific Daylight Time
-    '       8/22/2014 7:30:00 PM Eastern Daylight Time
-    '       8/28/2014 7:00:00 PM Eastern Daylight Time
-    ' </Snippet7>
-
     Private Const filename As String = ".\Schedule.bin"
 
-    ' <Snippet8>
-    Public Sub RestoreDateWithTimeZone()
-        Dim fs As FileStream
-        If File.Exists(filename) Then
-            fs = New FileStream(filename, FileMode.Open)
-        Else
-            Console.WriteLine("Unable to find file to deserialize.")
-            Exit Sub
-        End If
-
-        Dim formatter As New BinaryFormatter()
-        Dim dates As DateWithTimeZone ()= Nothing
-        Try
-            dates = DirectCast(formatter.Deserialize(fs), DateWithTimeZone())
-            ' Display dates.
-            For Each dateInfo In dates
-                Dim tz As TimeZoneInfo = dateInfo.TimeZone
-                Console.WriteLine($"{dateInfo.DateTime} {If(tz.IsDaylightSavingTime(dateInfo.DateTime), tz.DaylightName, tz.StandardName)}")
-            Next
-        Catch e As SerializationException
-            Console.WriteLine("Deserialization failed. Reason: {e.Message}")
-        Finally
-            If fs IsNot Nothing Then fs.Close()
-        End Try
-    End Sub
-    ' The example displays the following output:
-    '       8/9/2014 7:30:00 PM Eastern Daylight Time
-    '       8/15/2014 7:00:00 PM Pacific Daylight Time
-    '       8/22/2014 7:30:00 PM Eastern Daylight Time
-    '       8/28/2014 7:00:00 PM Eastern Daylight Time
-    ' </Snippet8>
-
-
 End Module