html2txt HTML网页转TXT文件的VBS脚本

html2txt HTML网页转TXT文件的VBS脚本

作者：网上收集点击：读取中... 次

html2txt.vbs

引用代码：On Error Resume Next
sTitle="html2txt"

GetHtmlFileName: '输出：HtmlFileName，包含文件完整路径
'从参数或对话框获得文件
If WScript.Arguments.Count=0 Then
  Set objDialog = CreateObject("UserAccounts.CommonDialog")
  objDialog.Filter = "HTML源文件件|*.html;*.htm|所有文件|*.*"
  objDialog.ShowOpen
  HtmlFileName = objDialog.FileName
  If len(HtmlFileName)=0 Then
      wscript.Quit
  End If
Else
    If Len(WScript.Arguments(0).Length)> 3 Then
        HtmlFileName = WScript.Arguments(0)
    End If
End If
'验证文件是否有效
Set fso    =CreateObject("scripting.FileSystemObject")
If fso.FileExists(HtmlFileName)=False Then
    MsgBox "文件不存在！",vbOKOnly, sTitle
    WScript.Quit
End If
If Not left(fso.GetFile(HtmlFileName).Type ,4) = "HTML" Then
    MsgBox "请不要选择一个非HTML文件！",vbOKOnly, sTitle
    WScript.Quit
End If

Set HtmlFile=fso.GetFile(HtmlFileName)

ConvertHtmlToTxt:
'获取文件扩展名
i=ubound(split(HtmlFileName,"."))
ext=split(HtmlFileName,".")(i)
SaveName=Left (HtmlFileName,Len(HtmlFileName)-Len(ext)-1)

Set oHtml=CreateObject ("internetexplorer.application")
oHtml.Navigate HtmlFileName
oHtml.Document.execCommand "saveas","true",SaveName & ".txt"
oHtml.Quit
WScript.Quit

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com