Xử lý tập tin

Mở tập tin tuần tự

Open pathnameFor|Input | Output |Append |Asfilenumber | Len =buffersize| Khi mở một tập tin tuần tự với Input,tập tin phải có sẵn. Nếu không Visual basic sẽ báo lỗi. Khi ta mở một tập tin chưa có sẵn với Outputhoặc Appendlệnh Open sẽ tạo mới tập tin và mở nó.

Tham số tuỳ chọn Len chỉ ra số ký tự trong vùng đệm khi sao chép dữ liệu giữa tập tin và chương trình.

Sau khi mở tập tin với Input, Output hoặc Append ta phải đóng nó bằng lệnh Close.

Soạn thảo tập tin

Trước hết, đọc nội dung tập tin vào biến, sửa biến và ghi biến vào tập tin.

Đọc chuỗi từ 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.

Ta cũng có thể dùng Input # để đọc một danh sách gồm các số hay chuỗi trong tập tin. Ví dụ, để đọc một dòng trong tập tin danh sách thư điện tử:

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 chuỗi và tập tin

Để 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.

Mở 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á Forrandomlà tuỳ chọn.

Biểu thức Len=reclengthchỉ 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 reclengthnhỏ 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 reclengthlớ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í.

Mở tập tin nhị phân

Cú pháp lệnh:

Open pathname For Binary As filenumber
    

Chứ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.