Xử lý các tập tin với các dòng lệnh và hàm I/O cổ điển

7.2.1.1.2Soạn thảo tập tin

Mở tập tin với Input. Sau đó, dùng dòng lệnh line Input #, Input() hoặc Input # để sao chép nội dung tập tin vào biến. Visual basic cung cấp những hàm để đọc ghi 1 ký tự hoặc một dòng vào tập tin. Đoạn code sau đọc từng dòng:

Dim LinesFromFile, NextLine As String

Do Until EOF(FileNum)

Line Input #FileNum, NextLine

LinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)

Loop

Mặc dù Line Input# nhận ra cuối chuỗi khi nó đọc đến ký tự xuống dòng, nhưng nó không lấy ký tự này khi đưa và biến. Nếu muốn lấy ký tự xuống dòng ta phải tự xử lý code.

Input #filename, name, street, city,state,zip

Dùng Input để sao chép một số ký tự từ tập tin vào biến:

LinesFromFile = Input(n, Filename)

Để copy toàn bộ tập tin vào biến, dùng InputB để copy từng byte. Vì InputB trả về chuỗi ANSI, ta phải dùng StrConv để chuyển đổi từ ANSI sang UNICODE.

LinesFromFile= StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)

Để ghi nội dung biến vào tập tin, mở tập tin với Output hay Append, sau đó dùng Print #. Ví dụ, tình soạn thảo văn bản copy nội dung của hộp văn bản vào tập tin:

Print #FileNum, Thebox.text

Visual basic cũng hỗ trợ lệnh Write #, dùng để ghi một danh sách các số, chuỗi vào tập tin. Dấu phẩy được dùng để tách biệt:

Dim strString as String, intNumber as Integer

strString = “AnyCharacters”

intNumber = 23456

Write #Filenum, strString, intNumber

Đoạn code này ghi một chuỗi và một số vào một tập tin được chỉ ra bởi FileNum.

7.2.1.2Tập tin ngẫu nhiên

Type worker

LastName As String *10

Tilte As String * 7

Rank As String *2

End Type

Public Employee as worker

7.2.1.2.1Mở tập tin ngẫu nhiên

Open pathname [ For Random ] As filenumber Len = reclength

Vì Random là kiểu mặc định từ khoá For random là tuỳ chọn.

Biểu thức Len = reclength chỉ ra kích thước tính bằng byte của một bản ghi. Lưu ý rằng mỗi biển chuỗi trong Visual basic chứa một chuỗi Unicode và ta phải chỉ ra chiều dài tính bằng byte của chuỗi đó. Nếu reclength nhỏ hơn chiều dài thực sự của bản ghi ghi đến tập tin, lỗi sé sinh ra. Nếu reclength lớn hơn chiều dài thực sự của bản ghi, bản ghi sẽ được ghi, mặc dù một số khoảng trống đĩa bị lãng phí.

7.2.1.3Tập tin truy cập nhị phân

Trong mô hình FSO không hỗ trợ tập tin này. Dùng tập tin nhị phân khi yêu cầu kích thước tập tin nhỏ. Khi thao tác nên dùng biến byte thay vì String, vì dữ liệu nhị phân không thể chứa đúng vào biến String.

7.2.1.3.1Mở tập tin nhị phân

Cú pháp lệnh:

Open pathname For Binary As filenumber

7.2.1.3.2Chứa thông tin trong các trường hợp có độ dài thay đổi

Ta có thể giảm thiểu việc sử dụng khoảng trống đĩa bằng tập tin nhị phân.

Type Person

ID As Integer

MonthlySalary As Currency

LastReviewDate As Long

FirstName As String

LastName As String

Tilte As String

End Type

Public Empl As Person

Mỗi bản ghi chỉ chứa một số byte cần thiết do các trường có chiều dài biến đổi. Trở ngại là ta không thể truy cập bản ghi một cách ngẫu nhiên, mà ta phải truy cập tuần tự theo độ dài của mỗi bản ghi. ta có thể tìm một byte trong tập tin, ngưng không thể biết byte đó thuộc bản ghi nào.

Каталог: hungpn -> LaptrinhWindowsVB
LaptrinhWindowsVB -> Kiến trúc ole db/ado
LaptrinhWindowsVB -> ListView dùng để hiển thị danh sách các đối tượng theo nhiều hình thức thể hiện khác nhau. Ví dụ: trong cửa sổ Window Explorer, bên trái là danh sách các ổ đĩa và thư mục được tổ chức theo dạng cây sử dụng TreeView

tải về 1.69 Mb.

Chia sẻ với bạn bè của bạn: