Python-VBA函数之旅-any函数

作者：AllinToyou | 2024-05-05 13:29:16

踩

1、any函数：

any函数在 Python 中有许多实际的应用场景，主要用于检查一个可迭代对象是否包含至少一个满足特定条件的元素。常见的应用场景有：

1、空值检查：在数据处理或分析过程中，我们经常需要检查数据集中是否存在缺失值。在这种情况下，可以使用 any()函数来检查数据集中是否存在任何空值。

2、条件筛选：在数据处理和分析中，我们经常需要根据某些条件筛选数据。可以使用any()函数与布尔索引来实现条件筛选。

3、决策制定：在决策制定过程中，我们经常需要检查是否满足某些条件。可以使用any()函数来判断条件是否满足。

4、验证存在性：用于判断可迭代对象中是否存在至少一个满足指定条件的元素。any函数返回一个布尔值，如果存在满足条件的元素，则返回True；如果所有元素都不满足条件，则返回False。

5、代码简化：在编程中，可以使用any()函数简化代码，从而使程序更加精简。

6、提前终止迭代：当使用any()函数时，一旦找到满足条件的元素，迭代就会立即停止。这可以用于优化性能，特别是当你知道一旦找到符合条件的元素就可以停止搜索时。

7、配合其他函数使用：any()函数也可以与其他函数结合使用，例如，map()或filter()，以检查转换或过滤后的元素是否满足条件。

总之，any()函数在处理可迭代对象时提供了一种高效的方式来检查是否满足特定的条件，它在各种编程场景中都非常有用。

1、any函数：

1-1、Python：


# 1.函数：any
# 2.功能：判断可迭代对象是否全为假值
# 3.语法：any(iterable)
# 4.参数：Python中的可迭代对象iterable包括但不限于以下类型：
# 4-1、序列类型：
        # list(列表)：有序的元素集合
        # tuple(元组)：不可变的有序的元素集合
        # str(字符串)：字符的有序集合
        # bytes(字节序列)：字节的有序集合
        # bytearray(可变字节序列)：可变的字节的有序集合
        # range(范围对象)：表示一个不可变的整数序列
        # memoryview(内存视图)：用于在不需要复制数据的情况下访问对象的内存
# 4-2、集合类型：
        # set(集合)：无序且不包含重复元素的集合
        # frozenset(冻结集合)：不可变的无序且不包含重复元素的集合
# 4-3、字典与字典视图：
        # dict(字典)：无序的键值对集合
        # dict的keys()、values()、items()方法返回的视图对象
# 4-4、文件对象：
        # 打开的文件对象也是可迭代的，可以通过迭代逐行读取文件内容
# 4-5、自定义可迭代对象：
        # 任何定义了__iter__()方法的对象都可以被视为可迭代对象。这个方法应该返回一个迭代器对象
# 4-6、生成器：
        # 生成器函数和生成器表达式创建的生成器对象也是可迭代的
# 4-7、其他内置类型：
        # 某些内置的数据类型或函数返回的对象也可能是可迭代的，比如map、filter、zip等函数返回的对象
# 5.返回值：
# 5-1、如果可迭代对象iterable中至少有一个元素为True(或者能够转换为True的值，比如非零数字、非空字符串等)，则返回True.
# 5-2、如果可迭代对象iterable为空或者所有元素都为False(或能够转换为False的值，比如0、None、空字符串等)，则返回False.
#     (类似于逻辑运算符or连接≥2个以上条件时的效果，即任何一个条件成立，则返回True；反之，则返回False.)
# 6.说明：
# 6-1、如果可迭代对象中元素个数为0，则返回值为False，例如，空列表、空元组、空字典的返回值为False.
# 6-2、当any()函数的参数为空或不可迭代对象时，将提示TypeError错误信息：
       # print(any())
       # TypeError: any() takes exactly one argument (0 given)
       # print(any(1024))
       # TypeError: 'int' object is not iterable
