Bài giảng Hướng dẫn lập trình VB.NET - Chương 12: Khám phá cách xử lý file TEXT và chuỗi

Bài giảng cung cấp cho người học các kiến thức: Khám phá cách xử lý file TEXT và chuỗi, hiển thị nội dung file text bằng đối tượng TextBox, lưu các thông tin trong file text, kỹ thuật xử lý chuỗi,... Hi vọng đây sẽ là một tài liệu hữu ích dành cho các bạn sinh viên đang theo học môn dùng làm tài liệu học tập và nghiên cứu. Mời các bạn cùng tham khảo chi tiết nội dung bài giảng.

Hướng dẫn lập trình VB.NET Chương 12: Khám phá cách xử lý file văn chuỗi Chương 12: Khám phá cách xử lý file TEXT chuỗi oOo -Nội dung thảo luận: - Hiển thị nội dung file text đối tượng TextBox - Lưu thông tin file text - Sử dụng kỹ thuật xử lý chuỗi để xếp mã hóa file Text Trong chương học cách xử lý file text đơn giản với thao tác mở file, hiển thị nội dung, lưu thao tác khác xử lý chuỗi chương trình thơng qua lớp chuỗi String Bạn xếp, ghép nối mã hóa hiển thị từ, dịng tồn nội dung văn file text Chú ý: - Đối tượng FileSystem cung cấp hàm FileOpen, LineInput, PrintLine, FileClose để thao tác với tập tin Đối tượng nằm không gian tên Microsoft.VisualBasic - Ngồi số hàm khơng gian System.IO dùng bổ sung Hiển thị nội dung file Text đối tượng TextBox Cách đơn giản để hiển thị file text dùng điều khiển textbox Để nạp nội dung file text vào textbox ta dùng hàm sau: FileOpen – Mở file để dọc hay ghi, LineInput – Đọc dòng văn từ file, EOF – Kiểm tra xem trỏ đến cuối file chưa, FileClose – Đóng file 1.1 Mở file Text để đọc nội dung Bạn cho phép người dùng mở file text cách hiển thị hộp thoại OpenfileDialog Sau người dùng chọn file, hộp thoại trả đường dẫn file đầy đủ thơng qua thuộc tính filename 1.2 Hàm FileOpen Sau có tên file, bạn dùng hàm FileOpen mở file để đọc hay ghi Cú pháp hàm FileOpen sau: FileOpen(filenumber, pathname, mode) Trong đó: - filenumber: số nguyên từ đến 255 - pathname: đường dẫn hợp lệ trỏ đến file cần mở Biên soạn: Phạm Đức Lập -1- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET - Chương 12: Khám phá cách xử lý file văn chuỗi mode: từ khóa cho biết chế độ mở (ví dụ OpenMode.Input mở file để đọc OpenMode.Output mở file để ghi) Số nguyên filenumber dùng để kết hợp với file mở cho mục đích đọc ghi Bạn dùng để tham chiếu đến file trình xử lý Lưu ý số filenumber hàm FileOpen, LineInput, FileClose EOF phải trùng mở file khơng gây lỗi Ví dụ: Chương trình TextBrowser sau minh họa cách mở file text cho hiển thị lên textbox Tìm hiểu chương trình: Chương trình bao gồm menu File với hai mục chọn Open cho phép mở file hiển thị nội dung file text vào textbox mục Close để đóng file Thiết kế giao diện: Bạn tạo giải pháp thêm vào dự án có tên TextBrowser thiết kế giao diện sau: Trong điều khiển có thuộc tính sau: - Textbox1: Enable – False, Multiline – True - OpenToolStripMenuItem: Enable – True - CloseToolStripMenuItem: Enable – False Biên soạn: Phạm Đức Lập -2- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET - Chương 12: Khám phá cách xử lý file văn chuỗi Các điều khiển thuộc tính khác hình Viết mã: Tạo thủ tục OpenToolStripMenuItem_Click sau: 'Khai báo hai biến, biến lưu toàn văn 'một biến lưu dòng văn Dim AllText, LineOfText As String 'Tạo lọc file *.txt OpenFileDialog1.Filter = "Text files (*.txt)| *.txt" OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName "" Then Try 'Mở file để đọc FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) Do Until EOF(1) 'Đọc dòng đến hết LineOfText = LineInput(1) 'Nối vào biến Alltext AllText = AllText & LineOfText & vbCrLf Loop 'Cập nhật nội dung textbox Label1.Text = OpenFileDialog1.FileName TextBox1.Text = AllText ' Loại bỏ đánh dấu chọn cho văn TextBox1.Select(1, 0) 'Cho phép soạn thảo TextBox1.Enabled = True 'Cho phép chọn mục Close menu CloseToolStripMenuItem.Enabled = True 'Vơ hiệu hóa mục Open menu OpenToolStripMenuItem.Enabled = False Catch ex As Exception MsgBox("Lỗi mở file") Finally 'Đóng file FileClose(1) End Try End If Tiếp theo tạo thủ tục CloseToolStripMenuItem_Click sau: Label1.Text = "Mở file văn mục Open từ menu File" TextBox1.Text = "" OpenToolStripMenuItem.Enabled = True CloseToolStripMenuItem.Enabled = False Các bạn đọc dòng ghi màu xanh để biết cơng dụng phát biểu chương trình Chạy chương trình: Các bạn ấn F5 để chạy chương trình mở file text để xem chương trình chạy Sử dụng lớp StreamReader để mở file Text Ngoài hàm mở đọc file biết, sử dụng lớp StreamReader VB.NET để thực chức tương tự Để sử dụng lớp ta cần đặt thêm khai báo Imports System.IO đầu chương trình Biên soạn: Phạm Đức Lập -3- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET Chương 12: Khám phá cách xử lý file văn chuỗi Sau thủ tục OpenToolStripMenuItem_Click viết lại sử dụng lớp StreamReader: Dim StreamReaderToDisPlay As StreamReader OpenFileDialog1.Filter = "TEXT FILES (*TXT) | *.TXT" OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName "" Then Try StreamReaderToDisPlay = New StreamReader _ (OpenFileDialog1.FileName) Label1.Text = OpenFileDialog1.FileName TextBox1.Text = StreamReaderToDisPlay.ReadToEnd TextBox1.Enabled = True OpenToolStripMenuItem.Enabled = False CloseToolStripMenuItem.Enabled = True Catch ex As Exception MsgBox("Lỗi mở file") Finally StreamReaderToDisPlay.Close() End Try End If Bạn xem tồn mã chương trình giải pháp TextBrowser1 phần tập chương 12 Tạo file text Tạo file text hữu ích bạn muốn ghi file log, ini hay readme Các bước tổng quát để ghi file text sau: - Nhận dl nhập từ người dùng hay chương trình tính - Gán dl cho hay nhiều biến Ví dụ gán nội dung textbox1 biến - Yêu cầu nhập tên file ghi hộp thoại SaveFileDialog - Sử dụng đường dẫn tên file hộp thoại SaveFileDialog trả gọi hàm ghi file - Sử dụng hàm PrintLine để lưu nội dung biến xuống file - Đóng file ghi xong Ví dụ QuickNote sau minh họa việc tạo file text Tìm hiểu chương trình: Chương trình gồm ô textbox để chế dộ multiline scrollbars hai chiều (thuộc tính scrollbar – giá trị both), menu File gồm ba mục chọn Insert Date cho phép chèn ngày tháng vào đầu văn bản, mục chọn Save cho phép ghi lại nội dung ô textbox vào file text với tên người dùng nhập vào, mục Close đóng chương trình Thiết kế giao diện: Biên soạn: Phạm Đức Lập -4- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET Chương 12: Khám phá cách xử lý file văn chuỗi Bạn tạo giải pháp thêm vào dự án có tên QuickNote thiết kế giao diện hình: Viết mã: Tạo thủ tục InsertDateToolStripMenuItem_Click sau: TextBox1.Text = DateString & vbCrLf & TextBox1.Text TextBox1.Select(1, 0) Tạo thủ tục SaveToolStripMenuItem_Click sau: SaveFileDialog1.Filter = "Text File (*.txt) | *.txt" SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName "" Then Try FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output) PrintLine(1, TextBox1.Text) Catch ex As Exception MsgBox("Lỗi ghi") Finally FileClose(1) End Try End If Chạy chương trình: Bạn chạy chương trình, ghi vào textbox đoạn văn tùy ý hay chép từ file khác, chèn thêm ngày tháng lưu vào file (phải nhập tên file) Biên soạn: Phạm Đức Lập -5- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET Chương 12: Khám phá cách xử lý file văn chuỗi Xử lý chuỗi chương trình Chuỗi thơng tin cần xử lý nhiều ngôn ngữ lập trình Các thao tác xử lý học chương bao gồm cắt chuỗi, nối chuỗi, tìm kiếm, xếp, so sánh chuỗi,… Việc nối chuỗi ta có tốn tử & hay dùng phương thức Concat VB ví dụ: Dim loichao as String loichao = String.Concat(“Hello ”, “World, ”, “Hi Everyone!”) Bạn dùng phương thức cũ Mid, Ucase, Lcase…hay dùng phương thức mà lớp String cung cấp SubString, ToUpper, ToLower Thường ta dùng phương thức Bảng sau liệt kê hàm xử lý chuỗi NET VB truyền thống: NET VB cũ Chức ToUpper UCase Đổi toàn chuỗi sang chữ hoa ToLower LCase Đổi toàn chuỗi sang chữ thường Length Len Trả chiều dài chuỗi SubString Mid Cắt chuỗi chuỗi cha IndexOf InStr Xác định vị trí chuỗi chuỗi cha Trim Trim Cắt bỏ khoảng trắng chuỗi Remove Biên soạn: Phạm Đức Lập Loại bỏ khoảng trắng chuỗi -6- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET Chương 12: Khám phá cách xử lý file văn chuỗi Insert Chèn chuỗi vào chuỗi cha StrComp So sánh chuỗi 3.1 Sắp xếp chuỗi Các ký tự ghép lại tạo thành chuỗi Mỗi ký tự có mã bảng mã ASCII Bảng mã có 255 mã Sau hệ điều hành WinXP, NT, 2000 chuẩn quốc tế qui định bảng mã ký tự khác Unicode Trong bảng mã mã ký tự chiếm byte byte ASCII Việc xếp ký tự dựa vào mã ký tự Chữ A mã 65 đứng trước chữ B có mã 66 3.2 Làm việc với ký tự ASCII Để xem ký tự có mã ASCII dùng hàm Asc, ví dụ: Dim AscCode As Short AscCode = Asc("A") MsgBox(AscCode) Ngược lại bạn dùng hàm Chr() để biết ký tự tương ứng với mã ASCII cho trước, ví dụ: Dim letter As Char letter = Chr(65) MsgBox(letter) Để so sánh chuỗi, bạn dùng toán tử sau: , =, >, =, For i = trungbinh To sophantumang - j = i - trungbinh + For j = (i - trungbinh + 1) To Step -trungbinh If mang(j)