文件读取txt部分乱码（怀疑是BUG）

你的狗熊

RT：有两个文档：文档A得文档B，文档格式是txt
    文档A内容如下：
文档B为空

代码操作是把文档A的内容追加到文档B

下面是软件读取文档A的内容：

此时除了数字全是乱码
执行完成后文档B的内容如下：


结论：目前文档结构乱码情况下，等号前面有4个汉字的话，等号和等号前面一个汉字就会乱码，而其它则没有问题！
代码已经测试所有读取和写入方式！

情况不止这么简单，上面大括号内带数字和部分特定的汉字不管多少字符都会是乱码待解决！代码如下：

1. 变量 主积分路径,从积分路径
   
2. 变量 追加内容
   
3. 变量 积分路径="/Mir200/Envir/QuestDiary/充值积分/消费积分Save.txt"
   
4. 
   
5. 
   
6. 
   
7. 功能 按钮积分_点击()
   
8.     //这里添加你要执行的代码
   
9.     如果(下拉框获取文本("下拉框积分主")==下拉框获取文本("下拉框积分从"))
   
10.         消息框("主/从路径不能相同!!!!请慎重选择","神佑")
    
11.     否则
    
12.         主积分路径=下拉框获取文本("下拉框积分主") & 积分路径
    
13.         从积分路径=下拉框获取文本("下拉框积分从") & 积分路径
    
14.         追加内容="\r" & 文件读取内容(从积分路径)
    
15.         messagebox(追加内容)
    
16.         i=文件追加文本(主积分路径,追加内容)
    
17.         如果(i==1)
    
18.             消息框("积分信息追加成功!!!!!","提示")
    
19.         否则
    
20.             消息框("积分信息追加失败,请确认积分文件是否为打开状态!!!","提示")
    
21.         结束
    
22.     结束
    
23. 结束

复制代码

cjxdn

帖你的代码  

你的狗熊

cjxdn 发表于 2017-10-30 02:03
帖你的代码

代码已上，大神请看

OOOO

把txt转换为utf-8无bom头的在写文件试试

你的狗熊

OOOO 发表于 2017-10-30 11:13
把txt转换为utf-8无bom头的在写文件试试

感谢回答！
utf-8两种格式都试了  效果一样！

OOOO

你的狗熊 发表于 2017-10-30 11:44
感谢回答！
utf-8两种格式都试了  效果一样！

无bom头

你的狗熊

OOOO 发表于 2017-10-30 12:30
无bom头

对呀  试了
谢谢

OOOO

你的狗熊 发表于 2017-10-30 12:39
对呀  试了
谢谢

文本格式什么都没动,没有乱码,把A.txt的追加到了B.txt

你的狗熊

OOOO 发表于 2017-10-30 12:50
文本格式什么都没动,没有乱码,把A.txt的追加到了B.txt

文本格式用下面这些试试呢

[你好]
世界=你好
[你好]
世界世界=你好

cjxdn

1. 变量 追加内容="\r" & 文件读取内容("C:/Users/Admini/Desktop/测试1.txt")
   
2.     调试输出(追加内容)
   
3.     变量 i=文件追加文本("C:/Users/Admini/Desktop/测试2.txt",追加内容)
   
4.     调试输出(i)
   
5.     如果(i==1)
   
6.         调试输出("积分信息追加成功!!!!!")
   
7.     否则
   
8.         调试输出("积分信息追加失败,请确认积分文件是否为打开状态!!!")
   
9.     结束

复制代码

[你好]
世界=你好
[你好]
世界世界=你好
测试正常