易语言字符转换成十进制的Unicode数字编码

adnogpu

求易语言字符转换成十进制的Unicode数字编码的源码

如图所示

EhLin

adnogpu 发表于 2024-7-28 22:13
你发的图片能再发一次吗我这边一直显示加载

看这个

lylswb

.局部变量 i, 整数型
.局部变量 unicode, 整数型
.局部变量 str, 文本型

str ＝ "你好"

for i ＝ 1 to 取文本长度(str)
    unicode ＝ AscW(取文本第N个字符(str, i))
    输出调试文本(unicode)
next

头上有奇角

; 函数名称：GetUnicodeCode
; 功能描述：获取字符的Unicode编码
; 输入参数：cChar - 需要转换的字符
; 返回值：Unicode编码的数字

Function GetUnicodeCode(cChar)
    ; 初始化Unicode编码的变量
    Local wUnicode := 0

    ; 如果是汉字或其他非ASCII字符，需要用16进制表示
    If Length(cChar) = 1
        ; 获取字符的ASCII码
        wUnicode := Asc(cChar)
        ; 如果ASCII码大于127，则是汉字或其他非ASCII字符
        If wUnicode > 127
            ; 将Unicode码转换为16进制字符串
            Local sUnicodeHex := Hex(wUnicode)
            ; 由于Unicode码是两位16进制数，不足两位的前面补0
            sUnicodeHex := StringReplace(sUnicodeHex, " ", "0", 1)
            ; 将16进制字符串转换为数字
            wUnicode := Val("&H" + sUnicodeHex)
        EndIf
    EndIf

    ; 返回Unicode编码
    Return wUnicode
EndFunction

; 示例使用
Local wUnicodeCode := GetUnicodeCode("中")
? wUnicodeCode  ; 输出字符"中"的Unicode编码

adnogpu

lylswb 发表于 2024-7-22 10:02
.局部变量 i, 整数型
.局部变量 unicode, 整数型
.局部变量 str, 文本型

易语言谢谢

EhLin

使用精易模块就可以实现，如图所示

adnogpu

EhLin 发表于 2024-7-22 16:01
使用精易模块就可以实现，如图所示

你发的图片能再发一次吗我这边一直显示加载

揰掵佲

调试输出 (取字节集数据 (文本到UTF16 (“你”), #整数型, ))