on the wrong planet:vb编程中为什么使用Richtextbox的savefile方法保存的txt文件无法正常显示

来源：百度文库编辑：高校问答时间：2024/04/29 13:15:48

用vb6.0编程，我使用了Richtextbox的savefile方法保存为txt文件，但直接打开该TXT文件显示的全方英文字母无法正常显示“{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang2052\f0\fs18\'b4\'f2\'d4\'ec\'c0\'e0\'d0\'cd\'a3\'ba\'bd\'a3”
象这样的，只有使用Richtextbox控件打开才是正常的，请问该如果设置才能使用TXT文件能直接正常显示汉字，谢谢！

'这样试试
Private Sub mnuFileSave_Click()
Dim sFile As String

If ActiveForm Is Nothing Then Exit Sub

With dlgCommonDialog
On Error GoTo Err
.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf"
.ShowSave
FileType = .FileTitle
FiType = LCase(Right(FileType, 3))
FileName = .FileName
Select Case FiType
Case "txt"
ActiveForm.rtfText.SaveFile FileName, rtfText
Case "rtf"
ActiveForm.rtfText.SaveFile FileName, rtfRTF
End Select
Err:
Exit Sub
End With
ActiveForm.Caption = sFile
ActiveForm.rtfText.SaveFile sFile

End Sub

使用word打开就好了，虽然扩展名是txt，但实际上还是rtf的，所以要用word打开。

这是RTF格式
open 文件名 for output as #1
print #1,Richtext1.text
close #1

在SaveFile方法中的二个参数设置为1就能以纯文本的格式保存。

为什么在VB编程中不要使用行号. VB编程中TreeVieW怎么使用？ VB编程中TreeVieW怎么使用？ VB编程中TreeVieW怎么使用？ VB中如何通过编程使用扫描仪 vb编程中为什么使用Richtextbox的savefile方法保存的txt文件无法正常显示 VB中DAO编程步骤在VB编程中使用mciSendString函数出现的问题，请高手指点一二 vb初级编程关于inputbox的使用如何使用VB编程，在一组excel数字中，过滤出不在另一组excel数字中的数字？