các cách mở file và đọc file trong vb.net

[crackerviet_87]

các cách mở file và đọc file trong vb.net

mình xin đưa ra 2 cách mở file và đọc file trong vb.net .
bạn nào quan tâm thì góp ý nhé.
các bạn thêm vào project các đối tượng sau: một textbox ,listbox và 3 command.
sau đó thực hiện theo các cách sau:

Imports System.IO
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'openfile
Dim sfile AsString
With OpenFileDialog1
.Filter = "text files (*.xml)|*.xml"
.ShowDialog()
If Len(.FileName) = 0 Then
ExitSub
EndIf
sfile = .FileName
EndWith
FileOpen(1, sfile, OpenMode.Input)
TextBox1.Text = InputString(1, CInt(LOF(1)))
FileClose(1)
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'code openfile level 2
Dim sr As StreamReader
ListBox1.Items.Clear()
sr = New StreamReader("d:\" & "nguyenvantuan.xml")
Dim x AsString
While sr.Peek <> -1
x = sr.ReadLine()
ListBox1.Items.Add(x)
EndWhile
sr.Close()
 
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'delete file 
Dim deletefile AsString
deletefile = "d:\nguyenvantuan.xml"
If System.IO.File.Exists(deletefile) = TrueThen
System.IO.File.Delete(deletefile)
MsgBox("delefile")
EndIf
EndSub
EndClass

[Mr Đàm]

các cách mở file và đọc file trong vb.net

Bạn ơi giúp mình chỗ With OpenFileDialog1
.Filter = "text files (*.xml)|*.xml"
.ShowDialog()

Nó báo ShowDialog() is not member a string

[bboy_nonoyes]

các cách mở file và đọc file trong vb.net

Theo mình thì các bạn nên dùng cách 2, tức là dùng StreamReader & StreamWriter để đọc & ghi tập tin.
Chủ topic đã có ví dụ về StreamReader, mình xin đc bổ sung thêm ví dụ về StreamWriter đơn giản như sau:

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New StreamWriter("C:\SVIT.txt", True)
        f.WriteLine("Chào mừng các bạn đến với SinhVienIT.net!")
        f.Close()
        MsgBox("Đã ghi vào tập tin tại C:\SVIT.txt", MsgBoxStyle.OkOnly, "Thông báo")
    End Sub

End Class

Chúc các bạn thành công!