请大家帮忙啊，有个如下的数据文本，请问如何分离出其中的数据？

Question

插值曲线                                θ = 70                                 θ = 80  
 
           T           D           LO              T           D           LO  
         
        .1         37.93        1.54            .1         37.86        1.333
        .3         45.32        1.5             .3         45.          1.305
        .6         74.58        1.349           .6         77.3         1.206
        1.         102.98       1.213           1.         107.47       1.127
        1.3        114.64       1.156           1.3        118.47       1.097 
实际文本可能要比上面的复杂，因为粘多了比较混乱，所以挑选了其中的一些数据，该文件存在文本文件（TXT）中，分离出的数据最好是一个数组形式，方便读取。如能按上面的格式把数据写入excel中，更是千恩万谢！

Answer 1

直接用EXCEL导入不是更方便嘛...

Answer 2

楼主希望得到的数据是这些吗
        .1         37.93        1.54            .1         37.86        1.333
        .3         45.32        1.5             .3         45.          1.305
        .6         74.58        1.349           .6         77.3         1.206
        1.         102.98       1.213           1.         107.47       1.127
        1.3        114.64       1.156           1.3        118.47       1.097 
是要把这些导入到EXCEL里吗

Answer 3

 
                                  ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
                                  ┃            CROSS--CURvES  OF  STABILITY                    ┃
                                  ┃               插    值     曲     线                       ┃
                                  ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
 
 
                     θ = 10                                 θ = 20                                 θ = 30  
 
           T           D           LO              T           D           LO              T           D           LO
        .1         6.96         1.218           .1         12.42        1.486           .1         19.36        1.689
        .3         16.97        .903            .3         21.91        1.364           .3         30.3         1.659
        .6         38.56        .638            .6         45.99        1.186           .6         55.77        1.482
        1.         75.55        .54             1.         83.81        .973            1.         88.73        1.182
        1.3        106.74       .502            1.3        108.51       .812            1.3        108.26       1.004 
 
 
 
 
 
                     θ = 40                                 θ = 50                                 θ = 60  
 
           T           D           LO              T           D           LO              T           D           LO
        .1         27.72        1.829           .1         32.75        1.797           .1         36.54        1.702
        .3         37.8         1.763           .3         42.2         1.742           .3         44.5         1.648
        .6         62.83        1.552           .6         67.77        1.531           .6         71.51        1.46
        1.         92.15        1.275           1.         95.44        1.299           1.         99.          1.274
        1.3        108.48       1.122           1.3        109.6        1.18            1.3        111.67       1.187 
 
 
 
 
 
                     θ = 70                                 θ = 80  
 
           T           D           LO              T           D           LO              T           D           LO
        .1         37.93        1.54            .1         37.86        1.333
        .3         45.32        1.5             .3         45.          1.305
        .6         74.58        1.349           .6         77.3         1.206
        1.         102.98       1.213           1.         107.47       1.127
        1.3        114.64       1.156           1.3        118.47       1.097 
 
 
 
 
 

Answer 4

导成EXCEL之后希望是什么格式

Answer 5

[email protected]
我MSN,你加我和你讲

Answer 6

我没有安装MSN,我发要你的邮箱.

Answer 7

http://community.csdn.net/Expert/topic/3676/3676356.xml?temp=.113598你看看这个,和你的差不多,你看一下了解思路就会写了

Answer 8

Sub 提取数据(strSourceFile As String, strTargetFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo     As Variant
    Dim i               As Integer
    Dim j               As Integer
    Dim temp(1000) As String
    Dim tmpDemData As String
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf, -1, 1)
    '取出源文件行数，按照回车换行来分隔成数组,也就是为2行数
    filenum = FreeFile
    tmpDemData = ""
    If Dir(strTargetFile, vbNormal) <> "" Then
        Kill strTargetFile
    End If
    Dim Filestr As Variant
    Open strTargetFile For Append As #filenum
        '循环每一行
        k = 1
        For i = 0 To UBound(fileInfo) - 1
          Filestr = Split(Trim(fileInfo(i)), " ", -1, 1) '按照逗号或者空格分隔每一行的数据
             tmpDemData = ""
             
             
             For j = 0 To UBound(Filestr)
              '判断数据是否正确
              If Filestr(j) <> "" Then
              temp(k) = Filestr(j)
              Debug.Print "temp(" & k & "):" & temp(k)
              k = k + 1
              End If
            tmpDemData = tmpDemData & temp(k)
            If j <> UBound(Filestr) Then
            tmpDemData = tmpDemData & ","
            End If            
            Next
            '保存一行如目标文件
            Print #filenum, tmpDemData
         Next
         MsgBox k
    Close #filenum
     Dim str
 str = App.Path
 If Right(str, 1) <> "\" Then
 str = str + "\"
 End If
    MsgBox "文件已写入" + "" & str & "\bb.txt"
End SubPrivate Sub Command1_Click()
 Dim str
 str = App.Path
 If Right(str, 1) <> "\" Then
 str = str + "\"
 End If
提取数据 "" & str & "\BOOKCC.txt", "" & str & "\bb.txt"
End Sub
这是我在文本中调试的.

Answer 9

顶先，再找各位前辈帮小弟一个忙，做个VB特别简单的查询系统，具体的条件我们可以QQ上聊，谢谢哪位好心人帮帮小弟，实在是急呀，再不做好，就要下岗！小弟这里有礼了！！！！！！！！！！在线等QQ11060006