- Image: hiển thị biểu tượng hoặc hình ảnh cho mục chọn.
4.4GHI NỘI DUNG TEXTBOX TRÊN FORM VÀO FILE TEXT (xem [4 tr 246])
Luyện tập trên lớp Câu hỏi lý thuyết
4.4GHI NỘI DUNG TEXTBOX TRÊN FORM VÀO FILE TEXT (xem [4 tr 246])
Khi tiến hành ghi (lưu - Save) nội dung của textbox vào file text, VB.NET sẽ
thực hiện luôn việc tạo ra file mới nếu TenFile chưa thực sự tồn tại. Nhưng nếu TenFile
đang tồn tại thì VB.NET sẽ căn cứ vào thông số False/True nằm sau TenFile, nếu False thì ghi đè nội dung mới lên nội dung hiện có trong TenFile, nếu True thì ghi tiếp nội dung mới sau nội dung hiện có trong TenFile, trường hợp sau TenFile để trống (không có False cũng không có True) thì được hiểu là False.
Cú pháp khai báo luồng ghi đè nội dung mới lên nội dung hiện có trong file text:
Dim TenBien As New System.IO.StreamWriter(TenFile,False)
Dim TenBien As New System.IO.StreamWriter(TenFile)
Cú pháp khai báo luồng ghi nội dung mới tiếp theo nội dung hiện có trong file text:
Dim TenBien As New System.IO.StreamWriter(TenFile,True)
Ghi toàn bộ nội dung textbox
Ví dụ: Ghi nội dung từ textbox ra file text
Imports si = System.IO
PublicClass Form1
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
84
Dim ghifile AsNew si.StreamWriter(tenfile) ghifile.Write(TextBox1.Text)
ghifile.Close() EndSub
Lưu ý:
- Sử dụng StreamWriter()để mở luồng ghi lên file.
- Phương thức .Write (nội dung text cần ghi) để ghi toàn bộ nội dung văn bản lên file.
- Phương thức .Closeđểđóng luồng sau khi ghi xong.
Ghi từng dòng nội dung text box
Lưu ý:
- VB.NET hiểu từng dòng văn bản trên textbox là một phần tử mảng chuỗi qua phương thức .Lines của control textbox.
- Phương thức .WriteLine (nội dung dòng text cần ghi) để ghi từng dòng nội dung văn bản lên file, chính xác hơn là ghi từng phần tử của mảng chuỗi lên file text.
Ví dụ: Ghi từng dòng của Textbox vào file text
Imports si = System.IO
PublicClass Form1
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Dim tenfile AsString = Application.StartupPath & "\Textfileok.txt" (adsbygoogle = window.adsbygoogle || []).push({});
Dim ghidong AsNew si.StreamWriter(tenfile, True) Dim tungdong() AsString
Dim i AsInteger tungdong = TextBox1.Lines For i = 0 To (tungdong.Length - 1) ghidong.Writeline(tungdong(i)) Next ghidong.Close() EndSub