本帖最后由 WHY 于 2015-11-8 17:26 编辑
假设Z轴数据范围:-9999~9999- Dim fso, objFile, objReg, Max, Min, str, n
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set objFile = fso.OpenTextFile("a.txt")
- Set objReg = New RegExp
- objReg.Pattern = "\bZ(-?\d*\.?\d+)\b"
-
- Max = -9999 : Min = 9999
- While Not objFile.AtEndOfStream
- str = objFile.ReadLine
- If objReg.Test(str) Then
- n = objReg.Execute(str)(0).SubMatches(0) * 1
- If n > Max Then Max = n
- If n < Min Then Min = n
- End If
- Wend
-
- MsgBox "Max=" & Max & " Min=" & Min
复制代码
|