想求 TXT转换成CHM 或 其他格式 只要不是像在 TXT文档里看一样就好了 谢谢!!!

来源：百度知道 编辑：UC知道 时间：2024/05/13 10:26:51
最好 是你自己用过的
不需要网上复制过来的
我找过好多 都没用
再次 谢谢~~~

先将TXT文件用word打开保存为网页，然后再使用CHM编译器编译即可。

或者使用以下VBS脚本，可以批量转换TXT：

===============================================

'将代码保存为Convert.vbs，放到D:\TEMP中
'Created By Asnahu，Bolg:http://hi.baidu.com/asnahu/
'2009.07.06

Const wdFormatText = 2

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='d:\temp'} Where " _
& "ResultClass = CIM_DataFile")

Set objWord = CreateObject("Word.Application")

For Each objFile in colFiles
If objFile.Extension = "doc" Then
strFile = "d:\temp\" & objFile.FileName & "." & objFile.Extensio