vbs的htm2txt - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

积极响应斑竹 3742668 的号召！


'By est electronicstar＠126.com

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

本人技术水平拙劣，请大家狠狠批评指教！

其实精华就一句话：哈哈～～


oHtml.Document.execCommand "saveas","true",SaveName & ".txt"

[ Last edited by electronixtar on 2006-5-23 at 19:12 ]

谢谢楼主，下回去用

非常实用，下回去学学，用用。

　　这个蛮实用的......

　　copy回去边用边学习学习咯.......

　　Thanks a lot....

[ Last edited by lxmxn on 2006-10-18 at 15:10 ]


Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate "file://C:\Documents and Settings\xxx\桌面\abc.html"
    WScript.Echo objIE.Document.Body.InnerText
    objIE.Quit
    Set objIE = Nothing

用这种方法可以指定读取的部分,不过需要对html有一定的了解。
至于喜欢使用哪种方法,那就见仁见智了.

我也来一个改进版的，支持拖放和绝对路径、及http开头的URL。

htm2txt


set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"
WScript.sleep 200
loop

WScript.Echo oDOM.Body.InnerText

使用实例：
cscript //NoLogo //e:vbscript htm2txt.vbs ms-its:C:\WINDOWS\Help\ntcmds.chm::/ntcmds.htm > "%UserProfile%\桌面\Nt命令行.txt"

cscript //NoLogo //e:vbscript http://www.Google.com > "%UserProfile%\桌面\Google首页.txt"

[ Last edited by electronixtar on 2006-11-7 at 11:56 PM ]

精彩到吐血～～收藏～～：）

针对加密的HTM文件此脚本还有许多改进之处呀。

不会看阿，我真菜

请提示一下如何使用？弹出了一个对话框，要求打开，我打开网页，没见任何动静？？？

第1楼　electronixtar	发表于 2006-05-23 19:09
铂金会员　发帖 2,672　积分 7,493
[原创]vbs的htm2txt 积极响应斑竹 3742668 的号召！ 'By est electronicstar＠126.com 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 本人技术水平拙劣，请大家狠狠批评指教！其实精华就一句话：哈哈～～ oHtml.Document.execCommand "saveas","true",SaveName & ".txt" [ Last edited by electronixtar on 2006-5-23 at 19:12 ]

第2楼　vkill	发表于 2006-09-06 03:51
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
谢谢楼主，下回去用

第3楼　NaturalJ0	发表于 2006-10-18 11:07
银牌会员　发帖 533　积分 1,181
非常实用，下回去学学，用用。

第4楼　lxmxn	发表于 2006-10-18 13:55
版主　发帖 4,938　积分 11,386
这个蛮实用的...... 　　copy回去边用边学习学习咯....... 　　Thanks a lot.... [ Last edited by lxmxn on 2006-10-18 at 15:10 ]

第5楼　3742668	发表于 2006-10-19 01:53
荣誉版主　发帖 718　积分 2,013
Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "file://C:\Documents and Settings\xxx\桌面\abc.html" WScript.Echo objIE.Document.Body.InnerText objIE.Quit Set objIE = Nothing 用这种方法可以指定读取的部分,不过需要对html有一定的了解。至于喜欢使用哪种方法,那就见仁见智了.

第6楼　electronixtar	发表于 2006-11-07 23:42
铂金会员　发帖 2,672　积分 7,493
我也来一个改进版的，支持拖放和绝对路径、及http开头的URL。 htm2txt set oDOM = WScript.GetObject(WScript.Arguments(0)) do until oDOM.readyState = "complete" WScript.sleep 200 loop WScript.Echo oDOM.Body.InnerText 使用实例： cscript //NoLogo //e:vbscript htm2txt.vbs ms-its:C:\WINDOWS\Help\ntcmds.chm::/ntcmds.htm > "%UserProfile%\桌面\Nt命令行.txt" cscript //NoLogo //e:vbscript http://www.Google.com > "%UserProfile%\桌面\Google首页.txt" [ Last edited by electronixtar on 2006-11-7 at 11:56 PM ]

第7楼　redtek	发表于 2006-11-07 23:58
金牌会员　发帖 1,147　积分 2,902
精彩到吐血～～收藏～～：）

第8楼　iamsunman	发表于 2007-02-28 17:11
新手上路　发帖 7　积分 14
学习》》》》

第9楼　slore	发表于 2007-02-28 22:51
铂金会员　发帖 2,478　积分 5,212
意义不大

第10楼　Kinglion	发表于 2007-02-28 23:40
铂金会员　发帖 1,924　积分 5,798　来自金獅電腦軟體工作室
针对加密的HTM文件此脚本还有许多改进之处呀。

第11楼　zzmwmh	发表于 2007-03-01 05:02
新手上路　发帖 4　积分 7
不会看阿，我真菜

第12楼　cjiabing	发表于 2010-03-01 16:20
新手上路　发帖 18　积分 19
请提示一下如何使用？弹出了一个对话框，要求打开，我打开网页，没见任何动静？？？