[操作疑难] (己解决)Excel VBA：UTF8 bytes array 转做文字

本帖最后由 C_Law 于 2023-10-30 17:30 编辑

我有个 byte 的 array，系 UTF8 的中文字，eg.
b(i) = e5 b7 b4 e9 bb 8e = 巴黎

请问怎样将这堆 byte 转返做文字放入一个 Cell？

我只识个笨方法，写入个 Temp file 再 Read 返出来，就好似：

Dim sTemp As String
sTemp = ""
Open "D:\Video\TvEditor\myTemp.txt" For Binary As #2
For j = 1 To i - 2
Put #2, , bytes(j)
Next j
Close #2
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile ("D:\Video\TvEditor\myTemp.txt")
sTemp = objStream.ReadText()

复制代码

sTemp 就系"巴黎"。

0

0

s20012797

进阶会员

Rank: 3 Rank: 3 Rank: 3

2^#

发表于 2023-10-29 19:01 | 只看该作者

本帖最后由 s20012797 于 2023-10-29 19:03 编辑

VBA吾熟,新Office的python吾知做成点.
Excel JavaScript API 有一个:

Excel.run(function(context) {
var bytes = [0xe5, 0xb7, 0xb4, 0xe9, 0xbb, 0x8e];
var text = "";
for (var i = 0; i < bytes.length; i++) {
text += String.fromCharCode(bytes[i]);
}
var sheet = context.workbook.worksheets.getActiveWorksheet();
var range = sheet.getRange("A1");
range.values = [[text]];
return context.sync();
}).catch(function(error) {
console.log(error);
});

复制代码

程式码使用Excel JavaScript API将位元组阵列转换为文字，并将文字放入储存格A1中.

点用Excel JavaScript API就有努自己做下功课了.

PS:都吾知M$D友仔谂D咩,新Office用python替代VBA都吾真接比JavaScript API座正,两都在效能上差天共地...

TOP

C_Law

进阶会员

Rank: 3 Rank: 3 Rank: 3

3^#

发表于 2023-10-30 17:30 | 只看该作者

本帖最后由 C_Law 于 2023-10-30 17:31 编辑

VBA吾熟,新Office的python吾知做成点.
Excel JavaScript API 有一个:程式码使用Excel JavaScript API将位元 ...
s20012797 发表于 2023/10/29 19:01

Thanks~~~研究下先。

我另外搵到个方法：
Utf8BytesToString()
https://www.di-mgt.com.au/howto-convert-vba-unicode-to-utf8.html

不过要改小小：
Public Function Utf8BytesToString(abUtf8Array() As Byte) As String
nBytes = BytesLength(abUtf8Array)
改为
Public Function Utf8BytesToString(abUtf8Array() As Byte, NoOfBytes As Long) As String
nBytes = NoOfBytes

使用：
dim sTemp as String
dim bytes(1000) as Byte
bytes(0) = &HE5
bytes(1) = &HB7
bytes(2) = &HB4
bytes(3) = &HE9
bytes(4) = &HBB
bytes(5) = &H8E
sTemp = Utf8BytesToString(bytes(), 6)

结果：
sTemp = 巴黎

TOP

bongbong3481