Ngôn ngữ lập trình visua basic 6

14:31:59 BÀI 6: TEXT FILE VÀ STRING Xử lý text file Xử lý string Bài 1 09:56:11 Text file Label lblDisplay Giao diện thiết kế: Textbox txtDisplay - Nhấn Mở: dùng OpenFile dialog mở file txt nội dụng lên TextBox txtDisplay, lblDisplay câu ‘Nội dung file ???.txt:’ - Nhấn Lưu: lưu nội dụng TextBox txtDisplay vào file txt dùng SaveFile dialog, lblDisplay câu ‘Đã lưu file ???.txt:’ - Nhấn Xóa: xóa TextBox txtDisplay Bài 2 09:56:11 Text file Ghi nội dung file text: - Tìm file number cịn trống hàm FreeFile Mở file hàm FileOpen(File_Number,Tên_file,Chế độ Output) Ghi nội dung file hàm PrintLine Đóng file Đọc liệu từ text file: - Tìm file number trống hàm FreeFile Mở file hàm FileOpen(File_Number,Tên_file,Chế độ Input) Đọc nội dung file kết thúc file Đóng file Bài 3 09:56:11 Private Sub mnuOpen_Click(sender As Object, e As EventArgs) Handles mnuOpen.Click Dim FileNum As Integer = FreeFile() Dim TextRead As String = Nothing OpenFileDialog1.Filter = "Text files (*.txt)|*.txt" OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then FileOpen(FileNum, OpenFileDialog1.FileName, OpenMode.Input) While Not EOF(FileNum) TextRead += LineInput(FileNum) End While lblDisplay.Text = "Nội dung file: " + OpenFileDialog1.FileName txtDisplay.Text = TextRead End If FileClose(FileNum) End Sub Bài 4 09:56:11 ANSI file: Unicode file: Bài 5 09:56:11 Private Sub mnuSave_Click(sender As Object, e As EventArgs) Handles mnuSave.Click Dim FileNum As Integer = FreeFile() If txtDisplay.Text "" Then SaveFileDialog1.Filter = "Text files (*.txt)|*.txt" SaveFileDialog1.InitialDirectory = Application.StartupPath SaveFileDialog1.FileName = "" If SaveFileDialog1.ShowDialog = DialogResult.OK Then FileOpen(FileNum, SaveFileDialog1.FileName, OpenMode.Output) lblDisplay.Text = "Đã lưu file: " + SaveFileDialog1.FileName PrintLine(FileNum, txtDisplay.Text) End If FileClose(FileNum) End If End Sub Bài 6 09:56:11 Bài 7 15:20:54 Đọc nội dung file text lớp StreamReader: - Tạo biến - Dùng phương thức ReadLine để đọc dòng hay ReadToEnd để đọc toàn nội dung file text - Kiểm tra kết thúc file chưa dùng thuộc tính EndOfStream - Đóng StreamReader Private Sub mnuOpen_Click(sender As Object, e As EventArgs) Handles mnuOpen.Click Dim sr As IO.StreamReader Dim TextRead As String = Nothing OpenFileDialog1.Filter = "Text files (*.txt)|*.txt" OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then sr = New IO.StreamReader(OpenFileDialog1.FileName) While Not sr.EndOfStream TextRead += sr.ReadLine + vbCrLf End While lblDisplay.Text = "Nội dung file: " + OpenFileDialog1.FileName txtDisplay.Text = TextRead End If sr.Close() Bài End Sub 15:54:14 Dùng ReadToEnd để đọc toàn nội dung file text: Private Sub mnuOpen_Click(sender As Object, e As EventArgs) Handles mnuOpen.Click Dim sr As IO.StreamReader Dim TextRead As String = Nothing OpenFileDialog1.Filter = "Text files (*.txt)|*.txt" OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog = DialogResult.OK Then sr = New IO.StreamReader(OpenFileDialog1.FileName) TextRead = sr.ReadToEnd lblDisplay.Text = "Nội dung file: " + OpenFileDialog1.FileName txtDisplay.Text = TextRead End If sr.Close() End Sub Bài 9 15:54:14 Kết dùng StreamReader: Bài 10 10 15:20:54 Ghi nội dung text lớp StreamWriter: - Tạo biến - Dùng phương thức WriteLine để ghi dòng hay Write để ghi - Đóng StreamWriter Private Sub mnuSave_Click(sender As Object, e As EventArgs) Handles mnuSave.Click Dim sr As IO.StreamWriter If txtDisplay.Text "" Then SaveFileDialog1.Filter = "Text files (*.txt)|*.txt" SaveFileDialog1.InitialDirectory = Application.StartupPath SaveFileDialog1.FileName = "" If SaveFileDialog1.ShowDialog = DialogResult.OK Then sr = New IO.StreamWriter(SaveFileDialog1.FileName) sr.WriteLine(txtDisplay.Text) lblDisplay.Text = "Đã lưu file: " + SaveFileDialog1.FileName sr.Close() End If End If End Sub Bài 11 11 15:54:14 Kết dùng StreamWriter: Bài 12 12 09:56:11 Xử lý string Các phương thức xử lý chuỗi: ToUpper: đổi sang chữ hoa Dim st As String = "Nguyễn Văn A" Dim st1 As String = st.ToUpper st1 = “NGUYỄN VĂN A” ToLower: đổi sang chữ thường Length: chiều dài chuỗi st.Length = 12 Trim: cắt bỏ khoảng trắng trước sau chuỗi Dim st As String = " Nguyễn Văn A Dim st1 As String = st.Trim " st1 = “Nguyễn Văn A” Bài 13 13 09:56:11 Xử lý string Dim st As String = "Nguyễn Văn A" Substring: cắt chuỗi st.Substring(0, 6) = "Nguyễn" Lấy ký tự vị trí st.Substring(1, 4) = "guyễ" Lấy ký tự vị trí st.Substring(2) = "uyễn Văn A" Lấy từ vị trí đến hết chuỗi Bài 14 14 09:56:11 Xử lý string Dim st As String = "Nguyễn Văn A" Remove: xóa bớt ký tự chuỗi st.Remove(4, 3) = "NguyVăn A" Xóa ký tự vị trí st.Remove(4) = “Nguy" Xóa từ vị trí đến hết chuỗi IndexOf: tìm vị trí chuỗi chuỗi st.IndexOf("Văn") = st.IndexOf(“Thị") = -1 Bài 15 15 09:56:11 Xử lý string Split: cắt chuỗi thành nhiều chuỗi st1.Length = st1(0) = "Nguyễn“ st1(1) = “Văn“ st1(2) = “A“ Dim st As String = "Nguyễn Văn A" Dim st1() As String = st.Split(" ") TextRead = st1 = st.Split( ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries) st1(0) st1(1) st1(2) st1(3) Bài = = = = "Nguyễn Văn A“ “1“ “Trần Văn B“ “2“ 16 16 09:56:11 Xử lý string Giao diện: Nội dung file user.txt - Kiểm tra thông tin đăng nhập từ file text thơng tin user password lưu dòng - Dùng StreamReader đọc nội dung file text - Tên user không phân biệt chữ hoa chữ thường Bài 17 17 09:56:11 Xử lý string Insert: chèn chuỗi vào chuỗi st.Insert(2, "BCD") = "NBCDguyễn Văn A" Chèn chuỗi vào vị trí st.Insert(st.Length, "BCD") = "Nguyễn Văn ABCD" Chèn chuỗi vào cuối chuỗi Bài 18 18 09:56:11 Thiết kế form viết mã lệnh: - Nhấn nút Thêm: thêm user pass tương ứng textbox txtUser txtPass vào, user pass khơng để trống - Nhấn nút Xóa: xóa user nhập textbox txtUser khỏi hệ thống Nếu khơng tìm thấy cảnh báo - Nhấn nút Liệt kê: liệt kê tất user pass tương ứng lên Listbox lstUser - Nếu double-click vào phần tử ListBox lstUser lên txtUser txtPass Textbox txtUser Textbox txtPass Listbox lstUser Bổ sung: nhấn nút Thêm, user tồn khơng thêm Bài 19 19 09:56:11 Xử lý ký tự Asc: xác định mã ASCII ký tự AscCode = Asc("A") AscCode = 65 Chr: chuyển từ mã ASCII sang dạng ký tự letter = Chr(65) letter = "A" Bài 20 20 10 09:56:11 Mã hóa string File user1.txt: Có thể xem user pass để đăng nhập hệ thống Mã hóa text Bài 21 21 09:56:11 Mã hóa string Dùng tốn tử XOR: - Gán Lấy Nối Quá trước keycode để XOR ký tự string để XOR ký tự lại để tạo chuỗi mã hóa trình khơi phục giống giải mã Private Function EncryptString(Source As String, Keycode As Integer) As String Dim letter As String Dim Result As String = Nothing Dim i As Integer For i = To Source.Length - letter = Source.Substring(i, 1) Result += ChrW(AscW(letter) Xor Keycode) Next Return Result Bài 22 End Function 22 11 12:54:41 Mã hóa string Dim so As String = "Nguyen Van A" st = EncryptString(so, 123) ' Mã hóa với keycode = 123 st1 = EncryptString(st, 123) ' Giải mã với keycode = 123 st2 = EncryptString(st, 11) ' Giải mã với keycode = 11 ANSI Unicode Bài 23 23 12:54:41 Mã hóa string Viết chương trình mở file text, mã hóa nội dung lưu lại file text: - Nút Mở: mở nội dung file text hiển thị TextBox - Nút Mã hóa: nhập keycode, mã hóa nội dung TextBox lưu vào file - Nút Giải mã: nhập keycode, giải mã nội dung TextBox lưu vào file Bài 24 24 12