Wie würden Sie das in VB.NET schreiben?

Question

Ich habe VB.NET nie wirklich gelernt, wie würdest du das in VB.NET schreiben? Hier

ist der Code:

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

es so sein würde?

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

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

Und nein, Wandler funktionieren nicht, ich habe es bereits versucht.

Answer 1

Der C# -Code verwendet eine Zuweisung in Ausdruck - diese sind nicht in VB verfügbar. Die VB entspricht:

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

Sie können die Extra ‚Readline‘ Erklärung vermeiden, wenn Sie eine bedingungslose Schleife mit einem ‚Exit Do‘ können Magen - nur Optionen besagt:

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

Answer 2

Dies sollte das klassische Muster der Trick mit:

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 

der Vorteil dieses Ansatzes besteht darin, dass nur eine einzige Wache Anweisung erforderlich ist, wenn Sie verpflichtet sind, haben zwei ReadLine Anweisungen.

Persönlich ist die von Telerik vorgeschlagene InlineAssignHelper ein schlechtes Muster, das nur Ihren Code unklar macht.

Answer 3

Wenn Sie Bedenken hinsichtlich Ihrer Lesbarkeit des Codes haben, dann ist die Verwendung von reinem Code vb.net in Ihrem Fall die bessere Wahl.

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 

oder EndOfStream Eigenschaft verwendet wird besser lesbar auf meiner Meinung nach (dank @Visual Vincent)

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