Python-VBA函数之旅-chr函数

目录

1、chr函数：

1-1、Python：

1-2、VBA：

2、相关文章：

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

        chr函数在Python编程中有多种应用场景，它主要用于将Unicode码点转换为对应的字符。常见的应用场景有：

1、字符(串)处理：chr函数可以将Unicode编码转换为对应的字符，可以用于处理字符串中的特殊字符或者进行字符替换操作。

2、加密解密：在一些加密算法中，字符的转换和替换是常见的操作，chr函数可以用于将数字编码转换为对应的字符，从而实现加密和解密的功能。

3、字符编码转换：在处理文本文件或者网络传输时，经常需要进行字符编码的转换，chr函数可以将Unicode编码转换为对应的字符，方便进行字符编码的转换操作。

4、图形界面开发：在图形界面开发中，有时需要根据用户输入的字符来进行相应的操作或者显示，chr函数可以将Unicode编码转换为对应的字符，方便进行图形界面的开发。

5、配合ord函数使用：chr()函数经常与ord()函数一起使用，以实现字符和Unicode码点之间的双向转换，这在处理需要精确控制字符编码的场景时非常有用。

6、生成控制字符：控制字符如换行符(`\n`)、制表符(`\t`)等，在Python中通常使用转义序列来表示。但你也可以使用chr()函数和相应的Unicode码点来生成这些字符。

7、创建自定义异常：在创建自定义异常时，chr()也很有用。您可以使用chr()生成一个Unicode字符，作为异常名称的一部分，使异常更加描述性和可读性。

        总之，chr()函数是Python中处理字符串和Unicode字符的强大工具，在许多不同的情况下都有实际应用。

