Python-VBA函数之旅-dict()函数

神奇夜光杯

已于 2024-04-15 17:05:06 修改

阅读量911

点赞数 42

分类专栏： Myelsa的Python函数之旅文章标签： python 开发语言数据结构运维算法

于 2024-04-15 07:45:00 首次发布

本文链接：https://blog.csdn.net/ygb_1024/article/details/137755104

版权

Myelsa的Python函数之旅专栏收录该内容

68 篇文章 6 订阅

订阅专栏

dict()函数在 Python 中用于创建一个新的字典对象。字典是一种无序的键值对集合，它允许我们根据键来存储和检索值。常见的应用场景有：

1、动态数据存储：字典非常适合存储动态数据，这些数据可能在运行时才会确定其键和值。例如，我们可以根据用户的输入或外部数据源动态地创建和更新字典。

2、配置文件和参数设置：许多程序需要配置文件来指定不同的设置或参数。字典可以用来存储这些配置项和它们的值，使得程序能够灵活地读取和修改配置。

3、统计数据：字典非常适合用来统计和记录数据，例如，统计文本中单词出现的频率。

4、映射和转换：字典可以用来实现键和值之间的映射关系，这在数据转换和替换时非常有用。

5、解析JSON数据：当从外部源(如API)接收JSON数据时，json.loads()函数通常会将JSON字符串解析为Python字典，从而方便后续处理。

6、缓存和状态管理：字典可以用作临时存储数据的缓存，或者在程序执行期间跟踪状态信息。

7、构建复杂数据结构：字典可以包含其他字典、列表或其他复杂数据类型，从而构建出嵌套的数据结构。

这些只是dict()函数的一些常见应用场景。实际上，由于字典的灵活性和便利性，它在 Python 编程中几乎无处不在，是构建复杂程序和数据结构的重要工具。

1、dict()函数：

1-1、Python：

# 1.函数：dict()
# 2.功能：用于创建一个新的字典或根据传入的参数创建一个字典对象
# 3.语法：
# 3-1、dict(**kwarg)
# 3-2、dict(mapping, **kwarg)
# 3-3、dict(iterable, **kwarg)
# 4.参数：
# 4-1、`**kwarg`：一到多个关键字参数，这些关键字参数及其对应的值将被添加到字典中
# 4-2、`mapping`：另一个字典，其键值对将被添加到新字典中，如zip()函数
# 4-3、`iterable`：一个可迭代对象，其中包含可迭代的键值对(通常是包含两个元素的元组或其他可迭代对象)
# 5.返回值：一个字典，如果不传入任何参数，则返回空字典
# 6.说明：
# 6-1、使用dict()函数通过给定的关键字参数创建字典时，name键名必须都是Python中的标识符，否则会提示SyntaxError错误，如下：
#      SyntaxError: expression cannot contain assignment, perhaps you meant "=="?
#      print(dict(1='a',2='b'))
# 7.示例：
# 应用1：字典的增、删、改、查操作
# 增(添加键值对)
# 可以通过直接赋值的方式向字典中添加新的键值对：
my_dict = {}
my_dict['key1'] = 'value1'  # 添加键值对 'key1': 'value1'
# 删(删除键值对或字典)
#可以使用 `del` 语句或 `pop()` 方法来删除字典中的键值对，也可以使用 `clear()` 方法来清空整个字典：
my_dict = {'key1': 'value1', 'key2': 'value2'}
# 使用del语句删除键值对
del my_dict['key1']
# 使用pop()方法删除键值对，并返回被删除的值
removed_value = my_dict.pop('key2')
# 清空字典
my_dict.clear()
# 改(修改键值对)
my_dict = {'key1': 'value1'}
my_dict['key1'] = 'new_value1'  # 修改 'key1' 的值为 'new_value1'
#查(查询键值对)
# 可以通过键来查询字典中的值：
my_dict = {'key1': 'value1', 'key2': 'value2'}
# 使用键来获取值
value = my_dict['key1']  # 如果键不存在，会抛出KeyError异常
# 使用get()方法来安全地获取值，如果键不存在则返回None或指定的默认值
value = my_dict.get('key1')  # 如果键存在，返回对应的值；否则返回None
value = my_dict.get('key3', 'default_value')  # 如果键不存在，返回'default_value'
# 通过 `in` 关键字来检查字典中是否包含某个键：
key_exists = 'key1' in my_dict  # 如果'key1'在字典中，返回True；否则返回False
# 使用 `keys()`, `values()`, 和 `items()` 方法来获取字典的键、值或键值对的列表：
keys = my_dict.keys()       # 获取键的列表
values = my_dict.values()   # 获取值的列表
items = my_dict.items()     # 获取键值对的列表

