Question

关于VB6.0创建TXT并写入文字的问题！

如图2段代码，第一段创建的TXT，被其他软件正常读取，而且写出来大小和正常其他软件自动出来的文档大小一致，而第二段代码写出来，却不能被正常读取，而且大小也不一致，明明这两段代码本质上没什么区别，但唯一的区别，就是第二段代码引用了VB的控件内容，比如Text1.text，还用了续行符，然后就不行了。还有一个情况就是运行之后在TEXT里面输入中文会乱码，会不会和这个有关系，请问这到底是怎么回事？

Answer 1

能不能不要截图，直接把代码贴出来？截图的话，后面最关键的部分看不到了。而且截图的话我也无法测试啊，难不成要我一个字一个字的重新码代码？
至于中文乱码问题，VB6是使用unicode编码的，其他软件要想读取VB6生成的含有中文的文本文件，按unicode格式来读取就可正常，否则就需要转换格式。VB6本身可以通过StrConv函数把Unicode文本转换为ansi文本，但建议还是在读取端进行转换为好，VB6的文本处理效率很低。
补充说一句，Chr(34)可以改用单引号，或者两个并列的双引号，这样就不需要弄一大堆的Chr(34)把代码弄得这么长，不但阅读困难，还会造成运行效率降低，出了问题也很难查找错误。比如：
Print #1, "{" & Chr(34) & "from" & Chr(34) & ":" & ..... & "}"
可以改为：
Print #1, "{'from':" & ..... & "}"
或者
Print #1, "{""from"":" & ..... & "}"

追问

我开始的确是发文字的，不过太多了，不然发，我这边再试试

这段就是无法被读取那段

注意中间还有个续行，太长了

我刚才自己试了一下，不加入text1.text这类的，就可以正常读取

加进去就不行了

变量FL里面是视频大小

我刚刚重新一个个弄了一遍，发现就剩下一个问题了，就是写入的中文，再读取的时候会变成乱码

写好的文件用notepad，从ansi转化成utf 8就正常了

可不可以告诉我怎么转成utf 8，一定要再vb里

追答

VB6诞生于上世纪末，那时候utf-8标准尚未出台，所以VB6本身没有直接转换utf-8的方法，必须自己编程解决，代码这里就没法给你了，自己百度即可。

追问

好的谢谢