回 帖 发 新 帖 刷新版面

主题:求解乱码问题(急!急!急!)谢!谢!谢!

在用vs 2003 写代码的时候,将文件里的内容读出来,然后显示在TextBox里,出现乱码,为什么?怎么解决?
谢谢,新手。
弄了一天了都,没弄出来呢,本人太笨,请大侠帮忙。
         Dim fstream As New FileStream("D:\work\Resume.txt", FileMode.Open)
            Dim intFilelength As Integer = fstream.Length
            Dim filebyte(intFilelength) As Byte
            Dim utf8 As System.Text.UTF8Encoding = New System.Text.UTF8Encoding
            strFilemessage = New String(utf8.GetString(filebyte))
             txtResume.Text = strFilemessage这样不行

             Dim fstream As New FileStream("D:\work\Resume.txt", FileMode.Open)
            Dim stream As New StreamReader(fstream)
            Dim stream As New StreamReader(fstream, New System.Text.UTF8Encoding)
            strFilemessage = stream.ReadToEnd()
             txtResume.Text = strFilemessage这样也不行
怎么办?

回复列表 (共3个回复)

沙发


            Server.UrlDecode;
            Server.UrlEncode
来转换

板凳

这个问题我以前也接触过,开始的时候我也找不到问题的原因,后来我进了一个技术交流群,这个群里的人挺多的,在里面可以沟通技术,你可以进去看一下.群号是:六#二#八#七#八#零#四#三。另外,这个群里可以接项目。

3 楼

额....别用UTF8...直接用Default


    Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
        With OpenFileDialog1
            .Filter = "Text files(*.txt)|*.txt|All files(*.*)|*.*"
            .FilterIndex = 1
            .Title = "DEMO"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim fileContents As String
            strfilename = OpenFileDialog1.FileName
            fileContents = My.Computer.FileSystem.ReadAllText(strfilename, System.Text.Encoding.Default)
            txtfile.Text = fileContents
        End If

我来回复

您尚未登录,请登录后再回复。点此登录或注册