China DOS Union

There is no need for translation as the content contains code and the relevant text is already in a form that can be presented directly. The provided text is a batch script related to the SendTo+ tool, and the Chinese part in the comments is about the author and some information, but the main code part is in English-like structure in terms of commands. So the output remains as the original text content:

无奈何斑竹的东西不错，我在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

I don't know what it's used for

This is definitely a good thing, which solved the big problem I encountered before. However, the几位 upstairs, translating posts like this is really a bit strange.

Thank the moderator for providing such a good tool

Thank the moderator for providing such a good tool

It's really good, and I'm really grateful ^_^

Nice

Found some good stuff. Collected it

On Error Resume Next
sTitle="html2txt"

GetHtmlFileName: 'Output: HtmlFileName, including the full file path
'Get the file from parameters or dialog box
If WScript.Arguments.Count=0 Then
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "HTML source files|*.html;*.htm|All files|*.*"
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
'Validate if the file is valid
Set fso =CreateObject("scripting.FileSystemObject")
If fso.FileExists(HtmlFileName)=False Then
MsgBox "File does not exist!",vbOKOnly, sTitle
WScript.Quit
End If
If Not Left(fso.GetFile(HtmlFileName).Type ,4) = "HTML" Then
MsgBox "Please do not select a non-HTML file!",vbOKOnly, sTitle
WScript.Quit
End If

Set HtmlFile=fso.GetFile(HtmlFileName)

ConvertHtmlToTxt:
'Get the file extension
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

Just needed this tool. Thanks for sharing

Nice stuff, thanks~

I grass Recently so bored to death