RichTextBox读法文TXT出来乱码

[Dickson]

1.txt里的文本是如下内容，法文字符：

K È Assemblee generale Diéé. ééééééié

我用以下代码读入RICH TEXT BOX：

1. RichTxt.LoadFile "c:\1.txt"

复制代码
读进来后竟然成：

K 脠 Assemblee generale Di茅茅. 茅茅茅茅茅茅i茅

为什么呢？如何解决？

[bcrun]

最好使用unicode版的.VB自带的那个RICH TEXT BOX只是ANSI版的

[白云飘飘飘]

txt里的文件编码是法文的编码,在中文系统下用loadfile时会把它当做中文编码来对待，所以就成乱码了。

[Dickson]

[Quote=引用 2 楼 lhcwjy 的回复:]

txt里的文件编码是法文的编码,在中文系统下用loadfile时会把它当做中文编码来对待，所以就成乱码了。
[/Quote]

如果在法文系统下就是正常的，是吗

[白云飘飘飘]

像一楼说的，VB自带的控件都是ANSI的，在什么系统下就只能显示什么字符。可以用随word安装的form 2.0控件库里面的textbox控件。先把文件内容读到一个字节数组里面，然后用multibytetowidechar API函数指带法文的代码页转换成Unicode字符，就可以用text属性让文本框显示了

[6742]

VB自己带的那个RICHTEXTBOX，在VISTA下边，除了中文、英文可以之外，其他的都会出错。就是读汉语拼音也会出错。

[6742]

[Quote=引用 1 楼 bcrun 的回复:]
最好使用unicode版的.VB自带的那个RICH TEXT BOX只是ANSI版的
[/Quote]

最好使用unicode版的RICHTEXTBOX，这个有下载么？我想要一个：[e-mail]

谢谢

[chinaboyzyq]

用VB.net写吧它的RichTextBox可以很好的支持Unicode

Imports System.IO
Public Class Form1
    Public srd As StreamReader
    Public istr As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        srd = My.Computer.FileSystem.OpenTextFileReader("c:\1.txt", System.Text.Encoding.Default)
        RichTextBox1.Text = srd.ReadToEnd.ToString

    End Sub
End Class

[king06]

    Dim buff() As Byte
    ReDim buff(FileLen("C:\新建 文本文档.txt") - 1)
    Open "C:\新建 文本文档.txt" For Binary As #1
    Get #1, , buff
    RichTextBox1.Text = buff()
    Close #1

前面多了个?号

[chinaboyzyq]

[Quote=引用 8 楼 king06 的回复:]
前面多了个?号
[/Quote]
vb6的RichTextBox1根本不认È，复制粘贴(c+c、c+v)一下就知道了。

[东方之珠]

È，这个是顶贴的意思！

[用户 昵称]

È，这个字符俺前几天接触过。

[贝隆]

[Quote=引用 8 楼 king06 的回复:]
VB code
Dim buff() As Byte
ReDim buff(FileLen("C:\新建 文本文档.txt") - 1)
Open "C:\新建 文本文档.txt" For Binary As #1
Get #1, , buff
RichTextBox1.Text = buff()
Close #1

前面多了个?号
[/Quote]

学习

[bcrun]

[Quote=引用 6 楼 6742 的回复:]
引用 1 楼 bcrun 的回复:
最好使用unicode版的.VB自带的那个RICH TEXT BOX只是ANSI版的


最好使用unicode版的RICHTEXTBOX，这个有下载么？我想要一个：[e-mail]

谢谢
[/Quote]

不是很清楚哦,我正打算做,你预订吧.目前的想法是在vbaccelerator.com上那个的基础上改改快些,大家有啥更好的建议吗?

[dingyanwei]

为什么我的richtextbox支持这些字符呢？

我的就是vb6+xpsp3

[SYSSZ]

我的richtextbox也支持这些字符

[linc_M]

他们都说了,,,我来帮UP

[bcrun]

[Quote=引用 14 楼 dingyanwei 的回复:]
为什么我的richtextbox支持这些字符呢？

我的就是vb6+xpsp3
[/Quote]

你们说的能支持,大概只是说能在浏览器中这个帖子里,把楼主发的那串字符复制粘贴到你VB6程序中的richtextbox控件里吧:) 那和楼主要解决的问题还是有区别的