求助！复制 取运行目录 () TXT的文本出来，粘贴后是乱码

llvk

求助！写个小工具，按钮4点击后，置剪辑板文本的TXT的文本，粘贴是乱码。

  

子程序 _按钮4_被单击
复制文本 ()

子程序名	返回值类型	公开	备 注
复制文本

变量名	类 型	静态	数组	备 注
文件名	文本型
文件号	整数型
编码方式	文本型

文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名
文件号 ＝ 打开文件 (文件名, #读入, )
如果 (文件号 ＝ 0)
信息框 (“打开文件失败！”, 0, , )
返回 ()



编码方式 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
置剪辑板文本 (编码方式)
结束 ()

子程序 _按钮4_被单击<br /> <br /> <br /> <br /> 复制文本 ()<br /> <br /> <br /> <br /> .子程序 复制文本<br /> <br /> .局部变量 文件名, 文本型<br /> <br /> .局部变量 文件号, 整数型<br /> <br /> .局部变量 编码方式, 文本型<br /> <br /> 文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名<br /> <br /> 文件号 ＝ 打开文件 (文件名, #读入, )<br /> <br /> .如果 (文件号 ＝ 0)<br /> <br />     信息框 (“打开文件失败！”, 0, , )<br /> <br />     返回 ()<br /> <br /> <br /> <br /> .否则<br /> <br />     编码方式 ＝ 读入文本 (文件号, )<br /> <br />     关闭文件 (文件号)<br /> <br />     置剪辑板文本 (编码方式)<br /> <br />     结束 ()<br /> <br /> <br /> <br /> .如果结束

ht8531262

这个我知道，你把你的文本打开，然后点击-文件->另存为->保存按钮旁边有个编码可选，你选ANSI，然后点击保存就可以了

lei27028

编码转换一下

LEOONL

编码方式 ＝ 编码_Utf8到Ansi（读入字节集 (文件号, 取文件长度 (文件号))）

chenboss

  

子程序名	返回值类型	公开	备 注
复制文本

变量名	类 型	静态	数组	备 注
文件名	文本型
文件号	整数型
编码方式	文本型

文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名
文件号 ＝ 打开文件 (文件名, #读入, )
如果 (文件号 ＝ 0)
信息框 (“打开文件失败！”, 0, , )
返回 ()



编码方式 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
置剪辑板文本 (到文本 (文本编码转换 (编码方式, , )))
结束 ()

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .子程序 复制文本<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 编码方式, 文本型<br /> <br /> 文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名<br /> <br /> 文件号 ＝ 打开文件 (文件名, #读入, )<br /> <br /> .如果 (文件号 ＝ 0)<br /> <br />     信息框 (“打开文件失败！”, 0, , )<br /> <br />     返回 ()<br /> <br /> <br /> <br /> .否则<br /> <br />     编码方式 ＝ 读入文本 (文件号, )<br /> <br />     关闭文件 (文件号)<br /> <br />     置剪辑板文本 (到文本 (文本编码转换 (编码方式, , )))<br /> <br />     结束 ()<br /> <br /> <br /> <br /> .如果结束

llvk

chenboss 发表于 2024-11-10 19:23
[e=0].版本 2
.支持库 e2ee

文本编码转换  哥这个命令找不到

花间一壶酒

llvk 发表于 2024-11-10 19:42
文本编码转换  哥这个命令找不到

用精易模块的命令 编码_Utf8到Ansi

补充内容 (2024-11-10 19:57):
说明你的文本是utf8编码的  你可以在记事本的右下角看到编码

chenboss

llvk 发表于 2024-11-10 19:42
文本编码转换  哥这个命令找不到

安装e2ee支持库，搜下

lisher

你要不懂编码转换问题，试试这样简单一些

  

子程序名	返回值类型	公开	备 注
复制文本

变量名	类 型	静态	数组	备 注
文件名	文本型
文件内容	字节集
编码方式	文本型

文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名
文件内容 ＝ 读入文件 (文件名)
如果 (文件内容 ＝ {  })
信息框 (“打开文件失败！”, 0, , )
返回 ()


置剪辑板文本 (到文本 (文件内容))
结束 ()

.版本 2<br /> <br /> .子程序 复制文本<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件内容, 字节集<br /> .局部变量 编码方式, 文本型<br /> <br /> 文件名 ＝ 取运行目录 () ＋ “\doubaoAI.txt”  ' 修改“文件名.txt”为您实际的文件名<br /> <br /> 文件内容 ＝ 读入文件 (文件名)<br /> <br /> .如果 (文件内容 ＝ {  })<br />     信息框 (“打开文件失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> <br />     置剪辑板文本 (到文本 (文件内容))<br />     结束 ()