Way to search for a string in text file, pull out everything until another string?

omahadivision · #11 11-23-2013, 10:25 AM

Thank you. I feel that I am so close! I will do the FSO method. However, I get an error "object not found" at

Code:

Set fo = fso.OpenTextFile(Fname, 1) 'ForReading

Fname is the full path of the text file. I get it through the dialog

Code:

Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
f.Title = "Choose one or more Gaussian Output files"
'f.InitialFileName = ActiveWorkbook.Path
f.Filters.Clear
f.Filters.Add "Gaussian Output Files", "*.txt"
f.InitialView = msoFileDialogViewList

I also enabled the scripting library, so I'm pretty sure that's not my problem.

Thanks again!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to create new word doc and save the file using String found in the document	VBNation	Word VBA	2	02-08-2013 07:14 AM
Find and replace a string of text	errtu	Word	1	01-31-2013 02:09 PM
Excel Fomula to search for a string and display value from different column	zeeshanbutt	Excel	1	07-29-2012 12:48 AM
Convert numbers to a specific text string	francis	Excel	1	10-06-2011 01:43 PM
Extract numbers from a text string	aleale97	Excel	4	02-10-2011 10:33 AM