如何从文本文件中选取特定的数据

狼雅

要求：1、从文件中找标题”MEMBER FORCES AND MOMENTS“以下的数据，然后将数据填充到exce表格中
           2、需要用VBA语句实现以下功能。
难点：1、文本文件中会有多个标题行”MEMBER FORCES AND MOMENTS“，如何把每个标题”MEMBER FORCES AND MOMENTS“下的数据都提取出来；
          2、对于不同的文本文件，两个标题”MEMBER FORCES AND MOMENTS“之间的数据行数是不同的，比如对于文本文件text1，,两个标题之间有20行数据，对文本文件text2，两个标题之间有30行数据。但是对于同一个文本文件来讲，两个标题”MEMBER FORCES AND MOMENTS“之间的数据行数是一定的。
          3、如何设定结束语句，即保证每一个标题“MEMBER FORCES AND MOMENTS”下的数据都提取完了。
          4、附件中给出了源数据文件及最后想要实现的效果。

狼雅

麻烦各位朋友帮忙查看下，这个问题该怎么解决，谢谢！

狼雅

1. 
   

复制代码

grf1973

1. Sub Macro1()
   
2.     Dim arr(1 To 10000, 1 To 1)
   
3.     Open ThisWorkbook.Path & "\pst_test.lst" For Input As #1
   
4.     Do While Not EOF(1)
   
5.         n = n + 1
   
6.         Line Input #1, arr(n, 1)   '读入每行
   
7.         If InStr(arr(n, 1), "MEMBER FORCES AND MOMENTS") > 0 Then xstr = xstr & "," & n      '记录各分隔符的行数
   
8.     Loop
   
9.     xstr = xstr & "," & n          '最底下一行
   
10.     Close #1
    
11.     ReDim brr(1 To UBound(arr), 1 To 1)
    
12.     xrr = Split(xstr, ",")
    
13.     xs = xrr(1)     '当前段起始行
    
14.     For k = 2 To UBound(xrr)
    
15.         xe = xrr(k)         '当前段结束行
    
16.         If xe = n Then xe = xe + 1        '如果到最后一行，+1（用于下面循环xe-1）
    
17.         For i = xs + 1 To xe - 1          '保留分隔符之间的内容
    
18.             p = p + 1
    
19.             brr(p, 1) = arr(i, 1)
    
20.         Next
    
21.         xs = xrr(k)     '下一段起始行
    
22.     Next
    
23.         
    
24.     Sheet2.[a1].Resize(p, 1) = brr
    
25. End Sub
    

复制代码

grf1973

只是按你要求提取了各"MEMBER FORCES AND MOMENTS"之间的内容。发现其中还好几行可以去掉的。另外没有分列。

狼雅

grf1973 发表于 2015-9-9 16:24
只是按你要求提取了各"MEMBER FORCES AND MOMENTS"之间的内容。发现其中还好几行可以去掉的。另外没有分列。 ...

非常感谢您的回复，我再研究下您的代码，借鉴借鉴代码的思路，谢谢！