# 应用2：动态数据存储
user_data = dict()
print(user_data)
user_data['name'] = 'Myelsa'
user_data['age'] = 18
print(user_data)
# {}
# {'name': 'Myelsa', 'age': 18}

# 应用3：配置文件和参数设置
config = dict(
    database_url='postgresql://user:password@localhost:5432/mydb',
    debug_mode=True
)
print(config)
# {'database_url': 'postgresql://user:password@localhost:5432/mydb', 'debug_mode': True}

# 应用4：统计数据
word_counts = dict()
text = "Myelsa is a sunny and handsome boy. Myelsa is wonderful!"
for word in text.split():
    if word in word_counts:
        word_counts[word] += 1
    else:
        word_counts[word] = 1
print(word_counts)
# {'Myelsa': 2, 'is': 2, 'a': 1, 'sunny': 1, 'and': 1, 'handsome': 1, 'boy.': 1, 'wonderful!': 1}

# 应用5：映射和转换
abbreviations = dict(
    BTW='By the way',
    LOL='Laugh out loud'
)
text = "BTW, this is a LOL example."
for abbr, expansion in abbreviations.items():
    text = text.replace(abbr, expansion)
print(abbreviations)
# {'BTW': 'By the way', 'LOL': 'Laugh out loud'}

# 应用6：解析JSON数据
import json
json_data = '{"name": "Myelsa", "age": 18}'
data_dict = json.loads(json_data)
print(data_dict['name'])
# Myelsa

# 应用7：缓存和状态管理
cache = dict()
def compute_expensive_result(key):
    if key not in cache:
        cache[key] = some_expensive_computation(key)
    return cache[key]

# 应用8：构建复杂数据结构
users = {
    'Myelsa': {
        'age': 18,
        'email': 'alice@example.com'
    },
    'Jimmy': {
        'age': 15,
        'email': 'bob@example.com'
    }
}
print(users)
# {'Myelsa': {'age': 18, 'email': 'alice@example.com'}, 'Jimmy': {'age': 15, 'email': 'bob@example.com'}}

1-2、VBA：

Rem 模拟Python中dict()函数应用1：字典的增、删、改、查操作
'你需要在VBA编辑器中添加对 Microsoft Scripting Runtime 的引用。你可以通过以下步骤来添加：
'1、在VBA编辑器中，点击 "工具" -> "引用"
'2、在弹出的 "引用 - VBAProject" 对话框中，滚动并勾选 "Microsoft Scripting Runtime"
'3、点击 "确定"
Rem 增(添加键值对)
Sub TestRun_1()
    Dim my_dict As Object
    
    Set my_dict = CreateObject("Scripting.Dictionary")
    my_dict.add "key1", "value1"
    ' 打印键值对以验证
    Debug.Print my_dict.item("key1")  ' 输出: value1
End Sub
'value1

