[VB.NET] การแยกชุดข้อมูลออกจากกันด้วยเครื่องหมายหลายแบบด้วย TextFieldParser

thongkorn

เวลาที่เราทำการแยกแยะข้อมูล (Parser) ด้วยเครื่องหมาย หรือสัญลักษณ์ที่คั่นอยู่ระหว่างข้อมูล (Delimited) ในเท็กซ์ไฟล์ ปกติก็มักจะเจอกับรูปแบบตัวแยกที่แน่นอนตายตัว คือมีแค่แบบเดียว เช่น เครื่องหมายคอมม่า (,) หรือช่องว่าง อย่างใดอย่างหนึ่ง เรียกได้ว่าหากินกันง่ายๆสบายๆ แต่ทว่าบางครั้งชุดข้อมูลมันก็มาแบบแปลกๆ คือมีสารพัดตัวแยกนี่ซิ แล้วจะทำอย่างไร??? วันนี้แอดมินเลยมาขอนำเสนอความเก่งของ VB.Net คือการใช้ TextFieldParser ดังต่อไปนี้ ...

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Process a delimited file with many signs.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------
    
13. 'Imports System.IO
    
14. 
    
15. Public Class frmParserText
    
16. 
    
17.     Private strFile As String = String.Empty
    
18. 
    
19.     Private Sub frmParserText_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
20.         Call SetupDGVData()
    
21.     End Sub
    
22. 
    
23.     Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click
    
24.         Dim OpenFile As New OpenFileDialog()
    
25.         ' ระบุ Path เริ่มต้น (Initial) โดยผมเลือกตำแหน่งของโปรเจคปัจจุบัน
    
26.         OpenFile.InitialDirectory = MyPath(Application.StartupPath)
    
27.         OpenFile.FileName = ""
    
28.         ' กำหนดให้เลือกกรอง (Filter) เฉพาะเท็กซ์ไฟล์ (Text File)
    
29.         OpenFile.Filter = "Text File (*.txt)|*.txt"
    
30. 
    
31.         ' http://msdn.microsoft.com/en-us/library/c7ykbedk.aspx
    
32.         ' http://msdn.microsoft.com/en-us/library/system.windows.forms.dialogresult.aspx
    
33.         ' .NET มีดีอย่างตรงที่ไม่ต้องเรียก Component มาใช้งาน
    
34.         Dim Res As System.Windows.Forms.DialogResult = OpenFile.ShowDialog()
    
35.         ' มีการกด Cancel ให้ออกไปเลย ... ดีกว่า VB6 เยอะเลยแบบนี้ ... ยอมรับ - Accept
    
36.         If Res = System.Windows.Forms.DialogResult.Cancel Then Return
    
37.         '// เรียกไฟล์ตัวอย่าง
    
38.         strFile = IO.Path.Combine(OpenFile.FileName)
    
39.         dgvData.Rows.Clear()
    
40.         '// เริ่มต้นทำการแยกข้อมูล
    
41.         Call ParserText()
    
42.     End Sub
    
43. 
    
44.     ' / --------------------------------------------------------------------
    
45.     ' / Parser Text with delimited.
    
46.     Private Sub ParserText()
    
47.         '// ประกาศ reader ให้เป็นการอ่านข้อมูลเพื่อทำการแยก (TextFieldParser)
    
48.         Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser = My.Computer.FileSystem.OpenTextFieldParser(strFile)
    
49. 
    
50.         '// กำหนด reader ด้วย TextFieldType เพื่อทำการแยกชุดข้อมูลออกจากกัน
    
51.         reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
    
52.         '// ตั้งค่าให้ reader แยกชุดข้อมูลด้วเครื่องหมายคอมม่า (,) Tap และไปป์ (|)
    
53.         reader.Delimiters = New String() {",", vbTab, "|"}
    
54.         '// กรณีที่บรรทัดนั้นมีเครื่องหมาย // ก็ไม่ต้องไปสนใจมัน หรือข้ามมันไปเลย
    
55.         reader.CommentTokens = New String() {"//"}
    
56. 
    
57.         '// วนรอบการอ่านข้อมูลทีละบรรทัด
    
58.         Do While Not reader.EndOfData
    
59.             Try
    
60.                 '// แยกชุดข้อมูลออกจากกันทีละบรรทัดด้วยการใช้ ReadFields method
    
61.                 Dim arrFields As String() = reader.ReadFields()
    
62. 
    
63.                 '//
    
64.                 Dim dgvRow As New DataGridViewRow
    
65.                 Dim dgvCell As DataGridViewCell
    
66.                 '// แยกข้อมูลออกมาทีละหลัก
    
67.                 For Each strField As String In arrFields
    
68.                     '// รับค่าเข้ามาทีละเซลล์ (ไฟล์ตัวอย่างมี 3 หลัก)
    
69.                     dgvCell = New DataGridViewTextBoxCell
    
70.                     dgvCell.Value = strField
    
71.                     dgvRow.Cells.Add(dgvCell)
    
72.                 Next
    
73.                 '// เพิ่มเข้าไปในแถวของตารางกริด
    
74.                 dgvData.Rows.Add(dgvRow)
    
75. 
    
76.                 '// Trap Error
    
77.             Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
    
78.                 MessageBox.Show(ex.Message)
    
79.             End Try
    
80.         Loop
    
81. 
    
82.         '// Close the reader
    
83.         reader.Close()
    
84.     End Sub
    
85. 
    
86.     ' / --------------------------------------------------------------------------------
    
87.     '// Initialize DataGridView @Run Time
    
88.     Private Sub SetupDGVData()
    
89.         With dgvData
    
90.             .RowHeadersVisible = False
    
91.             .AllowUserToAddRows = False
    
92.             .AllowUserToDeleteRows = False
    
93.             .AllowUserToResizeRows = False
    
94.             .MultiSelect = False
    
95.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
96.             .ReadOnly = True
    
97.             .Font = New Font("Tahoma", 9)
    
98.             ' Columns Specified
    
99.             .Columns.Add("ID", "ID")
    
100.             .Columns.Add("Name", "Name")
     
101.             .Columns.Add("Point", "Point")
     
102.             ' Autosize Column
     
103.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
104.             .AutoResizeColumns()
     
105.             '// Even-Odd Color
     
106.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
107.             ' Adjust Header Styles
     
108.             With .ColumnHeadersDefaultCellStyle
     
109.                 .BackColor = Color.Navy
     
110.                 .ForeColor = Color.Black
     
111.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
112.             End With
     
113.         End With
     
114.     End Sub
     
115. 
     
116.     ' / --------------------------------------------------------------------------------
     
117.     ' / Get my project path
     
118.     ' / AppPath = C:\My Project\bin\debug
     
119.     ' / Replace "\bin\debug" with ""
     
120.     ' / Return : C:\My Project\
     
121.     Function MyPath(ByVal AppPath As String) As String
     
122.         '/ MessageBox.Show(AppPath);
     
123.         AppPath = AppPath.ToLower()
     
124.         '/ Return Value
     
125.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "")
     
126.         '// If not found folder then put the \ (BackSlash) at the end.
     
127.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
     
128.     End Function
     
129. 
     
130.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
131.         Me.Close()
     
132.     End Sub
     
133. 
     
134.     Private Sub frmParserText_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
135.         Me.Dispose()
     
136.         Application.Exit()
     
137.     End Sub
     
138. 
     
139. End Class

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

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

g2gsoftuser

ขอบคุณครับ