vb.net保存乱码 vbs出来的乱码了

vb.net 用savefiledialog保存的文件是乱码

没错，RTBvb.net保存乱码的savefile保存下来的是rtf格式文件，vb.net保存乱码你用word或写字板打开就不是乱码了，记事本不行。

用savedfiledialog的filter控制的只是显示哪些类型的文件，而不能控制实际写入的是什么格式。你让vb.net保存乱码他显示的是txt，但其实写入的还是rtf。

要写入纯文本，用savefile方法的另一个重载vb.net保存乱码：

richTextBox1.SaveFile(tt, RichTextBoxStreamType.PlainText)

相关问答

Q1: VB.net编程中richtextbox导致文件乱码怎么办？

RichTextBox有两种存储模式：rtf格式存储和非rtf（即文本存储，普通的Text文本存储格式）。因此务必注意：1）如果你的文本是带有格式化的（比如设置过字体颜色等），必须使用rtf存储，默认直接使用这个方法：RichTextBox1.SaveFile("hello.rtf")

2）如果你的文本是纯文本（txt格式的），那么你要这样存储：RichTextBox1.SaveFile("c:\hooklog.txt", RichTextBoxStreamType.PlainText)

Q2: vb.net 通过以下程序将字符串写到内存中，再输出时，中文乱码，怎么回事？

编码的时候用的Unicode，那你读出来的时候，是不是也用的Unicode去解码？

Q3: 有关vb.net操作文档出现乱码问题

在使用streamReader和streamWriter的时候使用编码参数。

比如：dim sw As New StreamRriter("H:\编程资料\1.txt"，System.Text.Encoding.Default)

dim sr As New StreamWeader("H:\编程资料\2.txt"，true,System.Text.Encoding.Default)

Q4: VB.net编程进行数据导入后出现乱码问题

'access 数据表表名：chexing

'结构id、chexing、chang、kuan、gao

Dim id() As Long

Dim chang() As Long

Dim kuan() As Long

Dim gao() As Long

Private Sub Combo1_Click()

Text1.Text = chang(Combo1.ListIndex)

Text2.Text = kuan(Combo1.ListIndex)

Text3.Text = gao(Combo1.ListIndex)

End Sub

Private Sub Form_Load()

ReDim id(0)

ReDim chang(0)

ReDim kuan(0)

ReDim gao(0)

Combo1.Clear

db = "d:\chexing.mdb"

connstr = "DBQ=" + db + ";DefaultDir=;DRIVER="

Set conn = CreateObject("ADODB.Connection")

conn.Open connstr

websql = "select * from chexing order by id"

Set rs = CreateObject("adodb.recordset")

rs.Open websql, conn, 1, 1

If rs.EOF And rs.BOF Then

Else

Do While Not rs.EOF

Combo1.AddItem rs("chexing")

id(UBound(id)) = rs("id")

ReDim Preserve id(UBound(id) + 1)

chang(UBound(chang)) = rs("chang")

ReDim Preserve chang(UBound(chang) + 1)

kuan(UBound(kuan)) = rs("kuan")

ReDim Preserve kuan(UBound(kuan) + 1)

gao(UBound(gao)) = rs("gao")

ReDim Preserve gao(UBound(gao) + 1)

rs.MoveNext

Loop

End If

rs.Close

Set rs = Nothing

Set conn = Nothing

Combo1.ListIndex = 0

End Sub

Q5: vb.net保存成TXT文件后再从RICHTEXTBOX里打开为什么是乱码?

你保存跟读取的格式不一致：这样就可以

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

OpenFileDialog1.FileName = ""

OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName "" Then

RichTextBox1.Text = IO.File.ReadAllText(OpenFileDialog1.FileName)

End If

End Sub

关于vb.net保存乱码和vbs出来的乱码了的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。