[操作疑難] (己解決)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