011集—vba代码将汉字用(utf-8)编码写入文本文档

山水CAD插件定制

已于 2024-03-07 17:31:33 修改

阅读量1.2k

点赞数 7

CC 4.0 BY-SA版权

分类专栏：函数（VBA）文章标签：数据库

于 2024-02-25 18:05:30 首次发布

本文链接：https://blog.csdn.net/yongshiqq/article/details/136285280

本文介绍了如何在VBA中使用函数将包含汉字等符号的字符串转换为UTF-8编码的十六进制表示，包括代码示例和将文本追加到UTF-8编码文件的操作。

在vba中，根据提供字符串（包含汉字等符号）可以得出相应的utf-8对应的十六进制编码，代码如下：

'2024年2月28日17:30:55 qq:443440204 
Public Function StringToUtf8ByteArray(ByVal filePath As String, s As String) As Byte()
    Dim i As Long, j As Long
    Dim result() As Byte
    Dim charCode As Integer
    Dim bytesRequired As Integer
    Dim char As String
      
    ' 初始化数组以容纳至少一个字符（单字节）
    ReDim result(0)
      
    ' 遍历字符串中的每个字符
    For i = 1 To Len(s)
        char = Mid(s, i, 1) ' 获取单个字符
        charCode = AscW(char)
          
        ' 根据字符的 Unicode 码点确定所需的字节数
        If charCode < 128 Then
            ' 单字节字符
            bytesRequired = 1
        ElseIf charCode < 2048 Then
            ' 双字节字符
            bytesRequired = 2
        ElseIf charCode < 65536 Then
            ' 三字节字符
            bytesRequired = 3
        Else
            ' 不支持的字符（超出三字节范围）
            MsgBox "字符串包含不支持的 UTF-8 字符。"
            Exit Function
        End If
          
        ' 如果当前数组空