高手救命：如何生成UTF-8文件，其中文件内容（中文等）也是UTF-8编码的 --索要向相关代码

[koko1998]

如题：
通过文件党首标志 EF BB BF可以生成UTF-8文件
可是如何将现有的Unicode或是Ansi的字符串转化成utf-8的形式

即：如何做成有汉字等不乱码的utf-8文件

谢谢
my email:[e-mail]

[snaill]

EF BB BF只是UTF-8的表示方式，并不代表加上文档就会转化

一般来说，从ascii到UNICODE需要使用编码表，window通过codepage来映射这种关系
你可以通过WideCharToMultiByte和MultiByteToWideChar实现转化的操作，也可以通过
Unicode.org上的对照表自己做codepage

UTF-8是UNICODE的压缩方式，其实对英文比较经济，只需要一个字节的空间，而对于中文则
需要3个字节，比UNICODE还费。转化的方式同样可以使用上面的2个函数，也可以载网上查相应的代码，不是很复杂。

[Ah]

LPWSTR CStrHandler::TransA2W(LPCSTR pszSrc,UINT uCodePage)
{
LPWSTR lpwStr = NULL;
try
{
int iLen = strlen(pszSrc);
int iSize = sizeof(WCHAR) * iLen + 1;

lpwStr = new WCHAR[iSize];
iSize = ::MultiByteToWideChar(uCodePage, 0, pszSrc,
iLen + 1, lpwStr, iSize);
}
catch(...)
{
if(lpwStr != NULL)
delete lpwStr;
lpwStr = NULL;
}
return lpwStr;
}

LPTSTR CStrHandler::TransW2A(LPWSTR src,UINT uCodePage)
{
int nSrcLen = src != NULL ? wcslen(src) * 2 : 0;

if (nSrcLen == 0) return NULL;

LPTSTR dest = new CHAR[nSrcLen + 1];

int result = ::WideCharToMultiByte(uCodePage, 0, src, -1,
dest, nSrcLen + 1, NULL, NULL);
if (result > 0)
dest[result-1] = '\0';

return dest;
}


BY_HANDLE_FILE_INFORMATION fi;
::GetFileInformationByHandle(hFile,&fi);
pBuf = new char[fi.nFileSizeLow + 1];

::SetFilePointer(hFile,0,0,FILE_BEGIN);
::ReadFile(hFile,pBuf,fi.nFileSizeLow,&dwSize,NULL);
pBuf[dwSize] = '\0';

LPWSTR pData = TransA2W(pBuf, CP_ACP);
dwSize = wcslen(pData) * sizeof(pData[0]);
delete pBuf;
pBuf = TransW2A(pData, CP_UTF8);
dwSize = strlen(pBuf);
::SetFilePointer(hFile, 0, 0, FILE_BEGIN);
::WriteFile(hFile, pBuf, dwSize, &dwSize, NULL);