重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim sr As New System.IO.StreamReader(Application.StartupPath "\1.txt",System.Text.Encoding.GetEncoding("GB2312")) 中文默认是 GB2312格式的.
目前创新互联已为近千家的企业提供了网站建设、域名、虚拟主机、网站托管、服务器托管、企业网站设计、文昌网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Dim wz As New StreamReader(wjm) 'wz文字 这一句改一下: Dim wz As New StreamReader(wjm,System.Text.Encoding.GetEncoding("gb2312")) 'wz文字
1楼的正解,这是因为你读的那个文本文件的编码不是Unicode码,最简单有效的方法就是用记事本打开你的那个Txt文件,然后选另存为,在编码方式那栏里选择Unicode或者ANSI
然后再用程序读文本内容就不是乱码了