主题：服务器管理程序

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim sr1 As new Io.StreamReader(dlg.FileName)
   Dim line As String = sr1.ReadLine() '读取一行
   Do While line IsNot Nothing '如果不为空.为空说明读取完毕,结束循环
 
If line.StartsWith(" H") OrElse line.StartsWith(" -") OrElse line.StartsWith(" =") OrElse line.StartsWith(" T") OrElse line.StartsWith(" S")  OrElse line.StartsWith("     S")     Then '跳过字符
       Continue Do
End If
messagebox.show(line.substring(0,2))
line = sr1.ReadLine() '读取下一行
Loop
End If

messagebox.show("processing completed.")