Extract specified line from text file

Try something like this:

Hi @Andrew, I found this code very useful. But a problem occur when i'm working with a file that notepad read as 1 line. I want to only extract a string where the content is seen below:

CS@@CTACERTBRIEF 18$$
ORGID@@USFC17-2445-34.PDF$$
WSTAR

I want to only extract the orgid and the filename.
Note that file name will change and the character count is not constant.

Is their a way to do this is macro?
For your reference text file is can be downloaded HERE

Thanks.

PS. I have multiple files in my folder with same format as the one I sent as example. I want the code to read all the files and return every ORGID and filename and display it as a data in excel sheet.

Andrew Poulsom said:

Try something like this:

Rich (BB code):

Sub Test()
'   *** Change to suit ***
    Const LineNo As Integer = 139
    Dim FileName As String
    Dim FileNum As Integer
    Dim r As Long
    Dim wb As Workbook
    Dim Data As String
''   *** Change path and file name to suit ***
    FileName = "C:\Temp\TheFile.txt"
    FileNum = FreeFile
    r = 1
    Set wb = Workbooks.Add
    Open FileName For Input As #FileNum 
    Do While Not EOF(FileNum)
        Line Input #FileNum , Data
        If r = LineNo Then
            ActiveSheet.Cells(1, 1) = Data
            Exit Do
        End If
        r = r + 1
    Loop
    Close #FileNum 
End Sub

Click to expand...