推荐|Python-VBA编程500例-013(入门级)


# 1.问题描述：
# 给定一系列描述函数进入和退出的时间，统计每个函数的运行时间.
# 2.问题示例：
# 输入str1 = ["F5 Enter 8","F8 Enter 9","F5 Exit 13","F8 Exit 22","F5 Enter 14","F5 Exit 18"]，则输出["F5|9", "F8|13"].
# 3.代码实现：
class Solution:
    # 参数str1: 输入的包含函数调用和运行时长的字符串列表
    # 返回值： 列表，即按函数名排序的字符串，包含函数名和对应的运行时长
    def get_function_runtime(self, num1):
        # 创建空字典，用来存储函数名及其运行时长
        func_runtime  = {}
        # 遍历输入字符串列表
        for i in num1:
            count = 0
            while  not i[count] == ' ':
                count += 1
            fun = i[0 : count]
            if i[count + 2] == 'n':
                count += 7
                v =int(i[count:len(i)])
                if fun in func_runtime.keys():
                    func_runtime[fun] = v - func_runtime[fun]
                else:
                    func_runtime[fun] = v
            else:
                count += 6
                v = int(i[count:len(i)])
                func_runtime[fun] = v- func_runtime[fun]
        # 初始化结果列表
        answer = []
        # 提取字典的键(函数名)，并添加到结果列表中
        for key in func_runtime.keys():
            answer.append(key)
        # 构造最终输出字符串，包括函数名和累计运行时长
        for i in range(0, len(answer)):
            answer[i] += '|' + str(func_runtime[answer[i]])
        # 返回结果列表
        return answer
# 主函数
if __name__ == '__main__':
    str1 = ["F5 Enter 8","F8 Enter 9","F5 Exit 13","F8 Exit 22","F5 Enter 14","F5 Exit 18"]
    solution = Solution()
    print("输入运行时间：", str1)
    print("每个函数的输出时间：", solution.get_function_runtime(str1))
# 4.运行结果：
# 输入运行时间： ['F5 Enter 8', 'F8 Enter 9', 'F5 Exit 13', 'F8 Exit 22', 'F5 Enter 14', 'F5 Exit 18']
# 每个函数的输出时间： ['F5|9', 'F8|13']

1-2、VBA：


Rem 自定义函数，功能：函数运行时间分析
Function GetFunctionRuntime(num1 As Variant) As Variant
    ' 创建一个Object对象，用来模拟字典存储函数名和对应的运行时长
    Dim func_runtime As Object
    Set func_runtime = CreateObject("Scripting.Dictionary")
    ' 定义循环变量
    Dim i As Long
    ' 定义计数器，用于找到函数名的结束位置
    Dim count As Long
    ' 存储函数名
    Dim fun As String
    ' 存储运行时长
    Dim v As Integer
      
    ' 遍历输入字符串列表
    For i = LBound(num1) To UBound(num1)
        ' 初始化计数器
        count = 0
        ' 查找函数名的结束位置
        Do While Not mid(num1(i), count + 1, 1) = " "
            count = count + 1
        Loop
        ' 提取函数名
        fun = left(num1(i), count)
        ' 判断是"Enter"还是"Exit"
        If mid(num1(i), count + 2, 1) = "n" Then
            ' 如果是"Enter"，则跳过"Enter "，获取后面的运行时长
            count = count + 7
        Else
            ' 如果是"Exit"，则跳过"Exit "，获取后面的运行时长
            count = count + 6
        End If
        ' 提取运行时长并转换为整数
        v = CInt(mid(num1(i), count + 1))
        ' 如果字典中已经存在该函数名，则更新其对应的运行时长（减法）
        If func_runtime.Exists(fun) Then
            func_runtime(fun) = v - func_runtime(fun)
        ' 如果不存在，则添加新的函数名和对应的运行时长（初始化为加法）
        Else
            func_runtime(fun) = v
        End If
    Next i
    ' 定义遍历字典键的变量
    Dim key As Variant
    ' 定义结果数组
    Dim answer As Variant
    ' 初始化结果数组
    answer = Array()
    ' 遍历字典的键，构造结果数组
    For Each key In func_runtime.Keys
        ' 使用ReDim Preserve扩展数组大小
        ReDim Preserve answer(UBound(answer) + 1)
        ' 添加函数名和对应的运行时长到结果数组中
        answer(UBound(answer)) = key & "|" & func_runtime(key)
    Next key
    ' 返回结果数组
    GetFunctionRuntime = answer
End Function
Rem 执行程序，功能：调用自定义函数GetFunctionRuntime，在立即窗口输出结果
Sub TestRun()
    Dim str1 As Variant
    Dim result As Variant
      
    ' 输入的字符串列表
    str1 = Array("F5 Enter 8", "F8 Enter 9", "F5 Exit 13", "F8 Exit 22", "F5 Enter 14", "F5 Exit 18")
    ' 调用函数并获取结果
    result = GetFunctionRuntime(str1)
    ' 使用Join函数将数组转换为以逗号分隔的字符串进行打印
    Debug.Print "输入运行时间：" & Join(str1, ", ")
    Debug.Print "每个函数的输出时间：" & Join(result, ", ")
End Sub
'结果输出
'输入运行时间：F5 Enter 8, F8 Enter 9, F5 Exit 13, F8 Exit 22, F5 Enter 14, F5 Exit 18
'每个函数的输出时间：F5|9, F8|13