求救：RichtextBox控件的全角、半角问题？

wnfj 2005-11-11 01:09:25

RichtextBox控件输入全角的双引号，保存到文件，再从文件中loadfile后，变成半角的双引号，为什么？如何解决？？

...全文

349 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2005-11-11

打赏
举报

如果你要使用RTF格式的话，我建议你找一些第3方控件来代替RICHTEXTBOX

wnfj 2005-11-11

打赏
举报

那就不能用loadfile来加载文件了？无药可救了吗？伤心。。。。。

rainstormmaster 2005-11-11

打赏
举报

这个bug似乎word也存在

wnfj 2005-11-11

打赏
举报

那高版本的richtextbox可以解决这个问题吗？我用的是3.0

rainstormmaster 2005-11-11

打赏
举报

这个是richtextbox的bug，想解决需要自己解析RTF

射天狼 2005-11-11

打赏
举报

'自己写打开与保存，不要用控件自带的方法
'更多的技巧可以去我的网站下载源码：

http://j2soft.008.net/

'打开
Private Sub Command1_Click()
Open "D:\aa.txt" For Input As #1
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
End Sub

'保存
Private Sub Command2_Click()
Open "D:\aa.txt" For Output As #1
Print #1, RichTextBox1.Text
Close 1
End Sub

bbhere 2005-11-11

打赏
举报

关注

wnfj 2005-11-11

打赏
举报

别的符号如。、？等都正常

wnfj 2005-11-11

打赏
举报

我需要保存为 rtfRTF格式的，不能是rtfText的

wnfj 2005-11-11

打赏
举报

为什么在vb中用loadfile加载rtf文件，全角的双引号不能正确显示呢？

northwolves 2005-11-11

打赏
举报

MSDN:

-----------------------------------------------------------

SaveFile 方法

把 RichTextBox 控件的内容存入文件。不支持命名的参数。

语法

object.SaveFile(pathname, filetype)

SaveFile 方法的语法包含下面部分：

部分描述
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。
pathname 必需的。字符串表达式，它定义保存控件内容文件的路径和文件名。
filetype 可选的。整数或常数，按照“设置值”中的描述确定加载文件的类型。

设置值

filetype 的设置值是：

常数值描述
rtfRTF 0 （缺省）RTF。RichTextBox 控件把它的内容存为一个 .rtf 文件。
rtfText 1 文本。RichTextBox 控件把它的内容存为一个文本文件。

bbhere 2005-11-11

打赏
举报

帮顶！！

northwolves 2005-11-11

打赏
举报

Private Sub Command1_Click()
RichTextBox1.Text = ""
End Sub

Private Sub Command2_Click()
RichTextBox1.FileName = App.Path & "\xx.rtf"
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "“为人民服务”"
RichTextBox1.SaveFile App.Path & "\xx.rtf", rtfText'不会变成半角
'RichTextBox1.SaveFile App.Path & "\xx.rtf", rtfRTF'将半角
End Sub

wnfj 2005-11-11