【VB.NET 語言】上報 練習 _ 寫一個 .XML 資料

根據上次分享的程式的第二集囉！(前情提要)
那今天就是來分享如何寫一個 .XML 檔案吧!!
居裡貓今天就是分享之前講到的小程式的第二集，
先看一下程式的長相：

今天要分享的就是中間的那個按鈕 "Write XML"
好的，寫一個 .XML 他又是長個什麼模樣，這就貼給大家看看：

它的內容大概就是長這個樣子，內容的長相是取決於各位的喜好設計。
有人喜歡有人不喜歡的意思~

程式碼就是大概長這個樣子~~請看~

--------------------------------------------------------------------------------------------------------------------------

1.  'Button Contorl XML Write  
2.     Private Sub Btn_WriteXML_Click(sender As Object, e As EventArgs) Handles Btn_WriteXML.Click  
3.         'Check watch event was raising  
4.         If Watcher.watcher.EnableRaisingEvents = False Then  
5.             Watcher.watcher.EnableRaisingEvents = True  
6.         End If  
7.   
8.         Copy_Delete_File.GetPath(TxB_Local.Text, TxB_Remote.Text, TxB_NAS.Text, TxB_FTP.Text, ChB_UploadFTP.Checked)  
9.   
10.         FTPupload.Get_FTPinfo(TxB_FTPAddress.Text, TxB_FTPAccount.Text, Txb_FTPPassword.Text)  
11.   
12. '這邊 ____________________________________________________  
13.         Dim wrXML As New XML  
14.         wrXML.LocalPath = TxB_Local.Text  
15.         wrXML.RemotePath = TxB_Remote.Text  
16.         wrXML.NASPath = TxB_NAS.Text  
17.         wrXML.FTPPath = TxB_FTP.Text  
18.         wrXML.Data = "This is a Programming Practices " & Now.ToString  
19.         wrXML.DateTime = Now.ToString  
20.         If ChB_UploadFTP.Checked Then  
21.             wrXML.CheckFTP = "Ture"  
22.         Else  
23.             wrXML.CheckFTP = "Flase"  
24.         End If  
25.   
26.         Dim objectStreamWriter As New StreamWriter(TxB_Local.Text + ("\Program Practices " & Now.ToString("_yyyyMMddHHmmss") & ".xml"))  
27.         Dim xmlserialize As New XmlSerializer(wrXML.GetType)  
28.         xmlserialize.Serialize(objectStreamWriter, wrXML)  
29.         objectStreamWriter.Dispose()  
30. '到這邊___才是主要控制寫XML的部分其他皆是其他控制需要的部分_______  
31.         'Check backwork status  
32.         'If Not back.IsBusy = True Then  
33.         '    back.RunWorkerAsync()  
34.         'End If  
35.         Backwork.main()  
36.   
37.     End Sub  
38.   
39. '--------我是分割線，上面是 Write XML 按鈕的部分，下面是使用 XML 用的 Class  
40. 'XML Class 的內容就是取決於各位的設計來寫了  
41. '要用什麼樣的方法String Integer 之類的自行變化嘗試  
42.   
43. 'About used XML setting info  
44. Public Class XML  
45.     Private _LoaclPath As String  
46.     Public Property LocalPath() As String  
47.         Get  
48.             Return _LoaclPath  
49.         End Get  
50.         Set(value As String)  
51.             _LoaclPath = value  
52.         End Set  
53.     End Property  
54.     Private _RemotePath As String  
55.     Public Property RemotePath() As String  
56.         Get  
57.             Return _RemotePath  
58.         End Get  
59.         Set(value As String)  
60.             _RemotePath = value  
61.         End Set  
62.     End Property  
63.     Private _NASPath As String  
64.     Public Property NASPath() As String  
65.         Get  
66.             Return _NASPath  
67.         End Get  
68.         Set(value As String)  
69.             _NASPath = value  
70.         End Set  
71.     End Property  
72.     Private _FTPPath As String  
73.     Public Property FTPPath() As String  
74.         Get  
75.             Return _FTPPath  
76.         End Get  
77.         Set(value As String)  
78.             _FTPPath = value  
79.         End Set  
80.     End Property  
81.     Private _Data As String  
82.     Public Property Data() As String  
83.         Get  
84.             Return _Data  
85.         End Get  
86.         Set(value As String)  
87.             _Data = value  
88.         End Set  
89.     End Property  
90.     Private _DateTime As String  
91.     Public Property DateTime() As String  
92.         Get  
93.             Return _DateTime  
94.         End Get  
95.         Set(value As String)  
96.             _DateTime = value  
97.         End Set  
98.     End Property  
99.     Private _CheckFTP As String  
100.     Public Property CheckFTP() As String  
101.         Get  
102.             Return _CheckFTP  
103.         End Get  
104.         Set(value As String)  
105.             _CheckFTP = value  
106.         End Set  
107.     End Property  
108.     Private _Loginfo As List(Of String)  
109.     Public Property Loginfo() As List(Of String)  
110.         Get  
111.             Return _Loginfo  
112.         End Get  
113.         Set(value As List(Of String))  
114.             _Loginfo = value  
115.         End Set  
116.     End Property  
117. End Class

------------------------------------------------------------------------------------------------------------------------

今天分享的寫 XML 資料，
主要的資料內容我們用 Class 的方法來做一個整理，
為什麼要這樣子呢，當然是取用會方便跟預防一些不可預期的錯誤!
(你想問會有什麼錯誤，居裡貓有遇過，忽然可以寫忽然不可以寫的問題)

分享就到這邊，希望大家會喜歡，其他的部分在之後會接著分享出來~
感謝各位先進的教學文~!

ps. 分享程式中有一些好像沒看到關聯的部分，就是剛好參在一起做撒尿牛丸而已

底下就是這個連續劇程式分享的分段分享內容

1. 上報 練習 _ 選擇資料夾
2. 上報 練習 _ 寫一個 .XML 資料
3. 上報 練習 _ 監控資料夾
4. 上報 練習 _ 複製檔案
5. 上報 練習 _ FTP Server 檔案上傳
6. 上報 練習 _ 上傳錯誤紀錄
7. 上報 練習 _ 使用 BackgroundWorker 再次上傳
8. 上報 練習 _ Log 紀錄
9. 上報 練習 _ 完整程式碼分享