Replace vbNewLine with Environment.NewLine (#4680)

Youssef1313 · web-flow · commit a5ad12616a49 · 2020-09-01T10:14:56.000-07:00
* Replace vbNewLine with Environment.NewLine

* Update source2.vb

* Update source2.vb

* Update source2.vb

* Update Module1.vb

* Update useresxdatanodes.vb

* Update source.vb

* Update source.vb

* Update source.vb

* Update source.vb

* Update encryptor.vb

* Update program.vb

* Update isletterordigit.vb

* Update module1.vb

* Update source.vb

* Update source.vb

* Update source.vb

* Update Class1.vb

* Update Module1.vb
diff --git a/samples/snippets/visualbasic/VS_Snippets_ADO.NET/DP LINQ to DataSet Examples/VB/Module1.vb b/samples/snippets/visualbasic/VS_Snippets_ADO.NET/DP LINQ to DataSet Examples/VB/Module1.vb
@@ -574,7 +574,7 @@ Module Module1
         For Each product In query
             Console.WriteLine("Name: " & product.Name)
             Console.WriteLine("Product number: " & product.ProductNumber)
-            Console.WriteLine("List price: $ " & product.ListPrice & vbNewLine)
+            Console.WriteLine("List price: $ " & product.ListPrice & Environment.NewLine)
         Next
         ' </SnippetWhere3>
     End Sub
@@ -637,7 +637,7 @@ Module Module1
         For Each product In query
             Console.WriteLine("Name: " & product.Name)
             Console.WriteLine("Product number: " & product.ProductNumber)
-            Console.WriteLine("List price: $" & product.ListPrice & vbNewLine)
+            Console.WriteLine("List price: $" & product.ListPrice & Environment.NewLine)
         Next
         ' </SnippetWhereIsNull>
     End Sub
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR/ActivatorX/VB/source2.vb b/samples/snippets/visualbasic/VS_Snippets_CLR/ActivatorX/VB/source2.vb
@@ -14,10 +14,10 @@ Class DynamicInstanceList
             item = Activator.CreateInstance(Type.GetType(instances(i)))
             instlist.SetValue(item, i)
         Next i
-        Console.WriteLine(vbNewLine + "Objects and their default values:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "Objects and their default values:" + Environment.NewLine)
         For Each o As Object In instlist
-            Console.WriteLine("Type:     {0}" + vbNewLine + "Value:    {1}" + _
-                vbNewLine + "HashCode: {2}" + vbNewLine, _
+            Console.WriteLine("Type:     {0}" + Environment.NewLine + "Value:    {1}" + _
+                Environment.NewLine + "HashCode: {2}" + Environment.NewLine, _
                 o.GetType().FullName, o.ToString(), o.GetHashCode())
         Next o
     End Sub
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR/Array_FindEtAl/vb/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR/Array_FindEtAl/vb/source.vb
@@ -40,27 +40,27 @@ Public Class DinoDiscoverySet
                 dinoType = AddressOf EndsWithSaurus
         End Select
 
-        Console.WriteLine(vbNewLine + _
+        Console.WriteLine(Environment.NewLine + _
             "Array.Exists(dinosaurs, ""{0}""): {1}", _
             Ending, _
             Array.Exists(dinosaurs, dinoType))
 
-        Console.WriteLine(vbNewLine + _
+        Console.WriteLine(Environment.NewLine + _
             "Array.TrueForAll(dinosaurs, ""{0}""): {1}", _
             Ending, _
             Array.TrueForAll(dinosaurs, dinoType))
 
-        Console.WriteLine(vbNewLine + _
+        Console.WriteLine(Environment.NewLine + _
             "Array.Find(dinosaurs, ""{0}""): {1}", _
             Ending, _
             Array.Find(dinosaurs, dinoType))
 
-        Console.WriteLine(vbNewLine + _
+        Console.WriteLine(Environment.NewLine + _
             "Array.FindLast(dinosaurs, ""{0}""): {1}", _
             Ending, _
             Array.FindLast(dinosaurs, dinoType))
 
-        Console.WriteLine(vbNewLine + _
+        Console.WriteLine(Environment.NewLine + _
             "Array.FindAll(dinosaurs, ""{0}""):", Ending)
 
         Dim subArray() As String = _
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.monitors/vb/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.monitors/vb/source.vb
@@ -45,7 +45,7 @@ Public Module App
         Next
         ' Wait until this WaitHandle is signaled.
         opsAreDone.WaitOne()
-        Console.WriteLine(vbTab + vbNewLine + "All synchronized operations have completed.")
+        Console.WriteLine(vbTab + Environment.NewLine + "All synchronized operations have completed.")
         Console.WriteLine()
 
         numOps = 5
@@ -56,7 +56,7 @@ Public Module App
 
         ' Wait until this WaitHandle is signaled.
         opsAreDone.WaitOne()
-        Console.WriteLine(vbTab + vbNewLine + "All unsynchronized thread operations have completed.")
+        Console.WriteLine(vbTab + Environment.NewLine + "All unsynchronized thread operations have completed.")
     End Sub
 
     Sub SyncUpdateResource()
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_Classic/classic AmbiguousMatchException.AmbiguousMatchException2 Example/VB/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_Classic/classic AmbiguousMatchException.AmbiguousMatchException2 Example/VB/source.vb
@@ -34,9 +34,9 @@ Namespace Ambiguity
                 Dim Mymethodinfo As MethodInfo = Mytype.GetMethod("Mymethod")
                 ' end of try block
             Catch ex As AmbiguousMatchException
-                Console.WriteLine(vbNewLine + "{0}" + vbNewLine + "{1}", ex.GetType().FullName, ex.Message)
+                Console.WriteLine(Environment.NewLine + "{0}" + Environment.NewLine + "{1}", ex.GetType().FullName, ex.Message)
             Catch
-                Console.WriteLine(vbNewLine + "Some other exception.")
+                Console.WriteLine(Environment.NewLine + "Some other exception.")
             End Try
             Return
         End Sub
@@ -51,4 +51,4 @@ End Namespace
 '
 ' System.Reflection.AmbiguousMatchException
 ' Ambiguous match found.
-' </Snippet1>
+' </Snippet1>
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_Classic/classic MethodBase.Invoke1 Example/VB/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_Classic/classic MethodBase.Invoke1 Example/VB/source.vb
@@ -26,7 +26,7 @@ Public Class TestMethodInfo
         Dim magicMethod As MethodInfo = magicType.GetMethod("ItsMagic")
         Dim magicValue As Object = magicMethod.Invoke(magicClassObject, New Object(){100})
 
-        Console.WriteLine("MethodInfo.Invoke() Example" + vbNewLine)
+        Console.WriteLine("MethodInfo.Invoke() Example" + Environment.NewLine)
         Console.WriteLine("MagicClass.ItsMagic() returned: {0}", magicValue)
     End Sub
 End Class
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Char.IsLetterOrDigit/VB/isletterordigit.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Char.IsLetterOrDigit/VB/isletterordigit.vb
@@ -4,7 +4,7 @@ Module IsLetterOrDigitSample
     Sub Main()
 
         Dim str As String
-        str = "newline:" + vbNewLine
+        str = "newline:" + Environment.NewLine
 
         Console.WriteLine(Char.IsLetterOrDigit("8"c))       ' Output: "True"
         Console.WriteLine(Char.IsLetterOrDigit(str, 8))     ' Output: "False", because it's a NewLine
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Collections.ArrayList.Item/VB/source2.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Collections.ArrayList.Item/VB/source2.vb
@@ -12,19 +12,19 @@ Public Class ScrambleList
             integerList.Add(i)
         Next i
 
-        Console.WriteLine("Ordered:" + vbNewLine)
+        Console.WriteLine("Ordered:" + Environment.NewLine)
         For Each value As Integer In integerList
             Console.Write("{0}, ", value)
         Next value
-        Console.WriteLine("<end>" + vbNewLine + vbNewLine + "Scrambled:" + vbNewLine)
+        Console.WriteLine("<end>" + Environment.NewLine + Environment.NewLine + "Scrambled:" + Environment.NewLine)
 
         ' Scramble the order of the items in the list.
         integerList.Scramble()
 
         For Each value As Integer In integerList
             Console.Write("{0}, ", value)
         Next value
-        Console.WriteLine("<end>" + vbNewLine)
+        Console.WriteLine("<end>" + Environment.NewLine)
     End Sub
 
     Public Sub Scramble()
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Collections.Generic.HashSet_ExceptWith/vb/source2.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Collections.Generic.HashSet_ExceptWith/vb/source2.vb
@@ -13,7 +13,7 @@ Class Program
         ' Add in the vehicles contained in the someVehicles list.
         allVehicles.UnionWith(someVehicles)
 
-        Console.WriteLine("The current HashSet contains:" + vbNewLine)
+        Console.WriteLine("The current HashSet contains:" + Environment.NewLine)
         For Each vehicle As String In allVehicles
             Console.WriteLine(vehicle)
         Next vehicle
@@ -24,34 +24,34 @@ Class Program
         allVehicles.Add("Helicopters")
         allVehicles.Add("Submarines")
 
-        Console.WriteLine(vbNewLine + "The updated HashSet contains:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "The updated HashSet contains:" + Environment.NewLine)
         For Each vehicle As String In allVehicles
             Console.WriteLine(vehicle)
         Next vehicle
 
         ' Verify that the 'All Vehicles' set contains at least the vehicles in
         ' the 'Some Vehicles' list.
         If allVehicles.IsSupersetOf(someVehicles) Then
-            Console.Write(vbNewLine + "The 'All' vehicles set contains everything in ")
+            Console.Write(Environment.NewLine + "The 'All' vehicles set contains everything in ")
             Console.WriteLine("'Some' vechicles list.")
         End If
 
         ' Check for Rockets. Here the OrdinalIgnoreCase comparer will compare
         ' True for the mixed-case vehicle type.
         If allVehicles.Contains("roCKeTs") Then
-            Console.WriteLine(vbNewLine + "The 'All' vehicles set contains 'roCKeTs'")
+            Console.WriteLine(Environment.NewLine + "The 'All' vehicles set contains 'roCKeTs'")
         End If
 
         allVehicles.ExceptWith(someVehicles)
-        Console.WriteLine(vbNewLine + "The excepted HashSet contains:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "The excepted HashSet contains:" + Environment.NewLine)
         For Each vehicle As String In allVehicles
             Console.WriteLine(vehicle)
         Next vehicle
 
         ' Remove all the vehicles that are not 'super cool'.
         allVehicles.RemoveWhere(AddressOf isNotSuperCool)
 
-        Console.WriteLine(vbNewLine + "The super cool vehicles are:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "The super cool vehicles are:" + Environment.NewLine)
         For Each vehicle As String In allVehicles
             Console.WriteLine(vehicle)
         Next vehicle
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.BinaryReaderWriter/VB/source2.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.BinaryReaderWriter/VB/source2.vb
@@ -13,9 +13,9 @@ Public Class BinReadWrite
         Dim bw As New BinaryWriter(fs, utf8)
         Dim bstring As String
 
-        bstring  = "This is line #1 of text written as a binary stream." + vbNewLine
-        bstring = bstring + "This is line #2 of text written as a binary stream." + vbNewLine
-        bstring = bstring + "This is line #3 of text written as a binary stream." + vbNewLine
+        bstring  = "This is line #1 of text written as a binary stream." + Environment.NewLine
+        bstring = bstring + "This is line #2 of text written as a binary stream." + Environment.NewLine
+        bstring = bstring + "This is line #3 of text written as a binary stream." + Environment.NewLine
         bw.Write(bstring)
 
         ' reset the stream position for reading
@@ -31,7 +31,7 @@ Public Class BinReadWrite
         fs.Read(rawbytes, 0, len)
 
         ' display the string
-        Console.WriteLine("Read from FileStream:   " + vbNewLine + utf8.GetString(rawbytes))
+        Console.WriteLine("Read from FileStream:   " + Environment.NewLine + utf8.GetString(rawbytes))
         Console.WriteLine()
 
         ' Now, read the string using BinaryReader
@@ -42,7 +42,7 @@ Public Class BinReadWrite
         Dim br As New BinaryReader(fs, utf8)
         ' ReadString will read the length prefix and return the string.
         bstring = br.ReadString()
-        Console.WriteLine("Read from BinaryReader: "+ vbNewLine + bstring)
+        Console.WriteLine("Read from BinaryReader: "+ Environment.NewLine + bstring)
         fs.Close()
     End Sub
 End Class
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.Pipes.NamedPipeServerStream_ImpersonationSample1/vb/program.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.Pipes.NamedPipeServerStream_ImpersonationSample1/vb/program.vb
@@ -11,8 +11,8 @@ Public Class PipeServer
         Dim i As Integer
         Dim servers(numThreads) As Thread
 
-        Console.WriteLine(vbNewLine + "*** Named pipe server stream with impersonation example ***" + vbNewLine)
-        Console.WriteLine("Waiting for client connect..." + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "*** Named pipe server stream with impersonation example ***" + Environment.NewLine)
+        Console.WriteLine("Waiting for client connect..." + Environment.NewLine)
         For i = 0 To numThreads - 1
             servers(i) = New Thread(AddressOf ServerThread)
             servers(i).Start()
@@ -29,7 +29,7 @@ Public Class PipeServer
                 End If
             Next j
         End While
-        Console.WriteLine(vbNewLine + "Server threads exhausted, exiting.")
+        Console.WriteLine(Environment.NewLine + "Server threads exhausted, exiting.")
     End Sub
 
     Private Shared Sub ServerThread(data As Object)
@@ -122,4 +122,4 @@ Public Class ReadFileToStream
         ss.WriteString(contents)
     End Sub
 End Class
-'</snippet01>
+'</snippet01>
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.StreamReader/VB/module1.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.IO.StreamReader/VB/module1.vb
@@ -16,7 +16,7 @@ Module Module1
 
         sr.DiscardBufferedData()
         sr.BaseStream.Seek(2, SeekOrigin.Begin)
-        Console.WriteLine(vbNewLine & "Back to offset 2 and read to end: ")
+        Console.WriteLine(Environment.NewLine & "Back to offset 2 and read to end: ")
         Console.WriteLine(sr.ReadToEnd())
         ' writes - "cdefghijklmnopqrstuvwxyz"
         ' without DiscardBufferedData, writes - "pqrstuvwxyzcdefghijklmnopqrstuvwxyz"
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Resources.ResXResourceReader Example/VB/useresxdatanodes.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Resources.ResXResourceReader Example/VB/useresxdatanodes.vb
@@ -6,10 +6,10 @@ Imports System.ComponentModel.Design
 Namespace UseDataNodesExample
     Public Class Program
         Public Shared Sub Main()
-            Console.WriteLine(vbNewLine + "Enumerating as data items...")
+            Console.WriteLine(Environment.NewLine + "Enumerating as data items...")
             EnumResourceItems("Resource1.resx", False)
 
-            Console.WriteLine(vbNewLine + "Enumerating as data nodes...")
+            Console.WriteLine(Environment.NewLine + "Enumerating as data nodes...")
             EnumResourceItems("Resource1.resx", True)
         End Sub
 
@@ -19,7 +19,7 @@ Namespace UseDataNodesExample
 
                 '<Snippet3>
                 ' Enumerate using IEnumerable.GetEnumerator().
-                Console.WriteLine(vbNewLine + "  Default enumerator:")
+                Console.WriteLine(Environment.NewLine + "  Default enumerator:")
                 For Each entry As DictionaryEntry In reader
                     ShowResourceItem(entry, useDataNodes)
                 Next entry
@@ -29,7 +29,7 @@ Namespace UseDataNodesExample
                 ' Enumerate using GetMetadataEnumerator()
                 Dim metadataEnumerator As IDictionaryEnumerator = reader.GetMetadataEnumerator()
 
-                Console.WriteLine(vbNewLine + "  MetadataEnumerator:")
+                Console.WriteLine(Environment.NewLine + "  MetadataEnumerator:")
                 While metadataEnumerator.MoveNext()
                     ShowResourceItem(metadataEnumerator.Entry, useDataNodes)
                 End While
@@ -39,7 +39,7 @@ Namespace UseDataNodesExample
                 ' Enumerate using GetEnumerator()
                 Dim enumerator As IDictionaryEnumerator = reader.GetEnumerator()
 
-                Console.WriteLine(vbNewLine + "  Enumerator:")
+                Console.WriteLine(Environment.NewLine + "  Enumerator:")
                 While enumerator.MoveNext()
                     ShowResourceItem(enumerator.Entry, useDataNodes)
                 End While
@@ -88,4 +88,4 @@ End Namespace
 '   Enumerator:
 '   DataSample=Sample DATA value
 '   MetadataSample=Sample METADATA value
-'</Snippet2>
+'</Snippet2>
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.collections.specialized.collectionsutil/vb/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.collections.specialized.collectionsutil/vb/source.vb
@@ -12,7 +12,7 @@ Class TestCollectionsUtils
         population1("McHenry") = 185
 
         ' Select cities from the table using mixed case.
-        Console.WriteLine("Case insensitive hashtable results:" + vbNewLine)
+        Console.WriteLine("Case insensitive hashtable results:" + Environment.NewLine)
         Console.WriteLine("{0}'s population is: {1}", "Trapperville", population1("trapperville"))
         Console.WriteLine("{0}'s population is: {1}", "Doggerton", population1("DOGGERTON"))
         Console.WriteLine("{0}'s population is: {1}", "New Hollow", population1("New hoLLow"))
@@ -25,7 +25,7 @@ Class TestCollectionsUtils
         Next city
 
         ' Select cities from the sorted list using mixed case.
-        Console.WriteLine(vbNewLine + "Case insensitive sorted list results:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "Case insensitive sorted list results:" + Environment.NewLine)
         Console.WriteLine("{0}'s population is: {1}", "Trapperville", population2("trapPeRVille"))
         Console.WriteLine("{0}'s population is: {1}", "Doggerton", population2("dOGGeRtON"))
         Console.WriteLine("{0}'s population is: {1}", "New Hollow", population2("nEW hOLLOW"))
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.security.cryptography.symmetricalgorithm/vb/encryptor.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.security.cryptography.symmetricalgorithm/vb/encryptor.vb
@@ -14,10 +14,10 @@ Class EncryptorExample
          aesCSP.GenerateIV()
          Dim encQuote() As Byte = EncryptString(aesCSP, quote)
 
-         Console.WriteLine("Encrypted Quote:" + vbNewLine)
+         Console.WriteLine("Encrypted Quote:" + Environment.NewLine)
          Console.WriteLine(Convert.ToBase64String(encQuote))
 
-         Console.WriteLine(vbNewLine + "Decrypted Quote:" + vbNewLine)
+         Console.WriteLine(Environment.NewLine + "Decrypted Quote:" + Environment.NewLine)
          Console.WriteLine(DecryptBytes(aesCSP, encQuote))
      End Sub
 
diff --git a/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.threading.waithandle.waitone4/vb/source.vb b/samples/snippets/visualbasic/VS_Snippets_CLR_System/system.threading.waithandle.waitone4/vb/source.vb
@@ -37,7 +37,7 @@ Public Class TestSyncDomainWait
 
         Dim runWaiter As Thread
 
-        Console.WriteLine(vbNewLine + "Wait and signal INSIDE synchronization domain:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "Wait and signal INSIDE synchronization domain:" + Environment.NewLine)
         runWaiter = New Thread(AddressOf RunWaitKeepContext)
         runWaiter.Start(syncClass)
         Thread.Sleep(1000)
@@ -46,7 +46,7 @@ Public Class TestSyncDomainWait
         syncClass.Signal()
         runWaiter.Join()
 
-        Console.WriteLine(vbNewLine + "Wait and signal OUTSIDE synchronization domain:" + vbNewLine)
+        Console.WriteLine(Environment.NewLine + "Wait and signal OUTSIDE synchronization domain:" + Environment.NewLine)
         runWaiter = New Thread(AddressOf RunWaitLeaveContext)
         runWaiter.Start(syncClass)
         Thread.Sleep(1000)
diff --git a/samples/snippets/visualbasic/VS_Snippets_Data/DLinqDebuggingSupport/vb/Module1.vb b/samples/snippets/visualbasic/VS_Snippets_Data/DLinqDebuggingSupport/vb/Module1.vb
@@ -67,9 +67,9 @@ Module Module1
         Next
 
         Dim dc As DbCommand = db.GetCommand(q)
-        Console.WriteLine(vbNewLine & "Command Text: " & vbNewLine & dc.CommandText)
-        Console.WriteLine(vbNewLine & "Command Type: {0}", dc.CommandType)
-        Console.WriteLine(vbNewLine & "Connection: {0}", dc.Connection)
+        Console.WriteLine(Environment.NewLine & "Command Text: " & Environment.NewLine & dc.CommandText)
+        Console.WriteLine(Environment.NewLine & "Command Type: {0}", dc.CommandType)
+        Console.WriteLine(Environment.NewLine & "Connection: {0}", dc.Connection)
 
         Console.ReadLine()
         ' </Snippet3>
diff --git a/samples/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb b/samples/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb
diff --git a/samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb b/samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb
