TXT文件如何批量修改编码
来源:百度知道 编辑:UC知道 时间:2024/09/12 22:28:45
正常创建的TXT或者网上下载下来的TXT文档默认的都是 ANSI 编码,有没有什么简单的办法可以批量的将大量的TXT文档的编码修改成 Unicode 这种形式。倘若是提供给我某软件,那一定要是绿色的,无需注册,且要简体中文版的。如果回答让我满意,方法简便,额外加分。请高手指点
我主要是在网上下载小说,那些免费的小说都是一个章节就是一个TXT文本的,所以 千羽之城 说的方法不适合我,请再指教
我主要是在网上下载小说,那些免费的小说都是一个章节就是一个TXT文本的,所以 千羽之城 说的方法不适合我,请再指教
@echo off&color a
title TXT文本ANSI转UNICODE -by 314ccp-
set/p.=请将目录拖放此处:
cls & cd /d "%.%"
for /r %%a in (*.txt)do (
cmd /u /c "type "%%a">unicode.tmp"
copy unicode.tmp "%%a">nul
del unicode.tmp /q
)
echo 全部转换完成,可用WORD选Unicode验证了!
echo.
echo 按任意键打开目录!
pause>nul
start "" "%cd%"
打开批处理后将你要处理的目录拖放到光标处后回车!
Const ForReading = 1
Const ForWriting = 2
strFolder = "e:\temp\temp"
oFolder = "e:\temp\new\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("Wscript.Shell")
Set objFolder = objFSO.GetFolder(strFolder)
objFSO.CreateFolder(oFolder)
Set colFiles = objFolder.Files
For Each strFile in colFiles
Set objFile = objFSO.OpenTextFile(strFile,ForReading,TristateTrue)
colLine