1,451
社区成员
发帖
与我相关
我的任务
分享讀入中文txt文件出錯問題...
讀入中文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)也不行
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)也不行
...全文
请发表友善的回复…
发表回复
dgfhz 2003-10-24
- 打赏
- 举报
5653325(等待开刃的刀)和 subzero(赘姆烂壳)的方法都可以,謝謝了!
踏平扶桑 2003-10-23
- 打赏
- 举报
因为中文编码不同，vb中一个汉字默认为1个字节，而实际是2个字节
如果你用richtext的话，可以这样
If Right(filename, 3) = "rtf" Then
RichTextBox1.LoadFile filename, 0'读取rtf格式
Else
RichTextBox1.LoadFile filename, 1'其它的按txt格式读取
End If
如果你用richtext的话，可以这样
If Right(filename, 3) = "rtf" Then
RichTextBox1.LoadFile filename, 0'读取rtf格式
Else
RichTextBox1.LoadFile filename, 1'其它的按txt格式读取
End If
xzp1030 2003-10-23
- 打赏
- 举报
关注，我也遇到过。
dgfhz 2003-10-23
- 打赏
- 举报
就是最頂樓那段程序,試圖打開一個txt文件就提示:"輸入已超過文件尾"
yanli 2003-10-21
- 打赏
- 举报
出什么错，请贴出来
dgfhz 2003-10-21
- 打赏
- 举报
謝謝你,大家都說vb容易,我看也不是那麼回事阿
我還是不知道我的何以會出錯!
我還是不知道我的何以會出錯!
subzero 2003-10-20
- 打赏
- 举报
dim s as string,t as string
do until eof(1)
line input #1,,t
s=s & t & vbcrlf
loop
richtextbox1.text=s
do until eof(1)
line input #1,,t
s=s & t & vbcrlf
loop
richtextbox1.text=s
