Kỹ thuật ghi và đọc file nhị phân

[truongphu]

Thủ thuật: Kỹ thuật ghi và đọc file nhị phân
Tác giả: truongphu
Mô tả: Thông thường chúng ta quen duyệt file theo dạng String. Bài viết trình bày Kỹ thuật ghi và đọc file nhị phân

---

Muốn ghi và đọc file nhị phân bạn phải mở file theo dạng: Open FileName For Binary As Filenum.
Dạng For Binary không quan tâm đến dòng, chỉ biết đến vị trí của byte đang xét.

Đọc và Ghi file: Dùng Function Get và Put như hướng dẫn ở VBLib.

Giá trị ghi có thể là số (vd: Long), chuỗi (string) hay một kiểu biến mà bạn định nghĩa.
Ghi với hàm Put phải kèm vị trí ghi. Ghi ở đầu file, vị trí ghi đương nhiên là 1.

Ghi giá trị ở vị trí nào thì phải đọc đúng vị trí ấy
Ghi giá trị theo định dạng nào thì phải đọc đúng định dạng ấy
Hệ quả: Khi ghi vào file theo dạng For Binary, với định dạng giá trị khác String, mở file thông thường, vd bằng Notepad, sẽ thấy toàn ô vuông! (nghĩa là Notepad đọc theo định dạng String nên không hiểu gì cả)

Sau đây là Code minh họa nội dung trên, cũng là minh họa bài trả lời bạn tasamsung với bài "Đọc file Binary?"
http://www.caulacbovb.com/forum/viewtop ... f=7&t=1016

Code: Select all

Private Type HocSinhHoTên As StringTuôi As ByteGioiTính As StringCânnang As IntegerChiêuCao As LongHocLuc As StringEnd TypePrivate Sub Form_Load()Dim a As HocSinha.Cânnang = 52a.ChiêuCao = 167a.GioiTính = "Nu"a.HocLuc = "Gioi"a.HoTên = "Hà Kiêu Em"a.Tuôi = 21Open "C:\1.txt" For Binary As #1Put #1, 1, aClose #1End SubPrivate Sub Command1_Click()Open "C:\1.txt" For Binary As #1Dim b As HocSinhGet #1, 1, bMsgBox b.Cânnang & vbCrLf & b.ChiêuCao & vbCrLf & b.GioiTính & vbCrLf & b.HocLuc & vbCrLf & b.HoTên'Chi có thê dùng lênh trong Command1 mo'i Ðoc hêt nôi dung cua C:\1.txtEnd Sub 

[playgemboy]

Thủ thuật này hay quá, nhưng theo như cách này chỉ ghi được một record,vd nếu em muốn ghi thêm một Hoc sinh khác thì làm thế nào? em thử Put #1, 2, a nhưng lúc đọc vào, chỉ đọc được cái thứ 2,còn cái thứ nhất thì bị lỗi,(hình như bị cái thứ 2 đè lên hay sao í)

[truongphu]

Code: Select all

Private Type HocSinhHoTên As StringTuôi As ByteGioiTính As StringCânnang As IntegerChiêuCao As LongHocLuc As StringEnd TypePrivate Sub Form_Load()Dim a(1) As HocSinha(0).Cânnang = 52a(0).ChiêuCao = 167a(0).GioiTính = "Nu"a(0).HocLuc = "Gioi"a(0).HoTên = "Hà Kiêu Em"a(0).Tuôi = 21 a(1).Cânnang = 48a(1).ChiêuCao = 172a(1).GioiTính = "Nam"a(1).HocLuc = "Kha"a(1).HoTên = "Lê My Anh"a(1).Tuôi = 18Open "C:\1.txt" For Binary As #1For i = 0 To 1Put #1, , a(i)NextClose #1End SubPrivate Sub Command1_Click()Open "C:\1.txt" For Binary As #1Dim b(1) As HocSinhFor i = 0 To 1Get #1, , b(i)NextMsgBox b(1).Cânnang & vbCrLf & b(1).ChiêuCao & vbCrLf & b(1).GioiTính & vbCrLf & b(1).HocLuc & vbCrLf & b(1).HoTên'Chi có thê dùng lênh trong Command1 mo'i Ðoc hêt nôi dung cua C:\1.txtEnd Sub

