怎么从txt最后面的内容截取所要信息

martinmaster · 发表于 2019-11-6 10:49

现在需要统计产品测试中测试失败的项目，以及测试时间。需要从测试日志里（txt档案）将测试项目与时间记录到Excel里。

日志是以这种形式显示，日志的最后一个这样的格式，"START:"后面的值就是测试失败的项目
日志里面有很多类似这样的记录，那么我怎么去截取最后面的一项？
求大神指教

这是参照网上所写的，但是只能获取到第一项，我需要的是最后一项，请问大神有没有方法？
Sub fail_item()
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
r = 2
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Offset(1).ClearContents
With CreateObject("vbscript.regexp")

      .Global = True
      For Each f In fso.getfolder(ThisWorkbook.Path).Files
         If Right(f.Name, 4) = ".txt" Then
            n = 0
            Open f For Input As #1
            s = StrConv(InputB(LOF(1), 1), vbUnicode)
            arr = Split(s, vbCrLf)
            Close #1
            str1 = ""
            For j = 0 To UBound(arr)
                  If InStr(arr(j), "[ Info ] Whole Plumas_") > 0 Then
                        str1 = Split(arr(j), "[ Info ] Whole Plumas_")(1)
                        .Pattern = ":\d+"
                        Cells(r, 2) = Mid(.Execute(str1)(0), 2)
                        For x = j To 0 Step -1
                              If InStr(arr(x), "START:") > 0 Then
                                 crr = Split(arr(x), "##############################################################################")
                                 Cells(r, 1) = WorksheetFunction.Clean(Split(crr(UBound(crr) - 1), "START: ")(1))
                              End If
                        Next x
                        r = r + 1

                  End If
            Next j

         End If
      Next
End With

End Sub

谢谢

log.zip (15.62 KB, 下载次数: 10)

oclassic123 · 发表于 2019-11-6 11:09

读入excel再instr啊

martinmaster · 发表于 2019-11-6 11:19

oclassic123 发表于 2019-11-6 11:09
读入excel再instr啊

因为txt文档太多了，每天大概会有一千个txt档。源txt每个大概有3W行左右。附件里的是处理过的

martinmaster · 发表于 2019-11-6 20:27

自己顶一下

小花鹿 · 发表于 2019-11-6 20:38

用正则处理一下：
START:([\w ]+)

martinmaster · 发表于 2019-11-7 08:59

小花鹿发表于 2019-11-6 20:38
用正则处理一下：
START:([\w ]+)

大神早，
这样是可以取到"START:"后面的字符，
请问一下我怎么从文档的最下面往上取第一个"START:"后面的字符？

小花鹿 · 发表于 2019-11-7 09:11

martinmaster 发表于 2019-11-7 08:59
大神早，
这样是可以取到"START:"后面的字符，
请问一下我怎么从文档的最下面往上取第一个"START:"后面 ...

Matches集合的Item和Count属性
你正则怎么学的？

tspliu · 发表于 2019-11-7 09:21

martinmaster 发表于 2019-11-7 08:59
大神早，
这样是可以取到"START:"后面的字符，
请问一下我怎么从文档的最下面往上取第一个"START:"后面 ...

以"START:"为分隔符split 得到数组的最后一个元素，再以chr(10)为分隔符split得到的第一个元素就是你想要的吧

ggmmlol · 发表于 2019-11-19 23:48

log.zip (15.62 KB, 下载次数: 5)

EXCELLMY · 发表于 2019-11-20 11:55

正则处理TXT

		自动登录	找回密码
密码			免费注册

[求助] 怎么从txt最后面的内容截取所要信息

评分

最新热点 /1