Rem 删(删除键值对或字典)
Sub TestRun_2()
    Dim my_dict As Object
    Set my_dict = CreateObject("Scripting.Dictionary")
      
    ' 添加键值对
    my_dict.add "key1", "value1"
    my_dict.add "key2", "value2"
    ' 打印字典的内容以验证
    Debug.Print "初始字典内容:"
    Debug.Print "key1 -> " & my_dict.item("key1")
    Debug.Print "key2 -> " & my_dict.item("key2")
    ' 使用Remove方法删除键值对
    my_dict.Remove ("key1")
    Debug.Print "删除key1后的字典内容:"
    If Not my_dict.Exists("key1") Then
        Debug.Print "key1已删除"
    End If
    ' 使用Item方法和Remove方法结合来模拟pop()方法，并返回被删除的值
    Dim removed_value As Variant
    If my_dict.Exists("key2") Then
        removed_value = my_dict.item("key2")
        my_dict.Remove ("key2")
        Debug.Print "使用pop()方法模拟删除key2，返回的值是：" & removed_value
    Else
        Debug.Print "key2不存在，无法pop"
    End If
    ' 清空字典
    my_dict.RemoveAll
    Debug.Print "清空字典后的内容:"
    If my_dict.count = 0 Then
        Debug.Print "字典已清空"
    End If
End Sub
'初始字典内容:
'key1 -> value1
'key2 -> value2
'删除key1后的字典内容:
'key1已删除
'使用pop()方法模拟删除key2，返回的值是：value2
'清空字典后的内容:
'字典已清空

Rem 改(修改键值对)
Sub TestRun_3()
    Dim my_dict As Object
    Set my_dict = CreateObject("Scripting.Dictionary")
      
    ' 添加键值对
    my_dict.add "key1", "value1"
    ' 修改 'key1' 的值为 'new_value1'
    my_dict("key1") = "new_value1"
    ' 打印修改后的值以验证
    Debug.Print "修改后的 'key1' 的值: " & my_dict.item("key1")
End Sub
'修改后的 'key1' 的值: new_value1

Rem 查(查询键值对)
Sub TestRun_4()
    Dim my_dict As Object
    Set my_dict = CreateObject("Scripting.Dictionary")
      
    ' 添加键值对
    my_dict.add "key1", "value1"
    my_dict.add "key2", "value2"
      
    ' 使用键来获取值
    Dim val As Variant
    On Error Resume Next ' 忽略因键不存在而可能产生的错误
    val = my_dict.item("key1")
    If Err.number <> 0 Then
        Debug.Print "KeyError: 键 'key1' 不存在"
        Err.Clear ' 清除错误
    Else
        Debug.Print "键 'key1' 的值: " & val
    End If
    On Error GoTo 0 ' 恢复正常的错误处理
      
    ' 使用类似get()的方法安全地获取值
    Dim val_1 As Variant
    val_1 = GetValueSafe(my_dict, "key1")
    Debug.Print "安全获取 'key1' 的值: " & IIf(IsMissing(val_1), "None", val_1)
      
    val_1 = GetValueSafe(my_dict, "key3", "default_value")
    Debug.Print "安全获取 'key3' 的值（带默认值）: " & val_1
      
    ' 通过 `Exists` 方法来检查字典中是否包含某个键
    Dim key_exists As Boolean
    key_exists = my_dict.Exists("key1")
    Debug.Print "'key1' 是否存在于字典中: " & CStr(key_exists)
      
    ' 使用 `Keys()`, `Items()` 方法来获取字典的键和键值对的列表
    Dim keys As Variant
    Dim items As Variant
    Dim i As Integer
      
    keys = my_dict.keys()
    Debug.Print "键的列表: "
    For i = LBound(keys) To UBound(keys)
        Debug.Print keys(i)
    Next i
      
    items = my_dict.items()
    Debug.Print "键值对的列表: "
    For i = LBound(items) To UBound(items)
        Debug.Print "键: " & my_dict.keys()(i) & ", 值: " & items(i)
    Next i
      
    ' 获取值的列表
    Dim values As Variant
    ReDim values(UBound(items)) ' 预先分配数组大小
    For i = LBound(items) To UBound(items)
        values(i) = items(i)
    Next i
    Debug.Print "值的列表: "
    For i = LBound(values) To UBound(values)
        Debug.Print values(i)
    Next i
