从文本文件中提取部分

Question

OPSPANNING 3 下面我粘贴了一个文本文档示例，我想阅读Excel。 该文本文档通过CNC铣床（使用测头进行测量）保存到PC中。它需要阅读的文本文件的布局长度可能不同（见下文）。

我想使用＆＃34; =＆＃34;等号来查找值将是最佳选择。但空间的数量＆＃34; ＆＃34;在＆＃34; =＆＃34;之间等号和测量结果可以变化。 （看起来它取决于测量值的长度，当测量＆＃34; -31.594＆＃34;时，等号和数字之间将有2个空格。然后当例如＆＃34; 0.274 ＆＃34;被测量。

可能最好删除所有空格？

TXT File:

*****OPSPANNING 3*****

***MEASURE 31.6 +/-0.05 ***

31.6 RIGHT  =   31.594

31.6 MID    =   31.596

31.6 LEFT   =   31.590

***MEASURE 11.4+/-0.05***

11.4   =   11.402


***MEASURE 0.275+/-0.05***

0.275 RIGHT =    0.274

0.275 LEFT  =    0.273

我只想将测量结果插入某个Excel工作表的B列。

Column B:
31.594
31.596
31.590
11.402
0.274
0.273

。

Range("A1").Select  
i=0
Do while ActiveCell.Offset(0,1).Value <>""
    i= i + 10
    ActiveCell.Value = i
    ActiveCell.Offset(1 , 0).Select
Loop

将测量值粘贴到Excel后，我将使用上面的代码对数据进行编号，如10,20,30等。