Chi tiết về lệnh Writ e#

Một phần của tài liệu BÀI GIẢNG MÔN TIN HỌC-MÔN TIN HỌC (Trang 153)

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 xut 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 xut trong file

Một phần của tài liệu BÀI GIẢNG MÔN TIN HỌC-MÔN TIN HỌC (Trang 153)

Tải bản đầy đủ (PDF)

(175 trang)