Bài giảng Lập trình VB - Phần 4

tổ CHứC Và đIềU khiển tập tin 1 Các lệnh về tập tinCó sáu lệnh được thống kê trong bảng sau:LệnhChức năngChDriveThay đổi ổ đĩa ChDirThay đổi thư mục ngầm địnhMkDirTạo một thư mục mớiRmDirGỡ bỏ một thư mụcNameThay đổi tên tập tin hoặc di chuyển một tập tinKillXoá tập tin Design: NGuyễn Hiền Du2 Các hàm điều khiển tập tin Hàm FileCopy Dùng để chép một tệp từ đường dẫn nguồn sang một đường dẫn khác. hàm nay không dùng ký tự đại diệnCú pháp:FileCopy source, destinationví dụ:Private Sub Command1_Click()VBA.MkDir "D:\vietnam"VBA.FileCopy "D:\vb3.ppt", "D:\vietnam\bai3.ppt"End SubDesign: NGuyễn Hiền Du Hàm FileDateTime Hàm này trả về ngày giờ đã tạo ra tập tin hoặc lần sửa đổi mới nhất. Cú pháp là:FileDateTime(PathName)Private Sub Command1_Click()	MsgBox VBA.FileDateTime("D:\vietnam\bai3.ppt")End SubHàm GetAttrHàm GetAttr trả về một số nguyên. Cú pháp của hàm này là:GetAttr(PathName) Design: NGuyễn Hiền DuBảng sau tóm tắt các giá trị này dưới dạng các hằng ký hiệu.Thuộc tínhHằngGiá trịNormalvbNormal0ReadOnlyvbReadOnly1HiddenvbHidden2SystemvbSystem4VolumevbVolume8DirectoryvbDirectory16ArchivevbArchive32Design: NGuyễn Hiền DuHàm SetAttrHàm SetAttr ấn định thuộc tính cho tập tin. Cú pháp của hàm này là:SetAttr PathName, Attributescác hằng ký hiệu được dựng trong bảng trênví dụ:Private Sub Command1_Click()	VBA.SetAttr "d:\vb3.ppt", vbHiddenEnd SubDesign: NGuyễn Hiền Du3 Tập tin văn bảnTập tin văn bản là kiểu tập tin cơ bản nhất, chúng lưu giữ văn bản mà chúng ta đọc được. Có thể dùng Notepad để xem một tập tin văn bản Ta chỉ nên dùng tập tin văn bản khi biết rõ:  Sẽ không thay đổi trong tập tin Thông tin được xử lý từ đầu đến cuối (tuần tự) Có thể bổ sung vào cuối tập tin lệnh tạo tập tin:Cú pháp:Open For Output as #NumTrong đó là đường dẫn và tệp tin cần mởNum là chỉ số tệp tin mà bộ nhớ cần quản lýDesign: NGuyễn Hiền DuVớ dụ: để mở tệp tin “D:\vanban.txtOPEN “D:\Vanban.txt” FOR OUTPUT AS # 1Mở tệp có tên Vanban.txt để lấy dữ liệu đưa vào RAM theo “kênh” 1 Để đóng tệp:Cú phápClose #Numví dụ:Close # 1Để ghi dữ liệu lên tệp tinCú pháp: Print #Num , ví dụ:Print #1,“Cong nghe thong tin”Design: NGuyễn Hiền Du Mở tập tin Cú pháp:OPEN FOR INPUT AS # Numví dụ:OPEN “D:\vn.txt FOR INPUT AS #1Để đọc dữ liệu từ tệp tinCú pháp:Input #Num ,ví dụ:INPUT #1,ST Bổ sung dữ liệu vào sau tập tinCú pháp:OPEN FOR Append AS #numDesign: NGuyễn Hiền Du Một số hàm đi kèm với tệp tinFreeFile: lấy ra số hiệu tệp tin rỗiEOF(): trả về kết quả là đúng khi cuối tệp tinLOF(): cho biết độ dài của tệp tinChú ý:Ta có thể dùng lệnh WRITE để ghi nội dung lên tệp tin giống như lệnh PrintDesign: NGuyễn Hiền Du4 RichTextBox và tập tin Phương pháp LoadFile Phương pháp LoadFile dùng để nạp một tập tin .rtf hoặc tập tin văn bản vào điều khiển RichTextBox. Cú pháp như sau:NameOfRichTextBox.LoadFile(PathName, FileType) PathName là đường dẫn và tên của tập tin muốn nạp Tham số FileType là 0 ứng với tập tin .rtf , là 1 ứng với tập tin văn bản. Design: NGuyễn Hiền Du Phương pháp SaveFileLưu nội dung của điều khiển RichTextBox ra một tập tin. Cú pháp:NameOfRichTextBox.SaveFile(PathName,FileType)5. Các tập tin truy cập ngẫu nhiênTập tin truy cập ngẫu nhiên không cần phải chi định mở hay tạo ra. Do vây ta chi cần một cú pháp sau:Open For Random As #NUM Len = Maxlen- Maxlen: là giới han mẩu tin có thể lưu được- NUM: là chỉ số tệp tinDesign: NGuyễn Hiền Du Để ghi lên tệp tin ngẫu nhiên ta dùng lệnh: PUT theo cấu truc sau:PUT #NUM,ví dụ: PUT #2, I ,”Nguyen anh”,”Nam” Để đọc dữ liệu từ tệp tin ngẫu nhiên ta dùng lệnh GET theo cú pháp:GET #NUM,ví dụ:GET #2, I, HT,GT Để kiểm tra độ dài của bản ghi ta dùng lệnh LENDesign: NGuyễn Hiền Du6 Tập tin nhị phântập tin nhị phân cho phép ta đọc hoặc thay đổi bất kỳ byte nào của một tập tin. Chúng là những công cụ rất mạnh. Cú pháp:Open FileName For Binary As # FileNum Design: NGuyễn Hiền Du