|
|
|
Tạo tập
tin .TXT, .LOG trong VB6 |
|
Đó hỏi: Xin quý báo cho biết cách tạo một tập
tin (chẳng hạn: pass.log hoặc pass.txt) bằng Visual
Basic để lưu trữ dữ liệu vào một thư mục định trước. |
|
<hackyboy159@> |
|
Đây
trả lời: VB6
có một nhóm lệnh cho phép tạo tập tin dạng text hoặc
tập tin có một cấu trúc do người lập trình định
nghĩa, đó là các lệnh: Open, Write, Print, Input,
Line Input và Close. Tùy nhu cầu, bạn có thể chọn
lệnh ghi (Write, Print) và đọc (Input, Line Input)
dữ liệu thích hợp. |
1) Để
tạo mới hoặc mở tập tin có sẵn, bạn đều dùng lệnh
Open, thường có dạng:
Open <Đường dẫn> For <Hình thức truy xuất> As [#]<Số
hiệu tập tin> |
|
Trong
đó, <Đường dẫn> là tên tập tin với đường dẫn đầy đủ.
Nếu không tồn tại một đường dẫn như vậy, tập tin sẽ
được tạo mới nếu hình thức truy xuất là: Append,
Binary, Output, hoặc Random. <Hình thức truy xuất>
là một trong các hình thức: Append (thêm vào cuối
tập tin), Binary (đọc ghi nhị phân), Input (đọc dữ
liệu vào), Output (ghi dữ liệu ra), hoặc Random
(truy xuất ngẫu nhiên). Mặc định là Random. <Số hiệu
tập tin> là số từ 1 đến 511 để gán cho một tập tin
được mở. |
2) Để
ghi nội dung vào tập tin, dùng lệnh Write hoặc
Print, thường có dạng:
Write #<Số hiệu tập tin>, [<Danh sách xuất>]
Print #<Số hiệu tập tin>, [<Danh sách xuất>]
Trong đó, <Danh sách xuất> có thể là biểu thức có
trị cần xuất ra tập tin, hoặc (và) các hàm sau đây:
Spc(<Số ký tự trắng>), Tab[(<Vị trí cột>)]. Dữ liệu
ghi bằng Write luôn luôn được bao bằng cặp dấu nháy
kép như ví dụ trong đoạn mã 1. |
3) Để
đọc nội dung từ tập tin, dùng lệnh Input hoặc Line
Input, thường có dạng:
Input #<Số hiệu tập tin>, <Danh sách biến>
Line Input #<Số hiệu tập tin>, <Danh sách biến>
Trong đó, <Danh sách biến> là biến sẽ chứa trị cần
đọc vào như trong đoạn mã 2.
Bạn nên tìm hiểu thêm vấn đề này trong tài liệu MSDN
kèm theo bộ đĩa cài đặt Visual Studio 6. |
|
Đoạn
mã 1 |
Private Sub
Command1_Click()
Dim sTapTin As String
sTapTin = App.Path & "\Text1.TXT”
Open sTapTin For Output As #1
Print #1, "Vi du"
Print #1, ' Ghi một dòng trắng.
Print #1, "Cot 1"; Tab; "Cot 2"
' Ghi dữ liệu thành 2 cột cách nhau một tab.
Print #1, "Chao"; Tab; "ban"
Print #1, "Chao"; Tab; "anh"
Print #1, Spc(5); "5 khoang trang dan dau"
Print #1, Tab(10); "Bat dau tu cot 10"
' Bắt đầu ghi từ vị trí ký tự thứ 10.
Write #1, "Vi du"; Spc(5); "ve write"
' Có thể dùng lẫn lộn Print và Write
Close #1
End Sub |
Đoạn mã 2
Private Sub Command2_Click()
Dim sTapTin As String, sChuoiDoc As String
sTapTin = App.Path & "\Text1.TXT”
Open sTapTin For Input As #1
Do While Not EOF(1) ' Lặp cho đến khi hết tập tin.
Line Input #1, sChuoiDoc
Debug.Print sChuoiDoc '
In ra cửa sổ Immediate để kiểm tra kết quả.
Loop
Close #1
End Sub |
|
CHƯƠNG CAN CHÍP |
|
Nên dùng
định dạng NTFS |
|
Đó hỏi: Máy của em chạy Windows XP SP2, định
dạng file FAT32 cho 3 partition C, D, E. Em cài lại
hệ điều hành trên ổ C và định dạng C thành NTFS, còn
ổ D, E vẫn là FAT32. Làm như thế có sao không? Em
muốn định dạng lại cho ổ C là FAT32 thì có bị mất dữ
liệu không? |
|
<lyhoang_elec@> |
|
 |
|
Đây
trả lời:
Windows XP hỗ trợ đầy đủ hai định dạng FAT32 và NTFS
nên việc bạn phân vùng đĩa là FAT32 hay NTFS không
ảnh hưởng gì đến Windows XP hay hệ thống máy. Tuy
nhiên, chúng tôi khuyên bạn nên dùng định dạng NTFS
vì Windows XP chạy trong ổ cứng NTFS sẽ ổn định hơn
khi chạy trong ổ cứng FAT32 nhờ NTFS có các ưu điểm:
khả năng lưu trữ cao; cho phép bảo mật, mã hóa dữ
liệu đến từng tập tin; truy cập và xử lý file nén
nhanh như truy cập vào các file bình thường; cho
phép phân chia dung lượng cụ thể cho từng người
dùng; khả năng chịu lỗi và tự khắc phục lỗi cao.
Bạn có thể sử dụng phần mềm Partition Magic 8.05 (http://www.symantec.com/home_homeoffice/products/overview.jsp?pcid=sp&pvid=pm80)
có trên đĩa CD Hiren Boot để chuyển đổi từ NTFS sang
FAT32 mà vẫn giữ nguyên dữ liệu đang có trong ổ đĩa.
Bạn tham khảo hướng dẫn sử dụng Partition Magic 8.0
tại
http://www.echip.com.vn/echiproot/weblh/sdpm/2003/pm8/index.htm |
|
LÊ
HOÀN |
|
[Đầu trang] |
|
|
|