Có thể gọi kỹ thuật ghi file nầy là kỹ thuật truongphu được chăng? ;)

[playgemboy]

Không chê vào đâu được, cách này dùng thay mấy cái file .mdb được đấy, từ nay khỏi dính tới mấy cái conection rắc rối, dữ liệu cũng được an toàn hơn xài cái Text.Cảm ơn bác truongphu rất nhiều. Chắc là không ai phản đối việc đặt tên kĩ thuật theo nick của bác đâu, ví dụ như BinaryTruongPhu chẳng hạn .

[Kasper]

Không chê vào đâu được, cách này dùng thay mấy cái file .mdb được đấy, từ nay khỏi dính tới mấy cái conection rắc rối, dữ liệu cũng được an toàn hơn xài cái Text.Cảm ơn bác truongphu rất nhiều. Chắc là không ai phản đối việc đặt tên kĩ thuật theo nick của bác đâu, ví dụ như BinaryTruongPhu chẳng hạn .

Cái này mà đòi thay mấy cái .mdb, thử đi rồi biết nó khó khăn như thế nào. Muốn tìm kiếm, thay thế, xóa một bản ghi không đơn giản đâu nhé. Cái lưu file nhị phân này tui chỉ làm để lưu thông số game hoặc high score thôi

[playgemboy]

Yêu cầu với CSDL của em ko nhiều,kích thước cũng không lớn cho nên khắc phục những yêu cầu của bác:

Muốn tìm kiếm, thay thế, xóa một bản ghi không đơn giản đâu nhé.

Khi thao tác với dữ liệu thì em đã load hết vào trong ListView (report), do đó khi cập nhật,thêm mới, thay thế, xóa.... đều thực hiện trên list, không tác động chi tới file. chỉ khi nào ấn Save thì nó ghi lại file với dữ liệu mới từ list.Ở đây em không phủ nhận những lợi ích của việc sử dụng kết nối CSDL đâu nhé, nhưng tại em ko rành nên đành tự thiết kế cho mình cách đọc và ghi CSDL dựa trên BinaryTruongPhu.

Cái lưu file nhị phân này tui chỉ làm để lưu thông số game hoặc high score thôi

Nếu chỉ dùng như vậy thì hơi bị "phí" đấy quá

[truongphu]

Có 2 người tranh luận thì tác giả phải lên tiếng:
Ở trên tôi trình bày 2 kỹ thuật ghi và đọc các mảng trong file nhị phân.
--> Yêu cầu Tìm kiếm mảng, Sửa và Xóa trên File khá đơn giản trên nguyên tắc đọc hết file với vòng lặp For. . Next, Tiến hành sửa hay xóa một mảng, xong ghi lại file

Trong cấu trúc đọc file ở trên:

Code: Select all

Dim b(1) As HocSinhFor i = 0 To 1Get #1, , b(i)Next

Nếu muốn xóa (hoặc sửa): ví dụ b(1)

Code: Select all

if i = 1 thenb(1).Cânnang = 0b(1).ChiêuCao = 0b(1).GioiTính = ""b(1).HocLuc = ""b(1).HoTên = ""b(1).Tuôi = 0end if

chèn vào là xong:

Code: Select all

Dim b(1) As HocSinhFor i = 0 To 1Get #1, , b(i)if i = 1 thenb(1).Cânnang = 0b(1).ChiêuCao = 0b(1).GioiTính = ""b(1).HocLuc = ""b(1).HoTên = ""b(1).Tuôi = 0end ifNext

Sau khi có tập hợp mảng b(i) đã edit, ta ghi lại file.
Chúc playgemboy có nhiều ứng dụng hay. Nếu các chuỗi String được mã hóa thì tính bảo mật của file rất cao

[ledothien]

