Почему мой StringReader не читает мой txt-файл в vb.net?

Question

Это мой код, и я хочу прочитать мой файл TestFile.txt и отобразить его в txt2.Text, но этот код не читает мой txt-файл. кто-нибудь может помочь мне решить эту проблему? Благодаря

Dim MyFileName As String = "C:\Users\TestFile.txt" 
Dim Line As String = "" 
Dim sb As New StringBuilder 
Using sr As New StringReader(MyFileName) 
Line = sr.ReadLine 
    Do      
     If Line = "*" Then 
     Line = sr.ReadLine 
     Do        
      sb.Append(LineRead)   
      Line = sr.ReadLine 
     Loop Until Line = "**"  
    End If 
     Line = sr.ReadLine   
Loop Until Line = ""    
End Using 
Line = txt2.Text 

Answer 1

Вы не присоединяют Line к StringBuilder, но LineRead, который не установлен в вашем коде.

Ваш код должен прочитать:

Line = sr.ReadLine 
Do        
    sb.Append(Line)   
    Line = sr.ReadLine 
Loop Until Line = "**" 

---

В комментариях я посоветовал удалить следующий фрагмент из моего ответа:

Реальная проблема языки программирования, которые донских 't заставлять вас объявлять переменные, прежде чем вы сможете их использовать. Вы должны любить VB.NET ...

Я хотел бы процитировать MSDN здесь:

По умолчанию Visual Basic .NET или Visual Basic компилятор навязывает явное объявление переменных, которая требует что вы объявляете каждую переменную перед ее использованием. Чтобы изменить это поведение по умолчанию, см. Раздел «Изменение значения проекта по умолчанию».

Таким образом, в то время как по умолчанию комментатор права, вы можете изменить поведение, и ничего в этом вопросе не говорит мне, что ОП не изменил его. Тем не менее, я буду уточнять свое утверждение, если быть более точным:

Настоящая проблема - языки программирования, которые позволяют вам превратить необходимость объявления переменных, прежде чем вы сможете их использовать. Вы должны любить VB.NET ...

Answer 2

StringReader просто позволяет вам читать из строки, она не читает и не открывает файл.

Используйте StreamReader для чтения из файла.

Dim filename As String = "C:\Users\TestFile.txt" 
    Dim Line As String = "" 
    Dim sb As New StringBuilder 
    Using sr As StreamReader = File.OpenText(filename) 
    Line = sr.ReadLine 
    Do      
     If Line = "*" Then 
     Line = sr.ReadLine 
     Do        
      sb.Append(Line) ' you probably meant Line, not LineRead  
      Line = sr.ReadLine 
     Loop Until Line = "**"  
    End If 
     Line = sr.ReadLine   
    Loop Until Line = "" 
    End Using