pcl_test

Dim arr()
i = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("测试.txt",1)
Do While f.AtEndOfStream <> True
    str = f.ReadLine
    GetZ(str)
Loop
f.Close
'调用Excel函数
Set objExcel= CreateObject("Excel.Application")
MsgBox "最大"&objExcel.Max(arr)&vbCrLf&"最小"&objExcel.Min(arr)

Function GetZ(str)
    Set regEx = New RegExp
    regEx.Pattern = "\bZ(-?\d+\.?\d*)"
    regEx.Global = True
    If regEx.Test(str) Then
        Set Matches = regEx.Execute(str)
        For Each Match in Matches
            ReDim Preserve arr(i)
            arr(i) = CDbl(Match.SubMatches(0))
            i = i+1 
        Next
    End If
End Function
复制代码

pcl_test

回复 8# 依山居

匹配的是Z30，30.0是因为float(r)所得

pcl_test

第三方http://www.bathome.net/s/tool/index.html?key=gawk

#*&cls&@gawk -f "%~f0" "1.txt">con&pause&exit
{
    for(i=1;i<=NF;i++){if($i~/Z-?[0-9]+\.?[0-9]*/)a[substr($i,2)]=substr($i,2)*1}
}
END{
    len=asort(a,b); printf("最大%.3f\n最小%.3f\n",b[len],b[1]);
}
复制代码