VBA code to extract strings

Hi I have the text below in a notepad file. I would like to extract strings that start with "TKT-" and end with ".xml”

TEXT IN NOTEPAD FILE:

TKT-YHDIDOSOOSD.XML hwew asdajsdasdh asdasdasdas TKT-PYD-JHJHJSDSDSD.XML


UDkhaishdkashdhasdas* asdjasldjlasdasjdlasjdl jasldjlasjdlasjdlasjdlasjdaslkdjlasjdlasjdlasjdlas


kjlkhkashdkahskdhaskdhaskdhkasdhkashdkashdkashdkashdkashdkashdkashdkashdkashdkash
naksdhaskjdhkashdkashdkashdkashdkjashdkjashdkjashdkjashdkasjhdkajshdkas


ahkjsdhaksj


aslasdjalsjdask TKT-JKSJDKSDJKSJD.XML asdkaskdhaskdhasjhdkashdash TKT-89823483hkshdfkhsd.XML

SO the vba code will paste the following in the cells of a spreadsheet
TKT-YHDIDOSOOSD.XML
TKT-PYD-JHJHJSDSDSD.XML
TKT-JKSJDKSDJKSJD.XML
TKT-89823483hkshdfkhsd.XML

Can someone please help and point me in the right direction? Thanks heaps!!!!!!

snb said:

Code:

Sub M_snb()
  sn=filter(filter(split(replace(ucase(createobject("scripting.filesystemobject").opentextfile("G:\OF\example.txt").readall),vbcrlf," ")),"TKT-"),".XML")
  cells(1).resize(ubound(sn)+1)=application.transpose(sn)
End Sub

Click to expand...

Hi Thank you!

I use macbook and that code is throwing out runtime error 429

You have to adapt "G:\OF\example.txt" anyway.