در این کد، ابتدا یک شیء از کلاس StreamReader با استفاده از مسیر فایل و انکدینگ UTF-8 ایجاد میشود. سپس با استفاده از روش ReadToEnd این شیء، تمام متن فایل خوانده شده و در متغیر ReadTXT ذخیره میشود. در نهایت، با استفاده از دستور Using، شیء StreamReader به طور خودکار بسته میشود.
Dim Address As String = "C:\example.txt"
Dim ReadTXT As String = ""
Using SR As New StreamReader(Address, Encoding.UTF8)
ReadTXT = SR.ReadToEnd()
End Using
اگر هم مایلید کد ارسالی خودتان را استفاده کنید میتوانید به این شکل بکار بگیرید:
Dim ReadTXT As String = ""
Dim encoding As Encoding = Encoding.UTF8
Using fs As New FileStream(Address, FileMode.Open, FileAccess.Read)
Using sr As New StreamReader(fs, encoding)
ReadTXT = sr.ReadToEnd()
End Using
End Using