精易论坛

标题: 写到文件W直接写出Unicode编码 [打印本页]

---

作者: emodiyu    时间: 2024-2-18 14:47
标题: 写到文件W直接写出Unicode编码
写到文件W能直接写出Unicode编码吗，而不是需要再转换为UTF8编码。直接用以下函数写出是乱码的

  

子程序名	返回值类型	公开	备 注
写到文件W	逻辑型
参数名	类 型	参考	可空	数组	备 注
参数_文件名	字节集
参数_数据	字节集

变量名	类 型	静态	数组	备 注
hFile	整数型
p	整数型
len	整数型
relLen	整数型
iLen	整数型

hFile ＝ CreateFile (参数_文件名, #GENERIC_WRITE, 0, 0, #CREATE_ALWAYS, #FILE_ATTRIBUTE_NORMAL, 0)
如果真 (hFile ＝ 0)
返回 (假)
p ＝ _取指针字节集 (参数_数据)
len ＝ 取字节集长度 (参数_数据)
判断循环首 (iLen ＜ len)
如果真 (WriteFile (hFile, p ＋ iLen, len － iLen, relLen, 0) ＝ 0)
CloseHandle (hFile)
返回 (假)
iLen ＝ iLen ＋ relLen
判断循环尾 ()
CloseHandle (hFile)
返回 (真)

.版本 2<br /> <br /> .子程序 写到文件W, 逻辑型, 公开<br /> .参数 参数_文件名, 字节集<br /> .参数 参数_数据, 字节集<br /> .局部变量 hFile, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 relLen, 整数型<br /> .局部变量 iLen, 整数型<br /> <br /> hFile ＝ CreateFile (参数_文件名, #GENERIC_WRITE, 0, 0, #CREATE_ALWAYS, #FILE_ATTRIBUTE_NORMAL, 0)<br /> .如果真 (hFile ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> p ＝ _取指针字节集 (参数_数据)<br /> len ＝ 取字节集长度 (参数_数据)<br /> .判断循环首 (iLen ＜ len)<br />     .如果真 (WriteFile (hFile, p ＋ iLen, len － iLen, relLen, 0) ＝ 0)<br />         CloseHandle (hFile)<br />         返回 (假)<br />     .如果真结束<br />     iLen ＝ iLen ＋ relLen<br /> .判断循环尾 ()<br /> CloseHandle (hFile)<br /> 返回 (真)

---

作者: qcby    时间: 2024-2-18 14:57
写到文件W（参数_文件名，参数_数据）  
参数_文件名（假设C:\易语言.txt 就  编码_ansi到unicode（“C:\易语言.tx”））
参数_数据 编码_ansi到unicode（“嘤嘤嘤嘤嘤”）

---

作者: emodiyu    时间: 2024-2-19 18:19

qcby 发表于 2024-2-18 14:57
写到文件W（参数_文件名，参数_数据）  
参数_文件名（假设C:\易语言.txt 就  编码_ansi到unicode（“C:\易 ...

感谢老乡，这样写出是乱码的

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4