# 7.示例：
# 应用1：空值检查
import pandas as pd
data = pd.DataFrame({'A': [3, 5, None], 'B': [6, 8, 10]})
print(data.isnull().any())
 
# 应用2：条件筛选
# 定义一个数字列表
numbers = [1, 3, 5, 7, 9]
# 使用any()函数和 lambda 表达式来检查是否至少有一个偶数
has_even_number = any(num % 2 == 0 for num in numbers)
# 输出结果
print(has_even_number)  # 输出：False，因为列表中没有偶数
# 假设我们改变列表，添加一个偶数
numbers.append(8)
# 再次检查
has_even_number = any(num % 2 == 0 for num in numbers)
# 输出结果
print(has_even_number)  # 输出：True，因为列表中至少有一个偶数(数字8)
 
# 应用3：决策制定
conditions = [True, False, True]
if any(conditions):
    print("至少有一个条件是成立的！")
 
# 应用4：验证存在性
# 检查列表中是否有非零元素
numbers = [0, 0, 0, 1, 0]
if any(numbers):
    print("列表中有非零元素")
else:
    print("列表中所有元素都是零")
# 检查集合中是否有非空字符串
strings = {'', 'hello', ''}
if any(strings):
    print("集合中有非空字符串")
else:
    print("集合中所有字符串都是空的")
# 检查字典中的值是否满足某个条件(例如，是否大于0)
data = {'a': 1, 'b': -2, 'c': 3}
if any(value > 0 for value in data.values()):
    print("字典中有正值")
else:
    print("字典中没有正值")
# 检查文件是否包含至少一行非空内容
with open('file.txt', 'r') as file:
    if any(line.strip() for line in file):
        print("文件包含至少一行非空内容")
    else:
        print("文件为空或只包含空白行")
 
# 应用5：代码简化
# 使用any()简化多个条件判断
conditions = [x > 5 for x in range(10)]
if any(conditions):
    print("至少有一个条件为真")
 
# 应用6：提前终止迭代
# 假设我们有一个非常大的列表，并且我们只需要检查是否有任何元素大于10
large_list = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20]  # 非常大的列表
if any(x > 10 for x in large_list):
    print("列表中有元素大于10")
 
# 应用7：配合其他函数使用
# 使用any()函数与列表推导式和str.isdigit()方法来检查一个字符串列表中是否至少有一个字符串只包含数字.
# 定义一个字符串列表
strings = ['abc', '123', 'def456', '789', 'ghi']
# 使用列表推导式和str.isdigit()方法来转换列表，检查每个字符串是否只包含数字
# 然后使用any()函数来检查是否至少有一个字符串满足条件
has_digit_string = any(s.isdigit() for s in strings)
# 输出结果
print(has_digit_string)  # 输出：True，因为列表中至少有一个字符串（'123'）只包含数字
# 现在，假设我们想要提取所有只包含数字的字符串
# 我们可以使用 filter() 函数与 str.isdigit() 方法结合，并使用 list() 来获得结果列表
digit_strings = list(filter(str.isdigit, strings))
# 输出结果
print(digit_strings)  # 输出：['123', '789']，这些是列表中只包含数字的字符串
# 我们还可以检查这个新列表是否非空，这实际上与之前的 any() 检查是等效的
has_digit_string_filtered = bool(digit_strings)
# 输出结果
print(has_digit_string_filtered)  # 输出：True，因为 digit_strings 列表非空
 
# 8.运行结果：
# A     True
# B    False
# dtype: bool
# False
# True
# 至少有一个条件是成立的！
# 列表中有非零元素
# 集合中有非空字符串
# 字典中有正值
# 文件包含至少一行非空内容
# 至少有一个条件为真
# 列表中有元素大于10
# True
# ['123', '789']
# True

1-2、VBA：


