易语言汉字转utf8编码

Posted 2023-05-05

好的话我会加分的。

.版本 2
.支持库 spec

.子程序 彗星URL编码_UTF8, 文本型, 公开, 返回已编码的URL
.参数 Bin_URL, 文本型, 可空, GBK版
.参数 字节集, 字节集, 可空, unicode版
.局部变量 局部_数据, 字节集
.局部变量 局部_数据1, 字节集
.局部变量 i, 整数型
.局部变量 ii, 文本型
.局部变量 临时, 字节集

.如果 (Bin_URL ≠ “”)
    局部_数据 ＝ 到字节集 (Ansi转Utf8 (Bin_URL))
.否则
    彗星URL解码_UTF8 (到文本 (字节集), 临时)
    局部_数据 ＝ Unicode转Utf8 (临时) ＋  0 
    调试输出 (到文本 (局部_数据), “uni”)
.如果结束

局部_数据 ＝ 取字节集左边 (局部_数据, 取字节集长度 (局部_数据) － 1)
.计次循环首 (取字节集长度 (局部_数据), i)
    .如果 (到整数 (局部_数据 [i]) ≥ 48 且 到整数 (局部_数据 [i]) ≤ 57 或 到整数 (局部_数据 [i]) ≥ 65 且 到整数 (局部_数据 [i]) ≤ 90 或 到整数 (局部_数据 [i]) ≥ 65 且 到整数 (局部_数据 [i]) ≤ 90 或 到整数 (局部_数据 [i]) ≥ 97 且 到整数 (局部_数据 [i]) ≤ 122)
        ii ＝ ii ＋ 字符 (局部_数据 [i])
    .否则
        ii ＝ ii ＋ “%” ＋ 取十六进制文本 (局部_数据 [i])
    .如果结束

.计次循环尾 ()
返回 (ii)

.子程序 Ansi转Utf8, 字节集
.参数 ansi文本, 文本型

返回 (Unicode转Utf8 (Ansi转Unicode (ansi文本)))

.子程序 Ansi转Unicode, 字节集
.参数 Ansi文本, 文本型
.局部变量 len, 整数型, , , 单位: Word
.局部变量 Unicode字节集, 字节集

len ＝ MultiByteToWideChar (936, 0, Ansi文本, -1,   , 0)
Unicode字节集 ＝ 取空白字节集 (len × 2)
MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len × 2)
返回 (Unicode字节集)

.子程序 Unicode转Utf8, 字节集
.参数 Unicode字节集, 字节集
.局部变量 utf8_len, 整数型
.局部变量 unicode_len, , , , word
.局部变量 uft8, 字节集

unicode_len ＝ 取字节集长度 (Unicode字节集) ÷ 2
utf8_len ＝ WideCharToMultiByte (65001, 0, Unicode字节集, unicode_len, uft8, 0, 0, 0)
uft8 ＝ 取空白字节集 (utf8_len)
' 输出调试文本 (utf8_len)
WideCharToMultiByte (65001, 0, Unicode字节集, -1, uft8, utf8_len, 0, 0)
返回 (uft8)

 

汉字是GBK，你在彗星URL编码的参数一填你想要转换的汉字，返回的就是UTF8

参考技术A 当热可以,不过回答问题 是不允许留下qq的啊,,我要如何给你啊

如何实现UTF-8 Unicode Ansi 汉字编码转换

参考技术A 请参照下面方法，把 CFile类 改成 FILE*。 写字符串改成写文件流。
注意，汉字在utf8中占3个字节。
// unicode to ansi
void CConvertDlg::OnBnClickedButtonUnicodeToAnsi()

// unicode to ansi
wchar_t* wszString = L"abcd1234你我他";
//预转换，得到所需空间的大小，这次用的函数和上面名字相反
int ansiLen = ::WideCharToMultiByte(CP_ACP, NULL, wszString, wcslen(wszString), NULL, 0, NULL, NULL);
//同上，分配空间要给'\0'留个空间
char* szAnsi = new char[ansiLen + 1];
//转换
//unicode版对应的strlen是wcslen
::WideCharToMultiByte(CP_ACP, NULL, wszString, wcslen(wszString), szAnsi, ansiLen, NULL, NULL);
//最后加上'\0'
szAnsi[ansiLen] = '\0';
//Ansi版的MessageBox API
::MessageBoxA(GetSafeHwnd(), szAnsi, szAnsi, MB_OK);
//接下来写入文本
//写文本文件，ANSI文件没有BOM
CFile cFile;
cFile.Open(_T("1.txt"), CFile::modeWrite | CFile::modeCreate);
//文件开头
cFile.SeekToBegin();
//写入内容
cFile.Write(szAnsi, ansiLen * sizeof(char));
cFile.Flush();
cFile.Close();
delete[] szAnsi;
szAnsi =NULL;

//方法2
//和上面一样有另一种方法
setlocale(LC_CTYPE, "chs");
char szStr[100];
//注意下面是大写，在ansi中，代表后面是unicode字符串
//sprintf
sprintf(szStr, "%S", wszString);
::MessageBoxA(GetSafeHwnd(), szStr, szStr, MB_OK);

// UTF8转UNICODE
void CConvertDlg::OnBnClickedButtonU8ToUnicode()

//UTF8 to Unicode
//由于中文直接复制过来会成乱码，编译器有时会报错，故采用16进制形式
char* szU8 = "abcd1234\xe4\xbd\xa0\xe6\x88\x91\xe4\xbb\x96\x00";
//预转换，得到所需空间的大小
int wcsLen = ::MultiByteToWideChar(CP_UTF8, NULL, szU8, strlen(szU8), NULL, 0);
//分配空间要给'\0'留个空间，MultiByteToWideChar不会给'\0'空间
wchar_t* wszString = new wchar_t[wcsLen + 1];
//转换
::MultiByteToWideChar(CP_UTF8, NULL, szU8, strlen(szU8), wszString, wcsLen);
//最后加上'\0'
wszString[wcsLen] = '\0';
//unicode版的MessageBox API
::MessageBoxW(GetSafeHwnd(), wszString, wszString, MB_OK);
//写文本同ansi to unicode
本回答被提问者采纳