đọc được topic của anh viết thật là đúng lúc, do em đang viết 1 pm nhỏ, để quản lý hồ sơ của công ty
vấn đề là cũng giống như anh đặt ra
a as hoso
nhưng do ban đầu chưa biết số luong hồ sơ bao nhiêu
và mỗi lần chạy file là người dùng sẽ thêm vào 1 a(i) cho file dữ liệu

Code: Select all

Private Type DuAn
  TenCongTrinh As String
  TongDuAn As String
  ThietKe As String
  ThamTraDauTu As String
  ThamTraThietKe As String
  GiamSat As String
  NgayStar As String
  NgayEnd As String
  NhanLuc As String
  GhiChu As String
End Type
    Dim a(100) As DuAn
    Dim i As Integer
Private Sub cmdSave_Click(Index As Integer)
    i = 0
    Open "F:\thinhlong\quan ly du an\dulieu.txt" For Binary As #1
    Do While Not EOF(dulieu)
        i = i + 1
    Loop
    a(i + 1).TenCongTrinh = lblTenCongTrinh.Caption
    a(i + 1).TongDuAn = frmNhapDuLieu.txtTongDuToan
    a(i + 1).ThietKe = frmNhapDuLieu.txtThietKe
    a(i + 1).ThamTraDauTu = frmNhapDuLieu.txtThamTraDauTu
    a(i + 1).ThamTraThietKe = frmNhapDuLieu.txtThamTraThietKe
    a(i + 1).GiamSat = frmNhapDuLieu.txtGiamSat
    a(i + 1).NgayStar = frmNhapDuLieu.txtNgayStar
    a(i + 1).NgayEnd = frmNhapDuLieu.txtNgayEnd
    a(i + 1).NhanLuc = frmNhapDuLieu.txtNhanLuc
    a(i + 1).GhiChu = frmNhapDuLieu.txtGhiChu
    Put #1, dulieu, a(i + 1)
    Close #1
End Sub

[/b]
nhưng không biết sao nó báo lỗi ở hoài..
và nếu được thì anh chỉ em cách :
xuất ra hết các dữ liệu ra dạng bảng như trong excel
cảm ơn anh nhiều ah

[truongphu]

đọc được topic của anh viết thật là đúng lúc

hè hè, bài viết đã lâu, vẫn còn ứng dụng!

1-

TenCongTrinh As String

String bạn định nghĩa như trên, vb6 sẽ dành 1024 byte
tôt nhất bạn nên giới hạn string khi định nghĩa: vd

Code: Select all

TenCongTrinh As String * 50

2-

Open "F:\thinhlong\quan ly du an\dulieu.txt" For Binary As #1
Do While Not EOF(dulieu)

For Binary là kỹ thuật mở nhị phân file txt
còn Do While Not EOF(dulieu) là kỹ thuật đọc dòng trong For OutPut
do đó cho nên:

nhưng không biết sao nó báo lỗi ở hoài..

3-

nhưng do ban đầu chưa biết số luong hồ sơ bao nhiêu
và mỗi lần chạy file là người dùng sẽ thêm vào 1 a(i) cho file dữ liệu

Có lẽ:
a- Khai biến Mảng lớn như bạn đã cho: 100
b- Hoặc khai biến Mảng động, thêm vào thì Redim.
bạn tham khảo thử : Hỏi về cấu trúc mảng để lưu dữ liệu
viewtopic.php?f=7&t=10427&start=0

4- xuất ra hết các dữ liệu ra dạng bảng như trong excel
a- Thao tác với Excel, bạn tìm đọc bài tôi viết trong mục Hướng dẫn
b- Hình như các cell: hàng ngang (khác cột) cách VBTAB
hàng dọc (khác hàng) cách nhau VBCRLF
Vậy thì bạn bố trí sắp xếp thế nào để đọc các biến trong mảng thành một chuỗi, Xong dán vào 1 cell, có thể sẽ tự động phân bố...
Giờ tôi hơi bận, sẽ trở lại đề tài nầy...
Chúc bạn sớm tìm giải pháp

[truongphu]

Code: [Select all] [Expand/Collapse]

