中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 22:15 		共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行
DOS批处理 & 脚本技术（批处理室） » [分享]命令行下网页转文本的超强工具
可打印版本 　9,782 / 37
第16楼　HUNRYBECKY 发表于 2006-12-03 02:51
银牌会员　发帖 442　积分 1,179
无奈何斑竹的东西不错，我在YAHOO看到了他的SENDTO+全是批处理编写的，不错哈。不知道使用什么加密的，能否告诉我？因为你的加密好象没有什么效果。
cls
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: SendTo+ -V0.1 --TextToClip.cmd
:: 无奈何@cn-dos.net - 2006-8-18 - mail:wunaihe@gmail.com
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
setlocal
if not DEFINED SendTo+ call :parent "%~dp0..\"
type "%~f1" | "%Sendto+%\CMD\winclip.exe" -c
goto :EOF

:parent
::获取文件父目录
set "SendTo+=%~dp1"
set "SendTo+=%SendTo+:~0,-1%"
goto :EOF
第17楼　mqycn 发表于 2007-04-06 09:18
新手上路　发帖 3　积分 8
好咚咚
好咚咚啊
第18楼　flandy 发表于 2007-04-28 22:47
初级用户　发帖 40　积分 94
very good
第19楼　sunjiang0 发表于 2007-05-12 05:26
新手上路　发帖 4　积分 6
不知道有什么用啊
第20楼　honghunter 发表于 2007-05-12 09:39
中级用户　发帖 135　积分 321
这个绝对是好东东，解决了我之前遇到的大问题。

不过楼上的几位，这样翻帖子，真有点奇怪。
第21楼　ddjk 发表于 2007-07-12 23:13
新手上路　发帖 7　积分 14　来自 广州
感谢版主提供这么好的工具
第22楼　zyfcxp 发表于 2007-09-07 18:26
初级用户　发帖 24　积分 41
感谢版主提供这么好的工具
第23楼　cooray 发表于 2007-09-08 22:40
初级用户　发帖 34　积分 71
果然不错,真是太感谢了^_^
第24楼　952268849 发表于 2009-01-27 23:30
新手上路　发帖 1　积分 1　来自 hn
不错
不错
第25楼　liu3157551 发表于 2010-01-05 12:53
中级用户　发帖 164　积分 259
搜索到的好东西。收藏了
第26楼　sexfio 发表于 2010-01-15 01:53
社区乞丐　发帖 45　积分 -27
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
第27楼　fresco 发表于 2010-01-30 21:35
新手上路　发帖 1　积分 1
正需要这个工具。谢谢分享
第28楼　szoyj 发表于 2010-01-31 16:40
新手上路　发帖 3　积分 4
好东西，谢谢啊~
第29楼　huangyushun 发表于 2010-02-01 20:52
新手上路　发帖 3　积分 7　来自 第二天堂
我草 最近无聊死
第30楼　gshccr 发表于 2010-06-25 20:48
新手上路　发帖 1　积分 1
支持一下啦!
上一页　 1 2 3 　下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023