Dear All

I have a text file named Solution.txt containing this information



   MEMBER 1. LEN - 5000. MM FY - 420. FC - 30. MPA, SIZE - 200. X 250. MMS

   LEVEL HEIGHT BAR INFO FROM TO ANCHOR
             (MM) (MM) (MM) STA END
   __________________________________________________ ___________________


     1 64. 2 - 16MM 0. 4813. YES NO
   |----------------------------------------------------------------|
   | CRITICAL POS MOMENT= 14.00 KN-MET AT 2500.MM, LOAD 101|
   | REQD STEEL= 209.MM2, ROW=0.0056, ROWMX=0.0223 ROWMN=0.0033 |
   | MAX/MIN/ACTUAL BAR SPACING= 72./ 41./ 72. MMS |
   | BASIC/REQD. DEVELOPMENT LENGTH = 292./ 230. MMS |
   |----------------------------------------------------------------|


How can I pick information in red colour and place it in to exel file name Myinfo.xls
Each number in one cell of exel program

Thank so much

You will need to “teach” your routine to “read.” My preferred way to open a text file is to add Windows Scripting Runtime as a reference in the project’s references, and use the FileSystemObject. (See help on that, and opening a TextStream for reading.)

Determine the steps necessary to find the data that you are after, and codify that.
For instance, it looks like in your case it would be something like:

 > Read first line of file into string variable
 > Find 1st space. (Could be throw away 1st 10 characters.)
 > Grab all non-whitespace up to—but not including—the next Chr(46)
 > Find InStr( "SIZE" )
 > Move right 4 characters
 > Get all up to—but not including—the next Chr(46)

And so on.
If there are not specific formats that the text file will conform to, you might not be able to do this.

Hi BrianWren

Your idea is very useful. I've it in many cases
My text file is very long and it is repeating that information but the red-numbers change value. Could you post the complete VBA code to sole that.

Thanks for your help

N.C.Hoang