1、chr函数：
1-1、Python：
  1. # 1.函数：chr
  2. # 2.功能：将整型参数值转换为对应的Unicode字符
  3. # 3.语法：chr(i)
  4. # 4.参数：i可以是十进制或十六进制形式的数字：
  5. # 4-1、十进制形式：i的取值范围为[0, 1114111]
  6. # 4-2、十六进制形式：i的取值范围为[0, 0x10ffff]
  7. # 5.返回值：返回Unicode码位为整数i对应的字符，例如，chr(97)返回字符串'a'，chr(65)返回字符串'A'，与ord()函数相反
  8. # 6.说明：
  9. # 6-1、如果参数i的值超出取值范围，则会抛出ValueError错误：
  10.        # ValueError: chr() arg not in range(0x110000)
  11.        # print(chr(1114112))
  12. # 7.示例：
  13. # 应用1：字符(串)处理
  14. # 将ASCII码列表转换为字符列表
  15. ascii_codes = [65, 66, 67]
  16. chars = [chr(code) for code in ascii_codes]
  17. print(chars)
  18. # ['A', 'B', 'C']
  19. # 将字符串中的每个字符转换为对应的ASCII码列表
  20. s = "Myelsa"
  21. ascii_codes = [ord(char) for char in s]
  22. print(ascii_codes)
  23. # [77, 121, 101, 108, 115, 97]
  24. # 生成常见的特殊符号
  25. # 生成制表符(Tab)
  26. tab_char = chr(9)
  27. print(tab_char)
  28. # 生成换行符(Newline)
  29. newline_char = chr(10)
  30. print(newline_char)
  31. # 生成回车符(Carriage Return)
  32. carriage_return_char = chr(13)
  33. print(carriage_return_char)
  34. # 生成空格
  35. space_char = chr(32)
  36. print(space_char)
  37. # 生成扩展ASCII码中的特殊符号
  38. # 生成货币符号(例如美元符号)
  39. dollar_sign = chr(36)
  40. print(dollar_sign)
  41. # 生成版权符号
  42. copyright_symbol = chr(169)
  43. print(copyright_symbol)
  44. # 生成注册商标符号
  45. registered_symbol = chr(174)
  46. print(registered_symbol)
  47. # 生成商标符号
  48. trademark_symbol = chr(8482)
  49. print(trademark_symbol)
  50. # $
  51. # ©
  52. # ®
  53. # ™
  54. # 生成Unicode特殊符号
  55. # 生成笑脸符号
  56. smiley_face = chr(0x1F604)
  57. print(smiley_face)
  58. # 生成爱心符号
  59. heart_symbol = chr(0x2665)
  60. print(heart_symbol)
  61. # ?
  62. # ♥
  63.  
  64. # 应用2：加密解密
  65. def encrypt(text, shift):
  66.     """
  67.     加密函数，将文本中的每个字符通过ASCII码偏移进行加密。
  68.     :param text: 要加密的文本
  69.     :param shift: 偏移量
  70.     :return: 加密后的文本
  71.     """
  72.     encrypted_text = ""
  73.     for char in text:
  74.         # 将字符转换为ASCII码
  75.         ascii_code = ord(char)
  76.         # 对ASCII码进行偏移
  77.         shifted_code = (ascii_code + shift) % 256  # 取模保证结果在ASCII码范围内
  78.         # 将偏移后的ASCII码转换回字符
  79.         encrypted_char = chr(shifted_code)
  80.         encrypted_text += encrypted_char
  81.     return encrypted_text
  82. def decrypt(encrypted_text, shift):
  83.     """
  84.     解密函数，将加密后的文本通过ASCII码偏移进行解密。
  85.     :param encrypted_text: 加密后的文本
  86.     :param shift: 偏移量(应与加密时使用的偏移量相同，但方向相反)
  87.     :return: 解密后的文本
  88.     """
  89.     decrypted_text = ""
  90.     for char in encrypted_text:
  91.         # 将字符转换为ASCII码
  92.         ascii_code = ord(char)
  93.         # 对ASCII码进行反向偏移
  94.         reversed_shift = -shift
  95.         shifted_back_code = (ascii_code + reversed_shift) % 256  # 取模保证结果在ASCII码范围内
  96.         # 将偏移回的ASCII码转换回字符
  97.         decrypted_char = chr(shifted_back_code)
  98.         decrypted_text += decrypted_char
  99.     return decrypted_text
  100. # 主函数
  101. if __name__ == '__main__':
  102.     original_text = "Hello, Python!"
  103.     shift = 8  # 偏移量，可以根据需要调整
  104.     # 加密文本
  105.     encrypted = encrypt(original_text, shift)
  106.     print(f"加密文本: {encrypted}")
  107.     # 解密文本
  108.     decrypted = decrypt(encrypted, shift)
  109.     print(f"解密文本: {decrypted}")
  110. # 加密文本: Pmttw4(X|pwv)
  111. # 解密文本: Hello, Python!
  112.  
  113. # 应用3：字符编码转换
  114. # 将ASCII码转换为字符
  115. # ASCII码列表
  116. ascii_codes = [65, 66, 67, 32, 49, 50, 51]  # 对应 'A', 'B', 'C', ' ', '1', '2', '3'
  117. # 使用chr()函数将ASCII码转换为字符
  118. chars = [chr(code) for code in ascii_codes]
  119. # 输出字符列表
  120. print(''.join(chars))
  121. # ABC 123
  122. # 将Unicode码点转换为字符(用于非ASCII字符)
  123. # Unicode 码点列表(包括非ASCII字符)
  124. unicode_codes = [0x4F60, 0x597D, 0x1F604]  # 对应 '你', '好', '?'
  125. # 使用chr()函数将Unicode码点转换为字符
  126. chars = [chr(code) for code in unicode_codes]
  127. # 输出字符列表
  128. print(''.join(chars))  # 输出: 你好? (注意：这需要在支持Unicode的环境中才能正确显示)
  129. # 你好?
  130. # 从二进制数据转换到字符(假设数据是ASCII编码的)
  131. # 二进制数据(ASCII编码)
  132. binary_data = [100, 101, 108, 108, 111]  # 对应 'd', 'e', 'l', 'l', 'o'
  133. # 使用chr()函数将二进制数据转换为字符
  134. chars = [chr(byte) for byte in binary_data]
  135. # 输出字符串
  136. print(''.join(chars))
  137. # dello
  138. # 从十六进制字符串转换到字符(假设数据是ASCII编码的)
  139. # 十六进制字符串表示的ASCII码
  140. hex_string = '48 65 6c 6c 6f'  # 对应 'H', 'e', 'l', 'l', 'o'
  141. # 将十六进制字符串分割并转换为整数，然后使用chr()转换为字符
  142. chars = [chr(int(hex_byte, 16)) for hex_byte in hex_string.split()]
  143. # 输出字符串
  144. print(''.join(chars))
  145. # Hello
  146.  
  147. # 应用4：图形界面开发
  148. import tkinter as tk
  149. def on_enter_pressed():
  150.     # 获取输入框中的ASCII码
  151.     ascii_code = entry.get()
  152.     try:
  153.         # 将ASCII码转换为字符
  154.         character = chr(int(ascii_code))
  155.         # 显示字符
  156.         result_label.config(text=f"字符: {character}")
  157.     except ValueError:
  158.         # 如果输入的不是有效的整数，显示错误消息
  159.         result_label.config(text="Error: 请输入一个有效的ASCII码!")
  160. # 主函数
  161. if __name__ == '__main__':
  162.     # 创建主窗口
  163.     root = tk.Tk()
  164.     root.title("ASCII码到字符转换器")
  165.     # 创建标签用于显示提示信息
  166.     prompt_label = tk.Label(root, text="请输入一个ASCII码：")
  167.     prompt_label.pack()
  168.     # 创建输入框用于输入ASCII码
  169.     entry = tk.Entry(root)
  170.     entry.pack()
  171.     # 创建按钮，点击时调用on_enter_pressed函数
  172.     enter_button = tk.Button(root, text="输入", command=on_enter_pressed)
  173.     enter_button.pack()
  174.     # 创建标签用于显示结果
  175.     result_label = tk.Label(root, text="")
  176.     result_label.pack()
  177.     # 运行主循环
  178.     root.mainloop()
  179.  
  180. # 应用5：配合ord函数使用
  181. # 定义一个字符
  182. character = 'A'
  183. # 使用ord()函数将字符转换为 ASCII 码
  184. ascii_code = ord(character)
  185. print(f"The ASCII code for '{character}' is: {ascii_code}")
  186. # 使用chr()函数将ASCII码转换回字符
  187. recovered_character = chr(ascii_code)
  188. print(f"The character for ASCII code {ascii_code} is: '{recovered_character}'")
  189. # 验证转换是否正确
  190. assert recovered_character == character, "The character was not recovered correctly!"
  191. print("The character was recovered correctly!")
  192. # The ASCII code for 'A' is: 65
  193. # The character for ASCII code 65 is: 'A'
  194. # The character was recovered correctly!
  195.  
  196. # 应用6：生成控制字符
  197. # 定义一些控制字符的ASCII码
  198. newline_code = ord('\n')  # 换行符
  199. tab_code = ord('\t')  # 制表符
  200. carriage_return_code = ord('\r')  # 回车符
  201. # 使用chr()函数生成控制字符
  202. newline_char = chr(newline_code)
  203. tab_char = chr(tab_code)
  204. carriage_return_char = chr(carriage_return_code)
  205. # 创建一个包含控制字符的字符串
  206. control_string = f"Hello{tab_char}World{newline_char}This is a new line{carriage_return_char}Going back to the start"
  207. # 打印控制字符串
  208. print(control_string)
  209. # 如果你在支持这些控制字符的环境中运行此代码(如命令行或终端).
  210. # 你将看到"Hello"和"World"之间有一个制表符的间隔，
  211. # "World"和"This is a new line"之间有一个换行符，
  212. # 以及"Going back to the start"将会从行的开始处打印，因为有一个回车符。
  213. # Hello	World
  214. # Going back to the start
  215.  
  216. # 应用7：创建自定义异常
  217. class InvalidCharacterException(Exception):
  218.     """自定义异常类，用于处理无效的字符异常"""
  219.     def __init__(self, ascii_code):
  220.         # 使用chr()函数将ASCII码转换为字符，并构造异常消息
  221.         character = chr(ascii_code) if 0 <= ascii_code <= 127 else '?'
  222.         self.message = f"无效的字符，其ASCII码为： {ascii_code} ({character})"
  223.         super().__init__(self.message)
  224. # 主函数
  225. if __name__ == '__main__':
  226.     try:
  227.         # 假设我们有一个无效的 ASCII 码
  228.         invalid_ascii_code = 128
  229.         raise InvalidCharacterException(invalid_ascii_code)
  230.     except InvalidCharacterException as e:
  231.         print(f"捕捉到异常: {e}")
  232. # 捕捉到异常: 无效的字符，其ASCII码为： 128 (?)
