VB基础类
将*.html文件转为*.txt文件之后为什么打不开文本啊！！ 虚心请教！！！
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我先打开一个网页，然后将网页转为源代码。但是却打不开
（ 我用RichTextbox显示文本）
Dim inChrCnt As Integer 'Number of characters
Dim strbuffer As String 'String buffer
Dim strMyString As String 'String to truncate
On Error GoTo default
inChrCnt = Len(path)
strbuffer = Left(path, inChrCnt - 5)
strMyString = strbuffer + ".txt" （这三段代码将*.html 文件转为*.txt文件
问题在这：打不开
Open strMyString For Input As #1
While Not EOF(1)
Line Input #1, lstr
RichTextBox1.Text = RichTextBox1.Text + lstr + Chr(13) + Chr(10)
Wend
Close #1
（ 我用RichTextbox显示文本）
Dim inChrCnt As Integer 'Number of characters
Dim strbuffer As String 'String buffer
Dim strMyString As String 'String to truncate
On Error GoTo default
inChrCnt = Len(path)
strbuffer = Left(path, inChrCnt - 5)
strMyString = strbuffer + ".txt" （这三段代码将*.html 文件转为*.txt文件
问题在这：打不开
Open strMyString For Input As #1
While Not EOF(1)
Line Input #1, lstr
RichTextBox1.Text = RichTextBox1.Text + lstr + Chr(13) + Chr(10)
Wend
Close #1
...全文
