写到文件或复制文件怎么增加emoji表情

星坠

如题，我需要将emoji加入到文件名中，例如：复制D盘的114514.txt，到C盘的

qcby

  

调试输出 (文件_移动W (编码_Ansi到Unicode (取特定目录 (3) ＋ “1.txt”, ), 删除Unicode结尾空白字节 (编码_Ansi到Unicode (取特定目录 (3), ), ) ＋ { 62, 216, 33, 221, 62, 216, 33, 221 } ＋ 编码_Ansi到Unicode (“.txt”, )))

调试输出 (文件_移动W (编码_Ansi到Unicode (取特定目录 (3) ＋ “1.txt”, ), 删除Unicode结尾空白字节 (编码_Ansi到Unicode (取特定目录 (3), ), ) ＋ { 62, 216, 33, 221, 62, 216, 33, 221 } ＋ 编码_Ansi到Unicode (“.txt”, )))

这样，把中间的   { 62, 216, 33, 221, 62, 216, 33, 221 }  替换成你的表情 字节集就行了

补充内容 (2023-9-9 11:01):


补充内容 (2023-9-9 11:04):
字节集 相加的时候 记得 删除Unicode结尾空白字节 (） 不然加不上。

qcby

文件_移动w（）

补充内容 (2023-9-9 10:50):
https://bbs.125.la/forum.php?mod ... 68&pid=26554507

星坠

qcby 发表于 2023-9-9 10:48
文件_移动w（）

支不支持给个示例

qcby

星坠 发表于 2023-9-9 10:50
支不支持给个示例

等一下我看看

大司命

  

变量名	类 型	静态	数组	备 注
szPath	字节集
aryPath	字节集		0
dwCount	整数型
i	整数型

szPath ＝ 目录_取当前目录W ()
dwCount ＝ 文件_枚举W (szPath, 编码_Ansi到Unicode (“*.txt”, ), aryPath, 假, 假, 假)
szPath ＝ 删除Unicode结尾空白字节 (szPath, ) ＋ { 92, 0 }
计次循环首 (dwCount, i)
文件_移动W (szPath ＋ aryPath [ i ], szPath  ＋ { 61, 216, 75, 220 } ＋ 编码_Ansi到Unicode (.txt”, ))
计次循环尾 ()

.版本 2<br /> .局部变量 szPath, 字节集<br /> .局部变量 aryPath, 字节集, , "0"<br /> .局部变量 dwCount, 整数型<br /> .局部变量 i, 整数型<br /> szPath ＝ 目录_取当前目录W ()<br /> dwCount ＝ 文件_枚举W (szPath, 编码_Ansi到Unicode (“*.txt”, ), aryPath, 假, 假, 假)<br /> szPath ＝ 删除Unicode结尾空白字节 (szPath, ) ＋ { 92, 0 }<br /> .计次循环首 (dwCount, i)<br />     文件_移动W (szPath ＋ aryPath [ i ], szPath  ＋ { 61, 216, 75, 220 } ＋ 编码_Ansi到Unicode (.txt”, ))<br /> .计次循环尾 ()