我先打开一个网页,然后将网页转为源代码。但是却打不开
( 我用RichTextbox显示文本)
Dim inChrCnt As Integer 'Number of characters
Dim strbuffer As String 'String buffer
Dim strMyString As String 'String to truncateOn 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 truncateOn 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
----------------
[email protected]