Question

我目前正在处理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~

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

Answer 1

最简单，最直接的方法是读取第一行但是只保留最后一行的值。

以下是一些完成该操作的代码：

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

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

1 个答案: