|
HUNRYBECKY
银牌会员
积分 1179
发帖 442
注册 2006-9-9
状态 离线
|
『第
16 楼』:
无奈何斑竹的东西不错，我在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
|
|
 2006-12-3 02:51 |
|
|
mqycn
新手上路
积分 8
发帖 3
注册 2007-4-6
状态 离线
|
|
|
2007-4-6 09:18 |
|
|
flandy
初级用户
积分 94
发帖 40
注册 2007-4-28
状态 离线
|
|
|
2007-4-28 22:47 |
|
|
sunjiang0
新手上路
积分 6
发帖 4
注册 2007-5-12
状态 离线
|
|
|
2007-5-12 05:26 |
|
|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
『第
20 楼』:
这个绝对是好东东，解决了我之前遇到的大问题。
不过楼上的几位，这样翻帖子，真有点奇怪。
|
探讨批量下载与智能化的下载 |
|
|
2007-5-12 09:39 |
|
|
ddjk
新手上路
积分 14
发帖 7
注册 2007-7-3
来自 广州
状态 离线
|
|
|
2007-7-12 23:13 |
|
|
zyfcxp
初级用户
积分 41
发帖 24
注册 2007-9-4
状态 离线
|
|
|
2007-9-7 18:26 |
|
|
cooray
初级用户
积分 71
发帖 34
注册 2007-9-7
状态 离线
|
|
|
2007-9-8 22:40 |
|
|
952268849
新手上路
积分 1
发帖 1
注册 2009-1-18
来自 hn
状态 离线
|
|
|
2009-1-27 23:30 |
|
|
liu3157551
中级用户
积分 259
发帖 164
注册 2006-9-21
状态 离线
|
|
|
2010-1-5 12:53 |
|
|
sexfio
社区乞丐
积分 -27
发帖 45
注册 2006-5-16
状态 离线
|
『第
26 楼』:
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
|
|
|
2010-1-15 01:53 |
|
|
fresco
新手上路
积分 1
发帖 1
注册 2009-12-18
状态 离线
|
|
|
2010-1-30 21:35 |
|
|
szoyj
新手上路
积分 4
发帖 3
注册 2010-1-29
状态 离线
|
|
|
2010-1-31 16:40 |
|
|
huangyushun
新手上路
积分 7
发帖 3
注册 2009-5-16
来自 第二天堂
状态 离线
|
|
|
2010-2-1 20:52 |
|
|
gshccr
新手上路
积分 1
发帖 1
注册 2010-4-23
状态 离线
|
|
|
2010-6-25 20:48 |
|
