reading values in from a text file

**thegoat001** · 06-26-2011, 03:29 AM

Hi Guys,

I have a text files that contains various information I need to feed into excel, I have tried importing data but the values in the text file are not organized well enough.

I would like to be able to search for a string like "field" and then store the the values on the same line immediately after it into excel. cells.

PD1 * * Client and Well Information 03-MAY-2011 16:27
PDB mode LIS USA
Company XXX
Well XXXX XX
Field WILDCAT
Prvnc/co XXX
Cntry/st XX XXX
Location XX XX XX
Unique well Id.
API Number XX XX API Number
Location 2 SW SW NW NE
Lsd Sec Twp Rge XX XX
Permit number Permit Number
Permanent Datum G.L.
Elevation XXX feet
Log Measured from K.B. @ 7 FEET
Elevation above PD feet
Elevn. of log zero feet
Drill measured from K.B.
Elevations: KB XXX F feet
DF XXX F feet
GL XXX F feet

**vasantjob** · 06-26-2011, 04:08 AM

pls send me the file, let me try

**royUK** · 06-26-2011, 04:16 AM

vasantjob

Don't quote whole posts unless necessary.

**thegoat001** · 06-26-2011, 04:25 AM

Thanks for the help, I've attached the file.

**DonkeyOte** · 06-26-2011, 04:26 AM

@vasantjob,

For reference: sample files should be attached on threads directly and not sent via PM/Email. Private correspondence rather defeats the purpose of a public forum.
Sample files should of course be stripped of confidential info.

@thegoat001, I would suggest posting an Excel file that shows desired results given sample data.

**thegoat001** · 06-26-2011, 04:31 AM

I'm hoping that I do not need to post a sample excel file...once I know how to extract one value from the text files I'm hoping I can get the rest. Once the values are extracted and placed in individual cells I will be able to process them further. Some examples would be well name, company name, location, etc.

**vasantjob** · 06-28-2011, 07:03 AM

Originally Posted by thegoat001

I'm hoping that I do not need to post a sample excel file...once I know how to extract one value from the text files I'm hoping I can get the rest. Once the values are extracted and placed in individual cells I will be able to process them further. Some examples would be well name, company name, location, etc.

try this


Sub ReadFile()
Fl = "C:\Documents and Settings\Desktop\Sample text file.txt"
Dim myFileName As String
Dim myLine As String
Dim FileNum As Long
myFileName = Fl
FileNum = 1
Close FileNum
Open myFileName For Input As FileNum
Do While Not EOF(FileNum)
    Line Input #FileNum, myLine
    Debug.Print myLine
Loop
End Sub