说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

将*.html文件转为*.txt文件之后为什么打不开文本啊!! 虚心请教!!!

编辑:说三道四文库 发布时间:2018-07-20 05:18
HTML文档下载 WORD文档下载 PDF文档下载
我先打开一个网页,然后将网页转为源代码。但是却打不开
( 我用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
   

这么麻烦干什么?看你的代码,就是将文件改改扩展名而已。
类似这样 :
name "c:\123\123.html" as "c:\123\123.txt"
或者用filecopy "c:\123\123.html" "c:\123\123.txt"
      kill "c:\123\123.html"

或者,你只是想显示源文件的话,直接把网页文件已文本方式打开就行了
你好象把存储路径的变量内容改了半天,原文件却没动。
应该将原文件读出,写入到一个新文件(.txt)中。
或用shell执行ren改文件名。
苹果给楼主拍马屁来啦!多给小的点分哦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