C#, VB Read File

     วันนี้ก็ของเสนอเกี่ยวกับการ Read File แบบง่ายๆ โดยใช้ Text File เป็นตัวอย่าง ไปชม ตัวอย่าง Source Code กันเลยครับ

Source Code C#
Namespace
using System.IO;
using System.Text; //เพื่อใช้ StringBuilder

      Ex. C# Read All Text

//ทำการ Clear Text Box
textBox1.Text = string.Empty;

//Get Path ของ Text File.
string strPath = Application.StartupPath + @"\TextFile.txt";

//อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = File.ReadAllText(strPath);

      Ex. C# Read All Lines

//ทำการ Clear Text Box
textBox1.Text = string.Empty;

//Get Path ของ Text File.
string strPath = Application.StartupPath + @"\TextFile.txt";

//ประกาศตัวแปร String Array เพื่อรับค่าแต่ละ Line
string[] strArr = File.ReadAllLines(strPath);

//ประกาศตัวแปร StringBuilder เพื่อรับค่าแต่ละ Line
StringBuilder sb = new StringBuilder();

//วน For เพื่อทำการต่อ String
for (int i = 0; i < strArr.Length; i++)
{
          //ทำการต่อ String เป็น บรรทัด
          sb.AppendLine(strArr[i]);
}

//อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = sb.ToString();

      Ex. C# Read All Bytes

//ทำการ Clear Text Box
textBox1.Text = string.Empty;

//Get Path ของ Text File.
string strPath = Application.StartupPath + @"\TextFile.txt";

//ประกาศตัวแปร Byte Array เพื่อรับค่า
byte[] byteArr = File.ReadAllBytes(strPath);

//ประกาศตัวแปร StringBuilder เพื่อรับค่า Byte Array แต่ละตัว
StringBuilder sb = new StringBuilder();

//วน For เพื่อทำการต่อ String
for (int i = 0; i < byteArr.Length; i++)
{
          //ทำการต่อ Byte Array เป็น String เป็น บรรทัด
          sb.AppendLine(byteArr[i].ToString());
}

//อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = sb.ToString();

Source Code VB
Namespace
Imports System.IO
Imports System.Text 'เพื่อใช้ StringBuilder

      Ex. VB Read All Text

'ทำการ Clear Text Box
textBox1.Text = String.Empty

'Get Path ของ Text File.
Dim strPath As String = Application.StartupPath & "\TextFile.txt"

'อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = File.ReadAllText(strPath)

      Ex. VB Read All Lines

'ทำการ Clear Text Box
textBox1.Text = String.Empty

'Get Path ของ Text File.
Dim strPath As String = Application.StartupPath & "\TextFile.txt"

'ประกาศตัวแปร String Array เพื่อรับค่าแต่ละ Line
Dim strArr As String() = File.ReadAllLines(strPath)

'ประกาศตัวแปร StringBuilder เพื่อรับค่าแต่ละ Line
Dim sb As StringBuilder = New StringBuilder()

'วน For เพื่อทำการต่อ String
For i As Integer = 0 To strArr.Length - 1
          'ทำการต่อ String เป็น บรรทัด
          sb.AppendLine(strArr(i))
Next

'อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = sb.ToString()

      Ex. VB Read All Byte

'ทำการ Clear Text Box
textBox1.Text = String.Empty

'Get Path ของ Text File.
Dim strPath As String = Application.StartupPath & "\TextFile.txt"

'ประกาศตัวแปร Byte Array เพื่อรับค่า
Dim byteArr AS byte[] = File.ReadAllBytes(strPath);

'ประกาศตัวแปร StringBuilder เพื่อรับค่าแต่ละ Line
Dim sb As StringBuilder = New StringBuilder()

'วน For เพื่อทำการต่อ String
For i As Integer = 0 To strArr.Length - 1
          'ทำการต่อ Byte Array เป็น String เป็น บรรทัด
          sb.AppendLine(byteArr(i).ToString());
Next

'อ่าน Text File และ แสดงบน Text Box.
textBox1.Text = sb.ToString();

     เราก็จะได้ข้อมูลที่อ่านจาก Text File มาใช้งานในรูปแบบต่าง ๆ ครับ เช่น ต้องการอ่านทั้งหมดก็เลือกแบบ Read All Text, ถ้าต้องการแบบเป็นบรรทัดๆ ก็ใช้แบบ Read All Lines , หรือต้องการทำการนำข้อมูลที่ได้มาไปในรูปแบบอื่นๆ ก็แบบ Read All Bytes ครับผม ลองไปใช้กันดูนะครับ

ผิดพลาดประการใดก็ติชมแก้ไขกันนะครับ
ขอบคุณครับ