UC知道VB记事本文件打开问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 13:14:04
以下是我打开菜单项的打开代码：
Private Sub mnufileopen_Click()
CommonDialog1.Action = 1
On Error GoTo error
CommonDialog1.Filter = "所有文件(*.*)|*.*|WORD文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|工程文件(*.vbp)|*.vbp|窗体文件(*.frm)|*.frm|"
CommonDialog1.FilterIndex = 3
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
RichTextBox1.Text = RichTextBox1.Text + inputdata + Chr(13) + Chr(10)
Loop
Close #1
error:
End Sub
是这样的，这个代码只能打开文本文件，但不能打开word文档，是怎样的原因呢？
Private Sub mnufileopen_Click()
CommonDialog1.Action = 1
On Error GoTo error
CommonDialog1.Filter = "所有文件(*.*)|*.*|WORD文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|工程文件(*.vbp)|*.vbp|窗体文件(*.frm)|*.frm|"
CommonDialog1.FilterIndex = 3
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
RichTextBox1.Text = RichTextBox1.Text + inputdata + Chr(13) + Chr(10)
Loop
Close #1
error:
End Sub
是这样的，这个代码只能打开文本文件，但不能打开word文档，是怎样的原因呢？
word文档是和纯文本文档不同的，它为了显示的文字有多样性（颜色，字体下划线等等），而加入了很多只有专用读取程序（微软word）才能识别的代码,也就是说，word文档基本上算是二进制文件，而不是文本文件，所以用你的程序读出来是乱码。要读取word文档，需要引用控件
因为按照你这样的打开文件方式,只会将文件内容原封不动地显示出来,就算你打开exe文件,也不会运行.