NonSerializedAttribute F# snippet (#7796)

Author: albert-du

snippets/fsharp/System/NonSerializedAttribute/Overview/fs.fsproj

@@ -0,0 +1,18 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net48</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="s.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Runtime.Serialization.Formatters" Version="4.3.0" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/NonSerializedAttribute/Overview/s.fs

@@ -0,0 +1,52 @@
+// <Snippet1>
+open System
+open System.IO
+open System.Runtime.Serialization.Formatters.Soap
+
+// A test object that needs to be serialized.
+[<Serializable>]
+type TestSimpleObject() =
+    let member1 = 11
+    let member2 = "hello"
+    let member3 = "hello"
+    let member4 = 3.14159265
+
+    // A field that is not serialized.
+    [<NonSerialized>]
+    let member5 = "hello world!"
+
+    member _.Print() =
+        printfn $"member1 = '{member1}'"
+        printfn $"member2 = '{member2}'"
+        printfn $"member3 = '{member3}'"
+        printfn $"member4 = '{member4}'"
+        printfn $"member5 = '{member5}'"
+
+[<EntryPoint>]
+let main _ =
+    // Creates a new TestSimpleObject object.
+    let obj = TestSimpleObject()
+
+    printfn "Before serialization the object contains: "
+    obj.Print()
+
+    // Opens a file and serializes the object into it in binary format.
+    let stream = File.Open("data.xml", FileMode.Create)
+    let formatter = SoapFormatter()
+
+    //BinaryFormatter formatter = new BinaryFormatter()
+
+    formatter.Serialize(stream, obj)
+    stream.Close()
+
+    // Opens file "data.xml" and deserializes the object from it.
+    let stream = File.Open("data.xml", FileMode.Open)
+    let formatter = new SoapFormatter()
+
+    let obj = formatter.Deserialize stream :?> TestSimpleObject
+    stream.Close()
+
+    printfn "\nAfter deserialization the object contains: "
+    obj.Print()
+    0
+// </Snippet1>

xml/System/NonSerializedAttribute.xml

@@ -88,6 +88,7 @@ public event ChangedEventHandler Changed;
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/SerializationAttributes/CPP/s.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System/NonSerializedAttribute/Overview/s.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/NonSerializedAttribute/Overview/s.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/SerializationAttributes/VB/s.vb" id="Snippet1":::  
   
  ]]></format>