Chỉ em Ghi và đọc dữ liệu VB vào file text với!!!

[rikimaru87]

cụ thể là thế này :
em đã nhận đc dữ liệu (nhiệt độ) từ cổng com. và bây h mún ghi vào 1 file của VB để lưu data . bạn nào biết cách tạo file , lưu dữ liệu và truy xuất dữ liệu từ 1 file text của vb chỉ giùm mình với .
PS : hướng dẫn cụ thể tí nha mấy bạn . (vì mình còn kém lắm )

[nhanh0112]

Nguyên văn bởi rikimaru87

cụ thể là thế này :
em đã nhận đc dữ liệu (nhiệt độ) từ cổng com. và bây h mún ghi vào 1 file của VB để lưu data . bạn nào biết cách tạo file , lưu dữ liệu và truy xuất dữ liệu từ 1 file text của vb chỉ giùm mình với .
PS : hướng dẫn cụ thể tí nha mấy bạn . (vì mình còn kém lắm )

Phần để đọc:

Function ReadToFile(k)
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\data.txt", ForReading)
   For i = 1 To k
   ReadToFile = f.ReadLine
   Next i
   f.Close
End Function

ví dụ: Để lấy dữ liệu bạn chỉ cần viết text1.text=ReadToFile(line can lay)
Để ghi dữ liệu

Function WriteToFile(abc)
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\data.txt", ForAppending, False)
   f.writeline abc
   f.Close
End Function

ví dụ để ghi dữ liệu bạn chỉ cần viết: writetofile("du lieu can ghi")
và nó sẽ tự động ghi từng dòng với mỗi lần sử dụng hàm này.
Với hàm trên đc cấu hình sử dụng với file txt có sẵn, nếu bạn muốn tạo mới (khi chưa có file gốc) bạn sửa thành false thành true
Để xóa toàn bộ dữ liệu cũ trên file gốc và ghi vào nội dung mới bạn sửa ForAppending thành ForWriting
Bạn có thể thêm nhiều dòng (f.writeline noidung) để ghi thêm dòng dữ liệu cho 1 lần sử dụng hàm
Chúc thành công!.