Write UTF-8 File From VB6

最新推荐文章于 2024-05-02 05:35:17 发布

原创最新推荐文章于 2024-05-02 05:35:17 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #file #integer #encoding #byte #function

本文介绍了一个VB6环境下用于创建UTF-8编码文件的模块。该模块包括了打开、关闭文件及写入字符串到文件的功能，并详细展示了如何将Unicode编码转换为UTF-8编码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Hi, I am Arren.
Maybe you need output file as UTF-8 encoding, but VB6 is nativly support ansi encoding, it's depend on your machine. I write this module, it can help you write utf-8 encoding files from vb6.

Option Base 0

Public Function OpenFile(path As String) As Integer
    Kill path
    Dim fid As Integer
    fid = FreeFile()
    Open path For Binary As fid
    OpenFile = fid
End Function

Public Sub CloseFile(fid As Integer)
    Close fid
End Sub

Public Function WriteFile(fid As Integer, s As String) As Integer
    Dim bs() As Byte, buf(0 To 6) As Byte
    Dim c As Integer, l As Integer, i As Integer, ch As Long

    bs = s
    c = UBound(bs)

    For i = 0 To c Step 2
        ch = bs(i + 1) * 2 ^ 8 Or bs(i)
        l = UnicodeToUTF8(ch, buf)
        Call WriteBytes(buf, l, fid)
    Next i
End Function

Private Sub WriteBytes(buf() As Byte, cnt As Integer, fid As Integer)
    Dim i As Integer
    Dim b(0 To 0) As Byte
    For i = 0 To cnt
        b(0) = buf(i)
        Put fid, , b
    Next i
End Sub

Private Function UnicodeToUTF8(ch As Long, buf() As Byte) As Integer
    Dim i As Integer: i = 0
    If (ch < &H80) Then
        buf(i) = ch
    ElseIf (ch < &H800) Then
        buf(i) = &HC0 Or ((ch And &H7C00) / 2 ^ 6): i = i + 1
        buf(i) = &H80 Or (ch And &H3F)
    ElseIf (ch < &H10000) Then
        buf(i) = &HE0 Or ((ch And &HF000) / 2 ^ 12): i = i + 1
        buf(i) = &H80 Or ((ch And &HFC0) / 2 ^ 6): i = i + 1
        buf(i) = &H80 Or (ch And &H3F)
    End If
    UnicodeToUTF8 = i
End Function