Как бы вы пишете это в VB.NET?

Question

Я никогда не узнал VB.NET, как бы вы это записывали в VB.NET?

Вот код:

System.IO.StreamReader file = new System.IO.StreamReader(ofd_tracking_file.FileName); 
while ((line = file.ReadLine()) != null) 
{ 
} 

Будет ли это так?

Dim file As System.IO.StreamReader = New System.IO.StreamReader(ofd_tracking_file.FileName) 

While Not line = file.ReadLine() = Nothing  
End While 

И нет, преобразователи не работают, я уже пробовал.

Answer 1

Код C# использует назначение в выражении - они недоступны в VB. В.Б. эквивалент:

Dim file As New System.IO.StreamReader(ofd_tracking_file.FileName) 
line = file.ReadLine() 
Do While line IsNot Nothing 
    ... 
    line = file.ReadLine() 
Loop 

Вы можете избежать дополнительного заявления «ReadLine», если вы можете переварить безусловный цикл с «Exit Do» - варианты просто констатирую:

Do 
    line = file.ReadLine() 
    If line Is Nothing Then Exit Do 
    ... 
Loop 

Answer 2

Это должно сделать трюк, используя классическую схему:

Dim file As New System.IO.StreamReader(ofd_tracking_file.FileName) 

Dim line = file.ReadLine() 
While line IsNot Nothing 
    'blah blah 
    line = file.ReadLine() 
End While 

преимущество такого подхода заключается в том, что требуется только один оператор охранник, хотя вы должны иметь два ReadLine заявлений.

Лично, InlineAssignHelper, предложенный Telerik - это плохой шаблон, который просто делает ваш код неясным.

Answer 3

Если вы беспокоитесь о своей читаемости кода, то использование чистого кода vb.net будет лучшим выбором в вашем случае.

Using reader As New StreamReader(ofd_tracking_file.FileName) 
    Dim line As String = Nothing 
    Do 
     line = reader.ReadLine() 
     Debug.Write(line) 
    Loop Until line Is Nothing 
End Using 

или используя EndOfStream свойство будет более удобным для чтения на мой взгляд (благодаря @Visual Винсент)

Using reader As New StreamReader(ofd_tracking_file.FileName) 
    While reader.EndOfStream = false 
     Dim line As String = reader.ReadLine() 
     'use line value 
    End While 
End Using