7,763
社区成员
发帖
与我相关
我的任务
分享
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Dim str As String
Dim b() As Byte
Dim i As Integer
Dim UTF16BOM As Integer
i = FreeFile
UTF16BOM = &HFEFF
str = "测试UTF16数据信息"
ReDim b(Len(str) * 2 - 1)
CopyMemory ByVal VarPtr(b(0)), ByVal StrPtr(str), ByVal Len(str) * 2
Open "c:\testUTF16.txt" For Binary As #i
Put #i, , UTF16BOM
Put #i, , b
Close #i