請教一讀檔問題 程式碼如下 :
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, ST
RichTextBox2.Text = RichTextBox2.Text & ST & vbCrLf
Loop
Close #1
欲一行一行讀取一文字格式檔案,讀出的資料卻多了很多亂碼
1. 第一行顯示{\rtf1\ansi\deff0{fonttbl{\f0\fnil\fcharset136
\'b7\'73\'b2\'d3\''a9\'fa\'c5\'e9;}} (原檔案無此亂碼)
2. 之後每一行前面皆多了 \par
如直接以 RichTextBox2.LoadFile CommonDialog1.FileName 則無此問題但無法一次讀取一行資料
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, ST
RichTextBox2.Text = RichTextBox2.Text & ST & vbCrLf
Loop
Close #1
欲一行一行讀取一文字格式檔案,讀出的資料卻多了很多亂碼
1. 第一行顯示{\rtf1\ansi\deff0{fonttbl{\f0\fnil\fcharset136
\'b7\'73\'b2\'d3\''a9\'fa\'c5\'e9;}} (原檔案無此亂碼)
2. 之後每一行前面皆多了 \par
如直接以 RichTextBox2.LoadFile CommonDialog1.FileName 則無此問題但無法一次讀取一行資料
文章標籤
全站熱搜
這是 RTF 格式檔，不是文字檔。 你要當文字檔讀，如同你的第一個方法，你要當 RTF 檔讀，如同你的第二個方法。 你要當 RTF 檔讀，且要一行一行讀，基本功是先去搞清楚 RTF 格式，偷懶功是先用個隱藏的 RichTextBox 物件讀後，再轉給你的 RichTextBox2 讀。