TC官方合作论坛

 找回密码
 立即注册
查看: 293|回复: 2

[已解决] 用TC7.0读取utf-8编码的文本乱码

[复制链接]
发表于 2020-1-16 00:47:45 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
有没有方法解决啊
论坛里搜的那个代码不知道是我不会用还是不好使,希望大佬们帮帮我
回复

使用道具 举报

发表于 2020-1-16 15:17:54 | 显示全部楼层
本帖最后由 zxczxc1968531 于 2020-1-17 13:45 编辑

功能 按钮0_点击()//文档格式保存为UTF-8
    调试输出("原UTF-8文本:" &文件读取内容(系统获取进程路径() & "新建文本文档.txt"))
    调试输出("转换后文本:"&读文本(系统获取进程路径() & "新建文本文档.txt"))
结束
功能 读文本(文件路径)//UTF-8格式
    变量 Stream对象, 文本
    Stream对象 = com("ADODB.Stream")//创建对象
    Stream对象.Type = 2    //2=文本
    Stream对象.charset("UTF-8")
    Stream对象.Open  //打开文件流
    Stream对象.LoadFromFile(文件路径)//读入文件
    文本 = Stream对象.readtext//读取文本,不指定长度为读取所有内容
    Stream对象.Close//关闭对象
    返回 文本
结束

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2020-1-22 22:08:27 | 显示全部楼层
zxczxc1968531 发表于 2020-1-16 15:17
功能 按钮0_点击()//文档格式保存为UTF-8
    调试输出("原UTF-8文本:" &文件读取内容(系统获取进程路径()  ...

十分感谢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2020-2-29 08:56 , Processed in 0.038864 second(s), 25 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表