[VB.NET] การประยุกต์ใช้งานไฟล์ INI (Initialize File) ภาค 2 ขั้น Advanced

thongkorn

จากตอนที่แล้วเป็นการจัดเก็บข้อมูลแบบ Text ขนาดเล็ก คราวนี้ก้าวขึ้นมาอีกขั้นด้วยตัวอย่างของการเก็บข้อมูลจาก RadioButton กับ CheckBox Control ซึ่งก็แน่นอนล่ะว่าเป็นชนิดข้อมูลแบบ Boolean แต่เดี๋ยวง่ายไป แอดมินเลยเพิ่มเติมการจัดเก็บข้อมูลแบบ Text ในลักษณะไดนามิคลง Section ซึ่งเป็น Climax ของบทความนี้ทั้งหมด (โฟกัสไปที่ ListBox นั่นแหละครับ) ... อนึ่งขอให้ทำความเข้าใจว่า การใช้ Initilize File หรือ INI มันเป็นการเก็บข้อมูลที่ไม่แน่นอนตายตัวลงในแต่ละ Section ส่วน XML (eXtensible Markup Language) เป็นการเก็บข้อมูลที่มีรูปแบบค่อนข้างแน่นอน ในแต่ละ Element เช่น Title, Link, Description และ Date ซึ่งคล้ายๆกับ DataBase และเราพบเห็นได้ทั่วไปในลักษณะของ RSS Feed ข่าวสารต่างๆ

มาดูโค้ดทั้งหมด ...

1. Imports System.IO
   
2. 
   
3. Public Class frmSampleINI
   
4.     Dim strFileINI As String
   
5. 
   
6.     Private Sub frmSampleINI_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         strFileINI = MyPath(Application.StartupPath) & "Config.ini"
   
8.         '// เช็คว่ามีไฟล์ Config.ini อยู่หรือไม่???
   
9.         If My.Computer.FileSystem.FileExists(strFileINI) Then
   
10.             RadioButton1.Checked = ReadIni(strFileINI, "Config", "Option1", "")
    
11.             RadioButton2.Checked = ReadIni(strFileINI, "Config", "Option2", "")
    
12.             RadioButton3.Checked = ReadIni(strFileINI, "Config", "Option3", "")
    
13.             '//
    
14.             CheckBox1.Checked = ReadIni(strFileINI, "Config", "Check1", "")
    
15.             CheckBox2.Checked = ReadIni(strFileINI, "Config", "Check2", "")
    
16.             CheckBox3.Checked = ReadIni(strFileINI, "Config", "Check3", "")
    
17.             '// Section [data]
    
18.             Dim sr As New System.IO.StreamReader(strFileINI, System.Text.Encoding.Default)
    
19.             Dim sRow As String
    
20.             '/ ระบุ Section ที่ต้องการ
    
21.             Dim Section As String = "data"
    
22.             Dim blnMatch As Boolean = False
    
23.             '// ลูปจนกว่าไม่เจอข้อมูลใดๆเลย ลอง Debug ดูก็จะเห็นครับ
    
24.             Do While sr.Peek() <> -1
    
25.                 '/ อ่านค่าแบบ Line by Line
    
26.                 sRow = sr.ReadLine()
    
27.                 '/ ต้องเช็คก่อนว่าเป็น Section ที่ต้องการหรือไม่? (ใส่ Lower Case หรือให้เป็นอักษรตัวเล็กทั้งหมด)
    
28.                 If LCase(sRow) = "[" & LCase(Section) & "]" Then
    
29.                     blnMatch = True
    
30. 
    
31.                     '/ เมื่อได้ Section ตามที่ต้องการ (blnMatch = True) ก็ตรวจสอบอีกครั้งว่ามีข้อมูลหรือไม่ และต้องไม่มีเครื่องหมาย Bracket
    
32.                 ElseIf blnMatch AndAlso Trim(sRow) <> "" AndAlso Mid(sRow, 1, 1) <> "[" Then
    
33.                     '// แยก (Split) Key กับ Value ออกจากกัน
    
34.                     Dim data() As String = Split(sRow, "=")
    
35.                     Dim key As String = data(0)
    
36.                     Dim value As String = data(1)
    
37.                     '// Test to find Key and Value
    
38.                     'Debug.Print(key & "=" & value)
    
39.                     'ListBox1.Items.Add(key & "=" & value)
    
40.                     ListBox1.Items.Add(value)
    
41.                 Else
    
42.                     blnMatch = False
    
43.                 End If
    
44.             Loop
    
45.             sr.Close()
    
46. 
    
47.             '// กรณีไม่เจอ ให้เริ่มต้นค่าใหม่
    
48.         Else
    
49.             RadioButton1.Checked = True
    
50.             RadioButton2.Checked = False
    
51.             RadioButton3.Checked = False
    
52.             '// Clear ค่าทั้งหมดให้ Uncheck
    
53.             For Each ctrl As CheckBox In GroupBox2.Controls
    
54.                 ctrl.Checked = False
    
55.             Next
    
56.         End If
    
57.     End Sub
    
58. 
    
59.     ' / --------------------------------------------------------------------
    
60.     '// บันทึกไฟล์ INI
    
61.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    
62.         WriteIni(strFileINI, "Config", "Option1", GetRadioButton(RadioButton1))
    
