依山居

楼主也是08年的帐号了。学门语言不过几周能入门了。

依山居

#求txt文件中所有Z后面数字的最小值和最大值
#依山居 19:04 2015/11/7
#题目来源: http://www.bathome.net/thread-38027-1-1.html

zl=[]
with open("a.txt") as f:
        for l in f:
                txtline=l.rsplit()
                for ll in txtline:
                        #print(ll)
                        if ll[0]=="Z":
                                x=float(ll[1:])
                                zl.append(x)
                                
#方法一：使用python内建的max min函数
print("大: ",max(zl))
print("小: ",min(zl))
#方法二： 使用sorted排序后取首位和末尾元素。
zl=sorted(zl)
print("小: ",zl[0])
print("大： ",zl[-1])

#总结是不管是max 还是sort 比较的对象都应该统一是数字。
#所以处理前需要先丢掉字母Z并转成浮点数。

"""
输出:
大:  30.0
小:  -50.013
小:  -50.013
大：  30.0
"""
复制代码

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
复制代码

依山居

并没有说明输出格式。

我试试 python list排序。