I E= T*R
Chi tiết về lệnh Writ e#
Cú pháp : Write #filenumber, [outputlist]
trongđóoutputlistlà danh sách các biểu thức chứa giá trịchuỗi hay số cần ghi, các biểu thức trong danh sáchđược ngăn cách bằng dấu ','.
Cách thức xửlý in dữliệu ra file :
Kiểu dữliệu Kết quả được ghi trên file
outputlist chỉcó dấu ',' dòng trống (CRLF)
Null #NULL#
luận lý #TRUE# hay #FALSE# Date #yyyy-mm-dd hh:mm:ss# mã lỗi errornumber #ERROR errornumber# chuỗi abcdef "abcdef"
số chuỗi miêu tảsốdùng dấu '.'
Các kết quảin được ngăn cách với nhau bởi dấu ',' trên file xuất.
Chương 11 : Quản lý hệthống file
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 306
Thí dụ truy xuất Sequential file
Ta thửviếtứng dụng cho phép user chọnđường dẫn của 1 file text-only rồiđếm sốtừ được chứa trong file này. Giảsửmỗi từlà 1 chuỗi ký tựchữsố(a-z hay 0- 9) bất kỳ được ngăn cách nhau bởi các ký tựkhông phải là chữsố.
Textbox hiển thị đường dẫn file cần khảo sát. Button duyệt và chọn file.
Textbox chứa sốtừ
trong file. Option Explicit' Thủtục xửlý sựkiện Click button Browse Private Sub cmdBrowse_Click()
CommonDialog1.ShowOpen
txtFileName.Text = CommonDialog1.FileName txtWordCount.Text = WordCount(txtFileName.Text) End Sub
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 307
Chi tiết hàm đếm từ trong file
Private Function WordCount(strFileName As String) As Long Dim lngWcount As Long, FileNum As Integer, Char As String * 1
FileNum = FreeFile ' Tìm chỉsốfile chưa dùng và mởfile Open strFileName For Input As FileNum
lngWcount = 0
Do While Not EOF(FileNum) ' Lặpđến hết file.
Do ' tìm các dấu ngăn trước 1 từmới Char = Input(1, #1)
Char = LCase(Char)
Loop Until ("a" <= Char And Char <= "z") Or ("0" <= Char And Char <= "9")_ Or EOF(FileNum)
If EOF(FileNum) Then GoTo CloseRet lngWcount = lngWcount + 1 ' tăng sốtừlên 1
Do ' tìm và bỏcác ký tựcủa từhiện hành Char = Input(1, #1)
Char = LCase(Char)
Loop Until Not (("a" <= Char And Char <= "z") Or ("0" <= Char And Char <= "9"))_ Or EOF(FileNum)
If EOF(FileNum) Then GoTo CloseRet Loop CloseRet: WordCount = lngWcount Close #FileNum End Function Chương 11 : Quản lý hệthống file
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 308
Các hàm xác định vị trí truy xuất trong file