End Sub
  
Function GetValueSafe(dict As Object, key As Variant, Optional defaultValue As Variant = Empty) As Variant
    If dict.Exists(key) Then
        GetValueSafe = dict.item(key)
    Else
        GetValueSafe = defaultValue
    End If
End Function
'键 'key1' 的值: value1
'安全获取 'key1' 的值: value1
'安全获取 'key3' 的值（带默认值）: default_value
''key1' 是否存在于字典中: True
'键的列表:
'key1
'key2
'键值对的列表:
'键: key1 , 值: Value1
'键: key2 , 值: Value2
'值的列表:
'Value1
'Value2

Rem 模拟Python中dict()函数应用2：动态数据存储
Sub TestRun_5()
    ' 声明一个Scripting.Dictionary对象
    Dim user_data As Object
    ' 创建Scripting.Dictionary对象
    Set user_data = CreateObject("Scripting.Dictionary")
      
    ' 打印初始的字典（VBA中无法直接打印字典，但可以打印其项数）
    Debug.Print "初始的user_data字典（项数）: " & user_data.count
      
    ' 添加键值对
    user_data.add "name", "Myelsa"
    user_data.add "age", 18
      
    ' 打印更新后的字典（VBA中无法直接打印整个字典，但可以遍历并打印其键值对）
    Debug.Print "更新后的user_data字典："
    Dim key As Variant
    For Each key In user_data.keys
        Debug.Print "键: " & key & ", 值: " & user_data(key)
    Next key
End Sub
'初始的user_data字典（项数）: 0
'更新后的user_data字典:
'键: name, 值: Myelsa
'键: age, 值: 18

Rem 模拟Python中dict()函数应用3：配置文件和参数设置
Sub TestRun_6()
    ' 声明Scripting.Dictionary对象
    Dim config As Object
    ' 创建Scripting.Dictionary对象
    Set config = CreateObject("Scripting.Dictionary")
      
    ' 添加键值对
    config.add "database_url", "postgresql://user:password@localhost:5432/mydb"
    config.add "debug_mode", True
      
    ' 打印字典内容
    Debug.Print "Config 字典内容："
    Dim key As Variant
    For Each key In config.keys
        ' 对于布尔值，我们需要特殊处理以在VBA中正确显示
        Dim value As Variant
        value = config(key)
        If VBA.IsNumeric(value) Then
            Debug.Print "键: " & key & ", 值: " & IIf(value, "True", "False")
        Else
            Debug.Print "键: " & key & ", 值: " & CStr(value)
        End If
    Next key
End Sub
'config 字典内容:
'键: database_url, 值: postgresql://user:password@localhost:5432/mydb
'键: debug_mode, 值: True

Rem 模拟Python中dict()函数应用4：统计数据
Sub TestRun_7()
    ' 声明Scripting.Dictionary对象来存储单词计数
    Dim word_counts As Object
    ' 声明变量来存储文本
    Dim text As String
    ' 声明变量来存储分割后的单词
    Dim words As Variant
    ' 声明变量来存储当前单词
    Dim word As Variant
    ' 声明变量来存储单词的计数
    Dim count As Integer
      
    ' 创建Scripting.Dictionary对象
    Set word_counts = CreateObject("Scripting.Dictionary")
      
    ' 设置文本内容
    text = "Myelsa is a sunny and handsome boy. Myelsa is wonderful!"
      
    ' 使用Split函数按空格分割文本为单词数组
    words = Split(text, " ")
      
    ' 遍历单词数组
    For Each word In words
        ' 忽略大小写并去除单词两端的空白字符
        word = Trim(LCase(word))
          
        ' 如果单词已经在字典中，则增加计数
        If word_counts.Exists(word) Then
            word_counts(word) = word_counts(word) + 1
        ' 否则，将单词添加到字典并设置计数为1
        Else
            word_counts.add word, 1
        End If
    Next word
      
    ' 打印单词计数
    Debug.Print "单词计数："
    Dim key As Variant
    For Each key In word_counts.keys
        Debug.Print "单词: " & key & ", 计数: " & word_counts(key)
    Next key