1-2、VBA：
  1. ' 1.函数：Chr
  2. ' 2.功能：将一个ASCII(American Standard Code for Information Interchange，美国信息交换标准代码)值转换为对应的字符
  3. ' 3.语法：Chr(number)
  4. ' 4.参数：number，必需参数，表示要转换的ASCII值。这个值应该是一个介于0到255之间的整数
  5. ' 5.返回值：返回与number参数对应的字符
  6. ' 6.说明：
  7. ' 7.示例：
  8. '---------------------------------------------------------------------------------------------------------------------------
  9. Rem 模拟Python中chr函数应用1：字符(串)处理
  10. ' 将ASCII码列表转换为字符列表
  11. Sub TestRun_1()
  12.     Dim ascii_codes() As Variant
  13.     Dim chars() As Variant
  14.     Dim i As Integer
  15.       
  16.     ascii_codes = Array(65, 66, 67)
  17.     ReDim chars(LBound(ascii_codes) To UBound(ascii_codes))
  18.     For i = LBound(ascii_codes) To UBound(ascii_codes)
  19.         chars(i) = Chr(ascii_codes(i))
  20.     Next i
  21.     ' 显示字符列表
  22.     Dim charResult As String
  23.     charResult = Join(chars, ", ")
  24.     MsgBox charResult, vbInformation, "信息提醒"
  25. End Sub
  26. ' 将字符串中的每个字符转换为对应的ASCII码列表
  27. Sub TestRun_2()
  28.     Dim s As String
  29.     Dim ascii_codes() As Variant
  30.     Dim i As Integer
  31.     Dim char As String
  32.       
  33.     ' 定义字符串
  34.     s = "Myelsa"
  35.     ' 初始化ASCII码数组大小
  36.     ReDim ascii_codes(Len(s))
  37.     ' 遍历字符串中的每个字符
  38.     For i = 1 To Len(s)
  39.         char = mid(s, i, 1) ' 获取第i个字符
  40.         ascii_codes(i - 1) = Asc(char) ' 获取字符的ASCII码并存储在数组中
  41.     Next i
  42.     ' 输出ASCII码
  43.     For i = 0 To UBound(ascii_codes)
  44.         Debug.Print ascii_codes(i)
  45.     Next i
  46. End Sub
  47. ' 其他特殊字符处理
  48. Sub TestRun_3()
  49.     ' 生成制表符(Tab)
  50.     Dim tab_char As String
  51.     tab_char = Chr(9)
  52.     Debug.Print tab_char
  53.     ' 或者使用MsgBox显示制表符
  54.     ' MsgBox tab_char
  55.       
  56.     ' 生成换行符(Newline)
  57.     Dim newline_char As String
  58.     newline_char = Chr(10)
  59.     Debug.Print newline_char
  60.     ' MsgBox newline_char
  61.       
  62.     ' 生成回车符(Carriage Return)
  63.     Dim carriage_return_char As String
  64.     carriage_return_char = Chr(13)
  65.     Debug.Print carriage_return_char
  66.     ' MsgBox carriage_return_char
  67.       
  68.     ' 生成空格
  69.     Dim space_char As String
  70.     space_char = Chr(32)
  71.     Debug.Print space_char
  72.     ' MsgBox space_char
  73.       
  74.     ' 生成扩展ASCII码中的特殊符号
  75.     ' 生成货币符号(例如美元符号)
  76.     Dim dollar_sign As String
  77.     dollar_sign = Chr(36)
  78.     Debug.Print dollar_sign
  79. End Sub
  80.  
  81. Rem 模拟Python中chr函数应用2：加密解密
  82. Sub EncryptText(text As String, shift As Integer)
  83.     Dim encryptedText As String
  84.     Dim char As String
  85.     Dim asciiCode As Integer
  86.     Dim shiftedCode As Integer
  87.     Dim encryptedChar As String
  88.       
  89.     encryptedText = ""
  90.     For i = 1 To Len(text)
  91.         char = mid(text, i, 1)
  92.         asciiCode = Asc(char)
  93.         shiftedCode = (asciiCode + shift) Mod 256
  94.         encryptedChar = Chr(shiftedCode)
  95.         encryptedText = encryptedText & encryptedChar
  96.     Next i
  97.     ' 显示加密后的文本
  98.     MsgBox "加密文本： " & encryptedText
  99. End Sub
  100. Rem 执行程序，功能：实现Chr函数的加密操作
  101. Sub TestRun_4()
  102.     Dim originalText As String
  103.     Dim shift As Integer
  104.     Dim encrypted As String
  105.     Dim decrypted As String
  106.       
  107.     originalText = "Hello, Python!"
  108.     shift = 8
  109.     ' 加密文本
  110.     EncryptText originalText, shift
  111. End Sub
  112.  
  113. Rem 模拟Python中chr函数应用3：字符编码转换
  114. ' 将ASCII码转换为字符
  115. Sub TestRun_5()
  116.     Dim ascii_codes() As Variant
  117.     Dim chars() As String
  118.     Dim i As Integer
  119.     Dim result As String
  120.       
  121.     ' 定义ASCII码列表
  122.     ascii_codes = Array(65, 66, 67, 32, 49, 50, 51)
  123.     ' 初始化字符数组的大小与ASCII码列表相同
  124.     ReDim chars(LBound(ascii_codes) To UBound(ascii_codes))
  125.     ' 使用Chr()函数将ASCII码转换为字符
  126.     For i = LBound(ascii_codes) To UBound(ascii_codes)
  127.         chars(i) = Chr(ascii_codes(i))
  128.     Next i
  129.     ' 将字符数组连接成字符串
  130.     result = Join(chars, "")
  131.     ' 输出字符串
  132.     MsgBox result, vbInformation, "信息提醒"
  133. End Sub
  134. ' 从二进制数据转换到字符(假设数据是ASCII编码的)
  135. Sub TestRun_6()
  136.     Dim binary_data() As Variant
  137.     Dim chars As String
  138.     Dim i As Integer
  139.       
  140.     ' 定义ASCII编码的二进制数据
  141.     binary_data = Array(100, 101, 108, 108, 111) ' 对应 'd', 'e', 'l', 'l', 'o'
  142.     ' 初始化结果字符串
  143.     chars = ""
  144.     ' 使用Chr()函数将每个ASCII编码转换为字符，并连接成字符串
  145.     For i = LBound(binary_data) To UBound(binary_data)
  146.         chars = chars & Chr(binary_data(i))
  147.     Next i
  148.     ' 输出字符串
  149.     MsgBox chars, vbInformation, "信息提醒"
  150. End Sub
  151.  
  152. Rem 模拟Python中chr函数应用5：配合ord函数使用
  153. Sub TestRun_7()
  154.     Dim character As String
  155.     Dim ascii_code As Integer
  156.     Dim recovered_character As String
  157.       
  158.     ' 设置字符
  159.     character = "A"
  160.     ' 使用Asc()函数将字符转换为ASCII码
  161.     ascii_code = Asc(character)
  162.     ' 显示ASCII码
  163.     MsgBox "The ASCII code for '" & character & "' is: " & ascii_code, vbInformation, "信息提醒"
  164.     ' 使用Chr()函数将ASCII码转换回字符
  165.     recovered_character = Chr(ascii_code)
  166.     ' 显示转换后的字符
  167.     MsgBox "The character for ASCII code " & ascii_code & " is: '" & recovered_character & "'", vbInformation, "信息提醒"
  168.     ' 验证转换是否正确
  169.     If recovered_character = character Then
  170.         MsgBox "The character was recovered correctly!", vbInformation, "信息提醒"
  171.     Else
  172.         MsgBox "The character was not recovered correctly!", vbInformation, "信息提醒"
  173.     End If
  174. End Sub
  175.  
  176. Rem 模拟Python中chr函数应用6：生成控制字符
  177. Sub TestRun_8()
  178.     Dim newline_char As String
  179.     Dim tab_char As String
  180.     Dim carriage_return_char As String
  181.     Dim control_string As String
  182.       
  183.     ' 换行符、制表符和回车符在VBA中可以直接使用其特殊字符表示
  184.     newline_char = Chr(10) ' 换行符，ASCII码为10
  185.     tab_char = Chr(9) ' 制表符，ASCII码为9
  186.     carriage_return_char = Chr(13) ' 回车符，ASCII码为13
  187.       
  188.     ' 创建一个包含控制字符的字符串
  189.     control_string = "Hello" & tab_char & "World" & newline_char & _
  190.                      "This is a new line" & carriage_return_char & _
  191.                      "Going back to the start"
  192.       
  193.     ' 输出到立即窗口（VBA的调试输出窗口）
  194.     Debug.Print control_string
  195.     ' 或者输出到Excel的某个单元格（例如A1）
  196.     Range("A1").value = control_string
  197.     ' 使用MsgBox显示字符串（但请注意，MsgBox可能不会正确显示控制字符）
  198.     ' MsgBox control_string, vbInformation, "Control Characters String"
  199. End Sub
  200. '
  201. '
  202. '
  203. '
  204. '
  205. '
  206. '$Hello   World
  207. 'This is a new line
  208. 'Going back to the start
2、相关文章：

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

Python算法之旅：Algorithm

个人主页：非风V非雨-CSDN博客
文章知识点与官方知识档案匹配，可进一步学习相关知识
算法技能树首页概览60120 人正在系统学习中
遨游码海，我心飞扬
微信名片
注：本文转载自blog.csdn.net的神奇夜光杯的文章"https://myelsa1024.blog.csdn.net/article/details/137642811"。版权归原作者所有，此博客不拥有其著作权，亦不承担相应法律责任。如有侵权，请联系我们删除。
复制链接
相关推荐
发表评论

评论记录：

未查询到任何数据！