Search text file for keywords and input information into excel columns

[smilestatue]

I am currently working on a program that can search through multiple text files and be able to search for certain Strings, obtain the information after the string, and put it into an excel document.
For example:

Name: Brian
Height: 6'0
Weight: 200 lb

Name: Kevin
Height: 5'7
Weight: 170 lb

However, because the length of each text file differs and there is a lot of information in the text file that isn't required, I'd like to be able look for the Keywords: Name, Height, Weight, and output the information into excel columns.
Ideas on how to do this would be appreciated.

[Siddharth Rout]

Welcome to the forums smilestatue

If the names are unique, and the Height and the Weight is right below the Name always then you can try this method

Logic:

1. Read the file in an array in one go
2. Loop through the array to find the name and then pick up the values.

Code:

Option Explicit

Sub Sample()
    Dim MyData As String, strData() As String
    Dim Nm As String, Ht As String, Wt As String
    Dim i As Long
    
    Open "C:\Sample.Txt" For Binary As #1
    MyData = Space$(LOF(1))
    Get #1, , MyData
    Close #1
    strData() = Split(MyData, vbCrLf)
    
    Nm = "Kevin"
    
    For i = LBound(strData) To UBound(strData)
        If Trim(strData(i)) = "Name: " & Trim(Nm) Then
            Ht = strData(i + 1)
            Wt = strData(i + 2)
            Exit For
        End If
    Next i
    
    Debug.Print Nm: Debug.Print Ht: Debug.Print Wt
End Sub