批处理之家 - Powered by Discuz! Board

标题: [文件操作] 批处理怎样批量转换DOC为TXT文本？ [打印本页]

作者: 墨者革离 时间: 2011-7-3 10:28 标题: 批处理怎样批量转换DOC为TXT文本？

经常写材料，收集和整理很多WORD资料，转换成TXT文本格式，然后打包成电子书，方便使用。
如何实现：拖放文件夹，将文件夹内包括子目录的DOC转换成TXT，并保存在原目录中。以下这段代码仅能转换当前文件夹中。

@echo off

for %%a in (*.doc) do doctotext "%%a">"%%~na.txt"
复制代码

作者: Demon 时间: 2011-7-3 11:23

for /r

作者: CUer 时间: 2011-7-3 11:37

@echo off
for /f "delims=" %%a in ('dir /s /b *.doc') do (
    doctotext "%%a" >"%%~dpna.txt"
)
复制代码

作者: 墨者革离 时间: 2011-7-3 23:33

3楼代码不可用。怎么样修改一下！

作者: ArdentMan 时间: 2011-7-4 08:36

本帖最后由 ArdentMan 于 2011-7-4 08:38 编辑

@Echo Off
For /R %1 %%I IN (*.doc) Do DocToText "%%I">"%%~dpnI.txt"
复制代码

作者: Hello123World 时间: 2011-7-4 17:00

拖放文件夹，将文件夹内包括子目录的DOC转换成TXT，并保存在原目录中。以下这段代码仅能转换当前文件夹中。

@echo off
set /p a=托文件夹至此：
for /f "delims=" %%i in ('dir /s /b "%a%\*.doc"') do (
	for /f "delims=" %%j in ("%%i") do echo %%j >>%%~dpni.txt
) 
pause>nul
复制代码

作者: Hello123World 时间: 2011-7-4 17:01

本帖最后由 Hello123World 于 2011-7-4 17:04 编辑

DocToText?非系统外部命令。
http://silvercoders.com/en/products/doctotext/
也不给个链接。

作者: Hello123World 时间: 2011-7-4 17:16

doctotext 后面最好加个 2>nul，返回信息忒多了

欢迎光临批处理之家 (http://www.bathome.net/)