View difference between Paste ID: Q4Dhkfn5 and DFDfvq9h

-    'シリアライズ
+Public Class Form1
-    Private Sub Serialize(ByVal fileName As String, ByVal mySettings As Settings)
+
-        'XMLファイルに保存する
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim serializer As New Serialization.XmlSerializer(GetType(Settings))
+        Debug.WriteLine(ReturnFileName("test.xml", "xml"))
-        '書き込むファイルを開く    ファイルモードはCreateで開くこと
+        Debug.WriteLine(ReturnFileName("test.XML", ".xml"))
-	’OpenOrCreateで開くとシリアル化に失敗する場合としない場合があるので
+        Debug.WriteLine(ReturnFileName("test", "xml"))
-        Try
+        Debug.WriteLine(ReturnFileName("test.xxx", "xml"))
-            Using fs As New FileStream(fileName, FileMode.Create)
+        Debug.WriteLine("-------------------------------------------------------")
-                serializer.Serialize(fs, mySettings)
+    End Sub
-            End Using
+
-        Catch ex As Exception
+
-            Dim message As String = "設定ファイルの書き込み(シリアル化)に失敗しました"
+    ''' <summary>
-            message &= vbCrLf & "理由：" & ex.Message
+    ''' ユーザーに特定の拡張子(ここではxmlとする)のファイル名を指定して欲しい時に、
-            MsgBox(message, MsgBoxStyle.Information)
+    ''' ユーザーが
-            Exit Sub
+    ''' test.xml
-        End Try
+    ''' test.XML
-    End Sub
+    ''' test
     ''' test.xxx
     ''' を指定した場合、ReturnFileNameはそれぞれの場合に以下の文字列を返す。
     ''' test.xml →　test.xml
     ''' test.XML →　test.XML
     ''' test     →　test.xml
     ''' test.xxx →　test.xxx.xml
     '''
     ''' つまり、
     ''' ●拡張子がxmlの場合はそのまま。
     ''' ●拡張子がなければ".xml"を追加する。
     ''' ●既にxml以外の拡張子が付いている場合は、その後に".xml"を追加する。
     ''' </summary>
     Private Function ReturnFileName(sFileName As String, ext As String)
         Dim index As Integer
         Dim tempExt As String
 
         'extに"."が付いていない場合は"."を追加する。
         If Not ext.Contains(".") Then
             ext = "." & ext
         End If
 
         index = sFileName.LastIndexOf(".")
         Select Case index
             Case Is = -1 '▼拡張子が付いていない場合
                 sFileName = sFileName & ext
             Case Is > 0 '▼拡張子が付いている場合は拡張子が ext の場合とそうでない場合で処理を分ける。
                 'sFileNameの拡張子を取得する。
                 tempExt = sFileName.Substring(index, sFileName.Length - index)
                 '▼拡張子が ext でない場合
                 If tempExt.ToLower <> ext.ToLower Then
                     sFileName = sFileName & ext
                 End If
         End Select
 
         Return sFileName
     End Function
 End Class