Khác

Trả lời: Trong VB6, bạn có thể sử dụng lệnh Open để mở một tập tin văn bản, rồi sử dụng lệnh Input hoặc Line Input để đọc một dòng của tập tin. Lệnh Input cho phép đọc một dòng để đưa vào danh sách các biến, như vậy dữ liệu trên một dòng phải được phân cách bằng dấu phẩy. Để hiểu cách dùng lệnh Line Input, bạn hãy tạo một project mới, trên form mặc định vẽ một nút lệnh, gõ vào đoạn mã 1 nhằm đọc 10 phần tử từ tập tin Array.TXT (hình 1).

Hình 1

Đoạn mã 1

Private Sub Command1_Click() Dim sTenFile As String, sDong As String Dim nSoPhanTu As Integer Dim arrText() As String ' Bản dãy động sTenFile = App.Path & "\Array.TXT" Open sTenFile For Input As #1 nSoPhanTu = 0 Do While Not EOF(1) Line Input #1, sDong nSoPhanTu = nSoPhanTu + 1 Loop ReDim arrText(nSoPhanTu) As String I = 0 Seek #1, 1 ' Về vị trí ký tự đầu tiên trong file, xem như đầu file Do While Not EOF(1) Line Input #1, sDong arrText(I) = sDong I = I + 1 Loop Close #1 ' Kiểm tra nội dung bản dãy arrText For I = 0 To nSoPhanTu - 1 Debug.Print arrText(I) Next End Sub

theo echip

       "Các kiến thức đầy đủ nhất về khai thác, thiết kế, lập trình và quản trị Web" www.thegioiweb.vn