讀入中文txt文件出錯問題...
dgfhz 2003-10-20 05:38:04 讀入中文txt文件出錯問題...
Private Sub Command1_Click()
Dim x As Integer
'On Error GoTo handle
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
'CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
RichTextBox1.Text = Input(LOF(1), #1)
Close #1
End Sub
換成 RichTextBox1.Text =StrConv( Input(LOF(1), #1),vbUnicode)也不行