标题：请教，用writeAlltext生成的文本文件如何用代码转换成ASCII文本文件？

如题。writeAlltext生成的文本文件是Unicode或是UTF-8的，因条码的问题，必须转换成ASCII形式才行。需要在狐表中直接生成的文本文件是ASCII，请教高手如何写代码？谢谢！

此主题相关图片如下：文本文件格式.gif

狐表中产生的文本文件为UTF-8类型，请老大指点，如何实现产生的文本文件为ANSI类型的，这个很重要。非常感谢支持与帮助！！！

Dim s As String = Filesys.ReadAllText("1.txt", System.Text.Encoding.UTF8)
Filesys.WriteAllText("c:\2.txt", s, False, System.Text.Encoding.ASCII)

OK！谢老大！

刚用过Filesys.WriteAllText("c:\2.txt", s, False, System.Text.Encoding.ASCII)，存在有汉字的变成"?",请老大指点应如何处理？

ascii编码就是这样

用记事本转换成ANSI不会呀。

有无其它办法解决？

Dim s As String = Filesys.ReadAllText("1.txt", System.Text.Encoding.UTF8)
Filesys.WriteAllText("c:\2.txt", s, False, System.Text.Encoding.Default)