Rem 模拟Python中any函数应用1：空值检查
' 使用IsEmpty函数来检查一个变量是否为空值
Sub CheckEmptyValue1()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")
      
    If IsEmpty(rng.value) Then
        MsgBox "单元格A1为空"
    Else
        MsgBox "单元格A1不为空"
    End If
End Sub
'请注意，IsEmpty函数只能用于检查变量是否已被初始化.如果单元格包含空格或零，IsEmpty函数将返回False.
'如果你想要检查单元格是否真正没有任何内容(包括空格)，你可能需要使用Len函数或检查单元格的值是否等于空字符串("").
Sub CheckEmptyValue2()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")
      
    If Len(Trim(rng.value)) = 0 Then
        MsgBox "单元格A1为空或只包含空格"
    Else
        MsgBox "单元格A1不为空"
    End If
End Sub
Rem 模拟Python中any函数应用2：条件筛选
Sub CheckEvenNumbers()
    Dim numbers() As Variant
    Dim has_even_number As Boolean
    Dim i As Long
      
    ' 初始化numbers数组
    numbers = Array(1, 3, 5, 7, 9)
    ' 检查是否有偶数
    has_even_number = False
    For i = LBound(numbers) To UBound(numbers)
        If numbers(i) Mod 2 = 0 Then
            has_even_number = True
            Exit For ' 找到偶数后退出循环
        End If
    Next i
    ' 输出结果
    Debug.Print has_even_number
    ' 向数组添加元素
    ReDim Preserve numbers(UBound(numbers) + 1)
    numbers(UBound(numbers)) = 8
    ' 再次检查是否有偶数
    has_even_number = False
    For i = LBound(numbers) To UBound(numbers)
        If numbers(i) Mod 2 = 0 Then
            has_even_number = True
            Exit For ' 找到偶数后退出循环
        End If
    Next i
    ' 输出结果
    Debug.Print has_even_number
End Sub
Rem 模拟Python中any函数应用3：决策制定
Sub CheckConditions()
    Dim conditions() As Variant
    Dim hasAnyTrue As Boolean
    Dim i As Integer
      
    ' 初始化conditions数组
    conditions = Array(True, False, True)
    ' 检查数组中是否有True值
    hasAnyTrue = False
    For i = LBound(conditions) To UBound(conditions)
        If conditions(i) Then
            hasAnyTrue = True
            Exit For ' 找到True后退出循环
        End If
    Next i
    ' 输出结果
    If hasAnyTrue Then
        Debug.Print "至少有一个条件是成立的！"
    Else
        Debug.Print "没有条件是成立的。"
    End If
End Sub
Rem 模拟Python中any函数应用4：验证存在性
' 检查数组中是否有非零元素
Sub CheckNonZeroNumbers()
    Dim numbers() As Variant
    Dim hasNonZero As Boolean
    Dim i As Long
      
    ' 初始化numbers数组
    numbers = Array(0, 0, 0, 1, 0)
    ' 检查数组中是否有非零元素
    hasNonZero = False
    For i = LBound(numbers) To UBound(numbers)
        If numbers(i) <> 0 Then
            hasNonZero = True
            Exit For ' 找到非零元素后退出循环
        End If
    Next i
    ' 输出结果
    If hasNonZero Then
        Debug.Print "列表中有非零元素"
    Else
        Debug.Print "列表中所有元素都是零"
    End If
End Sub
' 检查数组中是否有非空字符串
Sub CheckNonEmptyStrings()
    Dim strings() As Variant
    Dim hasNonEmpty As Boolean
    Dim i As Long
      
    ' 初始化strings数组
    strings = Array("", "hello", "")
    ' 检查数组中是否有非空字符串
    hasNonEmpty = False
    For i = LBound(strings) To UBound(strings)
        If strings(i) <> "" Then
            hasNonEmpty = True
            Exit For ' 找到非空字符串后退出循环
        End If
    Next i
    ' 输出结果
    If hasNonEmpty Then
        Debug.Print "集合中有非空字符串"
    Else
        Debug.Print "集合中所有字符串都是空的"
    End If
