如何修改程序使之能读取TYPE为120的点

liulu2622

山菊花版主曾帮着做了一个程序，把txt文件中的特定内容读取到excel指定范围中。它能读取TYPE为177的点的数据(txt文件在STRUCTURE LOAD OF RESTRAINTS标题下的数据,TYPE分为177类的和120类的)，比如point为3,12,24的对应TYPE为177，每点都对应6行数据。
现在想读取TYPE是120的点,比如point为1,2,4,5,6的对应行的数据，每点在STRUCTURE LOAD OF RESTRAINTS标题下仅对应1行数据。如何在原程序的基础上修改，使之能适用读取120类型的点

liulu2622

不知道如何修改下列代码：期待大家指点
mrr(n) = mrr(n) + 1
                        If Arr(mrr(n), 1) = "" Then
                            Arr(mrr(n), 1) = "WK-LOAD"
                            Arr(mrr(n), 2) = Crr(8)
                            Brr(mrr(n), 1) = "IN-LOAD"
                            Brr(mrr(n), 2) = Crr(8)
                        End If
                        Arr(mrr(n), n) = Crr(4)
                        Brr(mrr(n), n) = Crr(3)
                    End If
                End If
            End If
        Else
            ks = (cTxt Like "*STRUCTURE LOAD OF RESTRAINTS*")
        End If
    Loop
    If mrr(3) > 0 Then

duquancai

liulu2622 发表于 2018-6-18 22:58
不知道如何修改下列代码：期待大家指点
mrr(n) = mrr(n) + 1
                        If Arr(mrr(n), 1 ...

你的描述，我一句也没看懂！我的理解能力太差了。

liulu2622

duquancai 发表于 2018-6-19 00:04
你的描述，我一句也没看懂！我的理解能力太差了。

177与120所指

liulu2622

liulu2622 发表于 2018-6-18 22:58
不知道如何修改下列代码：期待大家指点
mrr(n) = mrr(n) + 1
                        If Arr(mrr(n), 1 ...

大侠您好，程序现在是可用的，我想怎么改下代码，能使程序读TYPE是120的数据。
有6行数据的点，由数组mrr(n)与之对应。现TYPE是120的只有1行数据，该怎么处理？