Vb6 使用Visual Basic 6读取.txt文件中的特定行

我目前正在处理一个EDI文件，现在我只想加载和读取.txt文件中的一行，并将其放在文本框中。下面是我的数据

ISA*00*          *00*          *01*MKT71          *01*ADEV04         *160331*1001*U*00501*300000001*0*P*>~

GS*IN*MKT71*ADEV04*20160331*1001*300000001*X*005010~

ST*810*300000001~

BIG*20160316*BS13435**NONE~

REF * BM * DHL-2162693540~

REF*CR*5201~

---

现在，我只想将.txt文件第5行中的数据DHL-2162693540放在我的Textbox1中。

最简单、最直接的方法是读取第一行（不管有多少行），只保留最后一行的值

以下是实现以下功能的一些代码：

Private Sub ReadLines()

    Dim MyLine As String
    Dim DataLineNumber As Integer
    DataLineNumber = 5

    Open "C:\YourFileNameHere.txt" For Input As DataFile

    Do While Not EOF(1) And LineNumber <= DataLineNumber
        Line Input #DataFile, MyLine
        DataLineNumber = DataLineNumber + 1
    Loop

    Close DataFile

    MsgBox MyLine

End Sub

专用子读线（）
暗糜线如线
Dim DataLineNumber为整数
DataLineNumber=5
打开“C:\YourFileNameHere.txt”作为数据文件输入
不要把EOF（1）和行号仅仅作为一个友好的提示，你可能想仔细阅读这一页：这样你就可以确保你的问题很容易回答并且尽可能清楚。请确保包括您为解决问题所做的任何努力，以及在尝试这些修复时发生的情况。另外，不要忘记查看您的代码和任何错误消息！这行代码有语法错误。行输入数据文件，MyLineOh ok。我还以为你不在乎呢，哈哈。我会很快解决的。只是一个旁注/提示-您可以在注释中突出显示代码，方法是在其周围加上反勾。@HidekiMTC尝试在该行的变量
数据文件
前面加上一个
。我编辑了我的答案，以显示我所指的内容，但新更改的行将如下所示：
line Input#DataFile，MyLine
，因此我设法让您的代码正常工作。但是如果你需要的信息不在最后一行怎么办？假设它位于中间的某个地方。e、 你想在第5行的信息，因为文本文件有10行数据OK，所以我的项目取得了很大的进展。另外，我认为您缺少使
LineNumber
变量递增的代码。我想从这里我只需要使用子字符串来提取我想要的确切数据。谢谢你的帮助，伙计。