End Sub
' 检查字典中的值是否满足某个条件(例如，是否大于0)
Sub CheckPositiveValuesInDictionary()
    Dim data As Object
    Dim key As Variant
    Dim hasPositiveValue As Boolean
      
    ' 创建Scripting.Dictionary对象实例
    Set data = CreateObject("Scripting.Dictionary") '需引用Microsoft Scripting Runtime控件
    ' 向字典中添加键值对
    With data
        .add "a", 1
        .add "b", -2
        .add "c", 3
    End With
    ' 检查字典中是否有正值
    hasPositiveValue = False
    For Each key In data.Keys
        If data(key) > 0 Then
            hasPositiveValue = True
            Exit For ' 找到正值后退出循环
        End If
    Next key
    ' 输出结果
    If hasPositiveValue Then
        Debug.Print "字典中有正值"
    Else
        Debug.Print "字典中没有正值"
    End If
    ' 清理：释放Dictionary对象
    Set data = Nothing
End Sub
' 检查文件是否包含至少一行非空内容
Sub CheckFileContent()
    Dim fso As Object
    Dim ts As Object
    Dim line As String
    Dim hasNonEmptyLine As Boolean
      
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject") '需要引用Microsoft Scripting Runtime控件
    ' 检查文件是否存在
    If Not fso.FileExists("E:\python_workspace\pythonProject\file.txt") Then ' 此处的路径根据实际情况调整即可
        MsgBox "文件不存在"
        Exit Sub
    End If
    ' 打开文件以读取内容
    Set ts = fso.OpenTextFile("E:\python_workspace\pythonProject\file.txt", 1) ' 1表示只读模式
    ' 初始化标志变量
    hasNonEmptyLine = False
    ' 逐行读取文件内容
    Do While Not ts.AtEndOfStream
        line = ts.ReadLine
        ' 去除行首尾的空白字符，并检查是否非空
        If Trim(line) <> "" Then
            hasNonEmptyLine = True
            Exit Do ' 找到非空行后退出循环
        End If
    Loop
    ' 关闭文件
    ts.Close
    Set ts = Nothing
    ' 输出结果
    If hasNonEmptyLine Then
        MsgBox "文件包含至少一行非空内容"
    Else
        MsgBox "文件为空或只包含空白行"
    End If
    ' 清理：释放FileSystemObject对象
    Set fso = Nothing
End Sub
Rem 模拟Python中any函数应用6：提前终止迭代
Sub CheckForValuesGreaterThanTen()
    Dim large_list() As Variant
    Dim i As Long
    Dim hasGreaterThanTen As Boolean
      
    ' 初始化大型数组
    large_list = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
    ' 假设没有大于10的元素
    hasGreaterThanTen = False
    ' 循环遍历数组中的每个元素
    For i = LBound(large_list) To UBound(large_list)
        ' 如果找到大于10的元素，设置标志并退出循环
        If large_list(i) > 10 Then
            hasGreaterThanTen = True
            Exit For
        End If
    Next i
    ' 输出结果
    If hasGreaterThanTen Then
        MsgBox "列表中有元素大于10"
    Else
        MsgBox "列表中所有元素都不大于10"
    End If
End Sub

注意：1-2中的代码需粘贴到你的VBA编辑器中，按F5执行对应的Sub程序即可输出结果。

2、相关文章：

2-1、Python-VBA函数之旅-abs()函数

2-2、Python-VBA函数之旅-all()函数

2-3、Python-VBA函数之旅-ascii()函数

2-4、Python-VBA函数之旅-bin()函数

Python算法之旅：Myelsa的Python算法之旅(高铁直达)-CSDN博客

Python函数之旅：Myelsa的Python函数之旅(高铁直达)

个人主页：非风V非雨-CSDN博客

欢迎志同道合者一起交流学习，我的QQ:94509325/微信：

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/AllinToyou/article/detail/539069