Thread: Read select "text" from "Text File" using VBA code

Hello All;

I have text file which has the following sample data like below:

facility","scanLocation":"PHILADELPHIA, PA","scanTime":"12:57 AM","GMTOffset":"-05:00","showReturnToShipper":false,"scanDate":"Jan 19, 2012"},{"scanStatus":"Arrived at FedEx location","scanLocation":"PHILADELPHIA, PA","scanTime":"8:51 PM","GMTOffset":"-05:00","showReturnToShipper":false,"scanDate":"Jan 18, 2012"},{"scanStatus":"Picked up","scanLocation":"PHILADELPHIA, PA","scanTime":"12:40 PM","GMTOffset":"-05:00","showReturnToShipper":false,"scanDate":"Jan 18, 2012"}],"rthActive":true,"getLinkText":"Get Link","shipDateISO"


Now i need a Macro which open this text file and find out the "Picked up" and capture the Date time & Picked up.

Example:
1111 - 1/18/2012 12:40 PM - Picked Up

Regards,
NG

Is this all in one line in the text file, or are these all different lines in the text file?

I think you want to tracking some parcels

for establish where is "Picked up" in text I suggest to use built function InStr
let say your text file is loaded into variable text

text = "facility","scanLocation":"PHILADELPHIA, PA","scanTime...
PickUpPos = InStr(1,text, "Picked up")
scanTime = mid(text,InStr(PickUpPos,text,"scanTime")+11,8)
msgbox "Scan Time is: " & scanTime

It is only my point of view, just try to adapt it to your needs.

I think you want to tracking some parcels

for establish where is "Picked up" in text I suggest to use built function InStr
let say your text file is loaded into variable text

text = "facility","scanLocation":"PHILADELPHIA, PA","scanTime...
PickUpPos = InStr(1,text, "Picked up")
scanTime = mid(text,InStr(PickUpPos,text,"scanTime")+11,8)
msgbox "Scan Time is: " & scanTime

It is only my point of view, just try to adapt it to your needs.