VB.netWriteAllText编码格式

将扫码枪扫描的二维码写入TXT文本文件，然后用RationalDMIS读入为变量后发现开头有乱码，查看编码格式默认是UTF-8，查询MSDN中相关信息发现 WriteAllText 默认是UTF-8格式，用 System.Text.Encoding.ASCII 参数设置为ASCII编码即可正常读入RationalDMIS；

成都创新互联是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，微信小程序，十载建站对房屋鉴定等多个方面，拥有丰富的网站营销经验。

将：
My.Computer.FileSystem.WriteAllText("C:\RationalDMIS\Data\bar.txt", TextBox1.Text, False)
改为：
My.Computer.FileSystem.WriteAllText("C:\RationalDMIS\Data\bar.txt", TextBox1.Text, False, System.Text.Encoding.ASCII)