Solved: How to get only specific information from a .txt file using macro

[mdmackillop]

[VBA]Option Explicit
Option Compare Text

Sub Test()
Dim fs, a
Dim t As String
Dim MyFile As String
Dim i As Long

MyFile = Application.GetOpenFilename("Text Files,*.txt")

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.openTextFile(MyFile)

Do
t = a.readline
Loop Until InStr(1, t, "resistor") > 0

i = 1
Cells(i, 1) = t
t = a.readline

Do
i = i + 1
Cells(i, 1) = t
t = a.readline
Loop Until InStr(1, t, "nodes") > 0

a.Close

End Sub
[/VBA]