End Sub
单词计数:
'单词: myelsa, 计数: 2
'单词: is, 计数: 2
'单词: a, 计数: 1
'单词: sunny, 计数: 1
'单词: and, 计数: 1
'单词: handsome, 计数: 1
'单词: boy., 计数: 1
'单词: wonderful!, 计数: 1

Rem 模拟Python中dict()函数应用5：映射和转换
Sub TestRun_8()
    ' 声明Scripting.Dictionary对象来存储缩写和对应的扩展
    Dim abbreviations As Object
    ' 声明变量来存储文本
    Dim text As String
    ' 声明变量来存储缩写和扩展
    Dim abbr As Variant
    Dim expansion As Variant
      
    ' 创建Scripting.Dictionary对象
    Set abbreviations = CreateObject("Scripting.Dictionary")
    ' 添加缩写和对应的扩展
    abbreviations.add "BTW", "By the way"
    abbreviations.add "LOL", "Laugh out loud"
    ' 设置文本内容
    text = "BTW, this is a LOL example."
    ' 遍历字典中的缩写和扩展
    For Each abbr In abbreviations.keys
        expansion = abbreviations(abbr)
        ' 使用Replace函数替换文本中的缩写
        text = Replace(text, abbr, expansion)
    Next abbr
    ' 打印替换后的文本
    Debug.Print "替换后的文本：" & text
    ' 打印缩写和扩展的字典（在VBA中不能直接打印字典，但可以打印其内容）
    Debug.Print "缩写和扩展的字典："
    For Each abbr In abbreviations.keys
        Debug.Print "缩写: " & abbr & ", 扩展: " & abbreviations(abbr)
    Next abbr
End Sub
'替换后的文本：By the way, this is a Laugh out loud example.
'缩写和扩展的字典:
'缩写: BTW, 扩展: By the way
'缩写: LOL, 扩展: Laugh out loud

Rem 模拟Python中dict()函数应用8：构建复杂数据结构
Sub TestRun_9()
    ' 声明Scripting.Dictionary对象来存储用户信息
    Dim users As Object
    ' 声明变量来存储用户名称和用户的详细信息字典
    Dim userName As Variant
    Dim userInfo As Object
    ' 声明变量来存储用户的年龄和邮箱
    Dim age As Integer
    Dim email As String
      
    ' 创建Scripting.Dictionary对象来存储用户信息
    Set users = CreateObject("Scripting.Dictionary")
    ' 添加第一个用户信息
    Set userInfo = CreateObject("Scripting.Dictionary")
    age = 18
    email = "alice@example.com"
    userInfo.add "age", age
    userInfo.add "email", email
    users.add "Myelsa", userInfo
    ' 添加第二个用户信息
    Set userInfo = CreateObject("Scripting.Dictionary")
    age = 15
    email = "bob@example.com"
    userInfo.add "age", age
    userInfo.add "email", email
    users.add "Jimmy", userInfo
    ' 打印用户信息
    Debug.Print "用户信息："
    For Each userName In users.keys
        Debug.Print "用户名: " & userName
        Dim userInfoKey As Variant
        For Each userInfoKey In users(userName).keys
            Debug.Print "  " & userInfoKey & ": " & users(userName)(userInfoKey)
        Next userInfoKey
    Next userName
End Sub
'用户信息:
'用户名: Myelsa
'  age: 18
'email:   alice@ example.com
'用户名: Jimmy
'  age: 15
'email:   bob@ example.com