学点BAT

2018-10-25 | 分类技术随笔

有人问我windows下如何快速批量转换word为html。我想到用pandoc转换word为html。但是如何批量操作呢？我熟悉Python等编程语言，写一下很容易。

但是要在别人的电脑上运行Python却是件麻烦的事。这种情况下，使用较为通用的bat批处理文件则方便很多。我使用以下命令完成的批量转换任务：

@echo off
for /r .\ %%i in (*.docx) do @pandoc --standalone --self-contained "%%i" -o "%%~ni.html"  | echo %%i
echo 转换结束
pause

把文件存储为bat文件后交给被人用也很方便。

另外还有vbs，可以直接操作windows的对象，虽然不像Python这样是个热门语言，但是需要用到时还是很有用的。使用下面的代码，可以利用word以静默的方式批量转换doc文档为html。

Dim FSO,s

Set FSO=CreateObject("Scripting.FileSystemObject")

Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))

For Each file In AllF.Files

    if right(file,3)="doc" and left(file,1)<>"~" then zhuanhuan file

Next

sub zhuanhuan(filename)

    name=fso.getbasename(filename)

    Set objWord = CreateObject("Word.Application")

    objWord.Visible = False

    Const wdFormatText = 10  ' 10是保存的类型，详见https://docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat

    filePath =   AllF & "\" & name & ".doc"

    Set objDoc = objWord.Documents.Open(filePath)    

    objword.ActiveDocument.SaveAs AllF & "\" & name & ".html",wdFormatText

    objword.quit
	
	set objword=nothing
end sub

当然，Jeff Atwood在《高效能程序员的修炼》提到尽量不要用脚本语言，缺少正经程序语言的谨密性，一旦写的东西多了，就会难以维护。

2008年那会出的很多PE系统，用的工具都是下图这样一个界面，获取用户输入，执行下一步操作。后来也都转而使用图形界面了。