Vb.net 为什么此streamreader objreader不返回任何值？

文本文件已满，@#用于排序到正确的数组条目中。你能看出它有什么毛病吗

更新 所以，也许我不理解streamreader，是的。readline auto随后会转到下一行。因为我认为这就是vbnewline所做的。但这是为了在变量中设置格式

我需要它来读取a行，然后读取下一行，在循环中读取下一行2，依此类推。

---

因此，如果我知道nextline命令或其他什么，我可以在循环中不使用循环

如果有人偶然发现这个愚蠢的问题。我补充说：

Data
@#1
Data
@#2
Data
@#3
Data
@#4
Data
@#5
Data
@#6

---

各位干杯

您是否尝试在TextLine=objReader.ReadLine（）设置断点并检查返回的内容？好主意。所以它似乎没有循环。我想这是Do While objReader.Peek（）-1您知道我可以使用文件扩展名结尾吗？代码很不确定。ContractDirectory不是“c:\users\documents”的可能性太大了。您当然想改用FileInfo.FullPath。代码将在NRE上消失，契约数组未初始化。那当然应该是一份（条目）清单。通过简单检查StreamReader.ReadLine（）是否不返回任何内容来避免使用Peek（）。添加vbNewLine没有什么意义。注意空行，在文件的底部看不到它们。我已经为数组预定义了类。我如何初始化它？

Data
@#1
Data
@#2
Data
@#3
Data
@#4
Data
@#5
Data
@#6

 For Each dra In diar1
        CC = CC + 1
    Next
    Dim Contracts() As Contract
    ReDim Contracts(CC)
    For c = 0 To CC
        Contracts(c) = New Contract
    Next