1. Private Type DuÁn '376 byte
2.  TenCongTrinh As String * 50
3.   TongDuAn As Double  '8 byte
4.  ThietKe As String * 25
5.   ThamTraDauTu As String * 25
6.   ThamTraThietKe As String * 25
7.   GiamSat As String * 25
8.   NgayStart As Date ' 8 byte
9.  NgayEnd As Date ' 8 byte
10.  NhanLuc As Integer ' 2 byte
11.  GhiChu As String * 200
12. End Type
13.  
14. Dim MoFile(100) As DuÁn, SôDL As Integer
15.  
16. Private Sub Command1_Click() 'NhâpLiêu
17. If txtTenCongTrinh.Text = "" Then
18.     MsgBox "Chua có tên công trình"
19.     Exit Sub
20. End If
21.  
22. If txtNgayStart <> "" And IsDate(txtNgayStart) = False Then
23.     MsgBox "Ngày Kho'i Ðâ`u sai"
24.     Exit Sub
25. End If
26.  
27. If txtNgayEnd <> "" And IsDate(txtNgayEnd) = False Then
28.     MsgBox "Ngày Kê't thúc sai"
29.     Exit Sub
30. End If
31.  
32. Open App.Path & "\thinhlong\quan ly du an\dulieu.txt" For Binary As #1
33.     Dim NhâpLiêu() As DuÁn
34.     ReDim NhâpLiêu(SôDL)
35.     NhâpLiêu(SôDL).TenCongTrinh = txtTenCongTrinh
36.     NhâpLiêu(SôDL).TongDuAn = txtTongDuToan
37.     NhâpLiêu(SôDL).ThietKe = txtThietKe
38.     NhâpLiêu(SôDL).ThamTraDauTu = txtThamTraDauTu
39.     NhâpLiêu(SôDL).ThamTraThietKe = txtThamTraThietKe
40.     NhâpLiêu(SôDL).GiamSat = txtGiamSat
41.     NhâpLiêu(SôDL).NgayStart = txtNgayStart
42.     NhâpLiêu(SôDL).NgayEnd = txtNgayEnd
43.     NhâpLiêu(SôDL).NhanLuc = txtNhanLuc
44.     NhâpLiêu(SôDL).GhiChu = txtGhiChu
45.    
46.     Dim xx As Long xx = (SôDL * 376) + 1
47.     Put #1, xx, NhâpLiêu(SôDL)
48. Close #1
49.  
50. End Sub

GeSHi © Codebox Plus Extension

[ledothien]

em lam như anh huong dẫn, mà em không biết còn lỗi gì ở dòng sau...

=>>>> Open App.Path & "D:\thinhlong\quan ly du an\dulieu.txt" For Binary As #1

thậm chí em copy cả code của anh, nó vẫn báo lỗi ở dòng này..error 52-->bad file name or number
(file dulieu.txt là chính xac duong dẫn rồi, đúng tên lun.)
mong được anh chỉ giúp, cảm ơn anh ah

[truongphu]

học lập trình phải tỉ mỉ, cẩn thận;

thậm chí em copy cả code của anh, nó vẫn báo lỗi ở dòng này..error 52-->bad file name or number

=>>>> Open App.Path & "D:\thinhlong\quan ly du an\dulieu.txt" For Binary As #1

* Bạn xem đó có phải là copy code của tôi không?
* Bạn nên tìm trong Forum từ: App.Path mà các bạn khác hay gọi là đường dẫn tương đối

[float01]

cho e hỏi là có dùng được cách này để mở file có tên tiếng việt để ghi vào ko ?
Nếu có thì làm bằng cách nào mong mọi người hướng dẫn.

[Hong Hai]

Bạn "truongphu" ơi cho mình hỏi nếu muốn ghi dữ liệu là unicode thì phải làm sao. VD: Phần tên mình muốn ghi tiếng Việt. Xin cám ơn

[Hong Hai]

Mình tìm ra cách nầy không biết có được không: Khi lưu thì chuyển sang ASCII, khi trình chiếu thì chuyển lại Unicode.