63.         WriteIni(strFileINI, "Config", "Option2", GetRadioButton(RadioButton2))
    
64.         WriteIni(strFileINI, "Config", "Option3", GetRadioButton(RadioButton3))
    
65.         '//
    
66.         WriteIni(strFileINI, "Config", "Check1", GetCheckBox(CheckBox1))
    
67.         WriteIni(strFileINI, "Config", "Check2", GetCheckBox(CheckBox2))
    
68.         WriteIni(strFileINI, "Config", "Check3", GetCheckBox(CheckBox3))
    
69.         '//
    
70.         For iRow As Byte = 0 To ListBox1.Items.Count - 1
    
71.             WriteIni(strFileINI, "Data", "RowData" & iRow, ListBox1.Items(iRow).ToString)
    
72.         Next
    
73.         'WriteIni(strFileINI, "Data", "", strData)
    
74.         '//
    
75.         MessageBox.Show("บันทึกการตั้งค่าระบบเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
76.         Me.Close()
    
77.     End Sub
    
78. 
    
79.     ' / --------------------------------------------------------------------
    
80.     ' / เพิ่มค่า (Value) เข้าไปใน ListBox
    
81.     Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
    
82.         If TextBox1.Text = "" Or Len(TextBox1.Text) = 0 Then Return
    
83.         ListBox1.Items.Add(TextBox1.Text)
    
84.         TextBox1.Clear()
    
85.         TextBox1.Focus()
    
86.     End Sub
    
87. 
    
88.     ' / --------------------------------------------------------------------
    
89.     ' / ลบค่า (Value) ออกจาก ListBox
    
90.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
    
91.         If ListBox1.SelectedIndex < 0 Then Return
    
92.         ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    
93.         TextBox1.Focus()
    
94.     End Sub
    
95. 
    
96.     ' / --------------------------------------------------------------------
    
97.     ' / ตรวจสอบสถานะของ RadioButton
    
98.     Private Function GetRadioButton(rdb As RadioButton) As Boolean
    
99.         If rdb.Checked Then
    
100.             Return True
     
101.         Else
     
102.             Return False
     
103.         End If
     
104.     End Function
     
105. 
     
106.     ' / --------------------------------------------------------------------
     
107.     ' / ตรวจสอบสถานะของ CheckBox
     
108.     Private Function GetCheckBox(chk As CheckBox) As Boolean
     
109.         If chk.Checked Then
     
110.             Return True
     
111.         Else
     
112.             Return False
     
113.         End If
     
114.     End Function
     
115. 
     
116.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
117.         Me.Close()
     
118.     End Sub
     
119. 
     
120.     Private Sub frmSampleINI_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
121.         Me.Dispose()
     
122.         Application.Exit()
     
123.     End Sub
     
124. 
     
125. End Class

คัดลอกไปที่คลิปบอร์ด

โมดูลฟังค์ชั่นในส่วนของการอ่านและเขียนข้อมูลลง INI

1. Module modFunction
   
2. 
   
3.     ' / --------------------------------------------------------------------
   
4.     ' / Initialized Management
   
5.     Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringW" ( _
   
6.         ByVal lpApplicationName As String, _
   
7.         ByVal lpKeyName As String, _
   
8.         ByVal lpString As String, _
   
9.         ByVal lpFileName As String _
   
10.         ) As Int32
    
11. 
    
12.     Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" ( _
    
13.         ByVal lpApplicationName As String, _
    
14.         ByVal lpKeyName As String, _
    
15.         ByVal lpDefault As String, _
    
16.         ByVal lpReturnedString As String, _
    
17.         ByVal nSize As Int32, _
    
18.         ByVal lpFileName As String _
    
19.         ) As Int32
    
20.     ' / --------------------------------------------------------------------
    
21. 
    
22.     ' / --------------------------------------------------------------------
    
23.     Public Function WriteIni(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamVal As String) As Integer
    
24.         WriteIni = WritePrivateProfileString(Section, ParamName, ParamVal, iniFileName)
    
25.     End Function
    
26. 
    
27.     ' / --------------------------------------------------------------------
    
28.     Public Function ReadIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
    
29.         Dim ParamVal As String = Space$(1024)
    
30.         Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName)
    
31.         ReadIni = Left$(ParamVal, LenParamVal)
    
32.     End Function
    
33. 
    
34.     ' / --------------------------------------------------------------------
    
35.     ' / Get my project path
    
36.     ' / AppPath = C:\My Project\bin\debug
    
37.     ' / Replace "\bin\debug" with ""
    
38.     ' / Return : C:\My Project\
    
39.     Function MyPath(ByVal AppPath As String) As String
    
40.         '/ MessageBox.Show(AppPath);
    
41.         AppPath = AppPath.ToLower()
    
42.         '/ Return Value
    
43.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
44.         '// If not found folder then put the \ (BackSlash) at the end.
    
45.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
46.     End Function

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่

naynop

ขอบคุณครับ นี่เลยที่ลอยคอ เอ๋ย รอคอย

MrDen

ขอบคุณ And Thank you ครับ

yusanc

ขอบคุณครับ

Oplot

ขอบคุณมากครับ

Dhongpob

ขอบคุณครับ