PIC Vietnam

Go Back   PIC Vietnam > Microchip PIC > Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)

Tài trợ cho PIC Vietnam
Trang chủ Đăng Kí Hỏi/Ðáp Thành Viên Lịch Bài Trong Ngày Vi điều khiển

Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 29-11-2009, 04:51 AM   #1
rikimaru87
Đệ tử 3 túi
 
rikimaru87's Avatar
 
Tham gia ngày: Apr 2009
Bài gửi: 53
:
Chỉ em Ghi và đọc dữ liệu VB vào file text với!!!

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 )
rikimaru87 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 29-11-2009, 09:44 AM   #2
nhanh0112
Đệ tử 4 túi
 
Tham gia ngày: May 2007
Bài gửi: 81
:
Trích:
Nguyên văn bởi rikimaru87 View Post
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:
Code:
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
Code:
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!.
nhanh0112 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời


Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 06:40 PM.


Được sáng lập bởi Đoàn Hiệp
Powered by vBulletin®
Page copy protected against web site content infringement by Copyscape
Copyright © PIC Vietnam