请教如何读取文本文件特定字符后的时间，进行统计累加

welch78

请教如何读取文本文件特定字符后的时间，进行统计累加。

welch78

请教各位老师，看看这样能实现吗？

media888

不能导出EXCEL文件吗

lsdongjh

1. Sub Test()
   
2.     Dim strFilePath As String, strTxt As String
   
3.     Dim objFS As Object, objTS As Object, objDic As Object
   
4.     Dim objReg As Object, strPat As String
   
5.     Dim objMatchs As Object, objMatch As Object
   
6.     Dim SH As Worksheet, arr As Variant, lngRow As Long
   
7. 
   
8.     strFilePath = Application.GetOpenFilename("文本,*.nc", , "打开")
   
9. 
   
10.     If strFilePath = "False" Then Exit Sub
    
11.    
    
12.     Set objFS = CreateObject("Scripting.FileSystemObject")
    
13.     Set objTS = objFS.OpenTextFile(strFilePath)
    
14.     strTxt = objTS.ReadAll '读出全部内容
    
15.     objTS.Close:    Set objTS = Nothing
    
16.     Set objFS = Nothing
    
17.    
    
18.     strPat = "Toolname=(.*?),[\s\S]*?time:\s*([0-9\.]+)"
    
19.     Set objDic = CreateObject("Scripting.Dictionary")
    
20.     Set objReg = CreateObject("VBScript.RegExp")
    
21.     With objReg
    
22.         .Global = True
    
23.         .Pattern = strPat
    
24.     End With
    
25.    
    
26.     If objReg.Test(strTxt) Then
    
27.         Set objMatchs = objReg.Execute(strTxt)
    
28.         For Each objMatch In objMatchs
    
29.             objDic(objMatch.subMatches(0)) = objMatch.subMatches(1)
    
30.         Next
    
31.     End If
    
32.     Set objReg = Nothing
    
33.    
    
34.     Set SH = Sheets("C(Copper)")
    
35.     arr = SH.Range("A4:C27")
    
36.     For lngRow = LBound(arr) To UBound(arr)
    
37.         strTxt = arr(lngRow, 1)
    
38.         arr(lngRow, 3) = objDic(strTxt)
    
39.     Next
    
40.    
    
41.     SH.Range("A4:C27") = arr
    
42. End Sub

复制代码

welch78

lsdongjh 发表于 2018-9-7 12:47

非常感谢老师！还有两个问题要请教：1读取别的程序文件，数据写不上去是怎么回事？文本名字要有规则吗？还是文本格式有要求？2.读取的数据能累加计算再写到相应表格吗？

lsdongjh

估计是 文本规则 不同，你把读不出来的文件传一份，可能要改 正则

lsdongjh

累加的问题，改一句代码就成：
For lngRow = LBound(arr) To UBound(arr)
        strTxt = arr(lngRow, 1)
        arr(lngRow, 3) =arr(lngRow, 3) + objDic(strTxt)
    Next

welch78

lsdongjh 发表于 2018-9-7 15:56
累加的问题，改一句代码就成：
For lngRow = LBound(arr) To UBound(arr)
        strTxt = arr(lngRow, ...

谢谢！附件是NC 程序，请帮忙看看格式

welch78

lsdongjh 发表于 2018-9-7 15:56
累加的问题，改一句代码就成：
For lngRow = LBound(arr) To UBound(arr)
        strTxt = arr(lngRow, ...

搞掂了，太感谢了。我把代码搜索的time改成Total Machine Time。可以了。

lsdongjh

原因找到，本来你提供的 文件中， 一个Toolname 对应一个 Time,但你后面提供的文件中，多个Toolname对应一个Time