China DOS Union

How to convert the UTF-8 encoding of a TXT text file to the Unicode encoding!!

Note: There are many files, and they can't be processed one by one. I want to convert the encoding because I need to open the TXT file directly with Excel, but opening a UTF-8 encoded text will become garbled, and it must be converted to a Unicode encoded text file. I can use Notepad to open the text file and then choose the encoding when "Save As", but there are too many files to operate one by one. See which expert can solve this problem!!!

```@echo off
for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do (
call cmd /u /c type "%%a">"%%~dpna.U"
call echo move /y "%%~dpna.U" "%%a"
)
pause```

It seems that batch processing can't directly handle text encoded in UTF-8.

It doesn't work. After running, several .u format files are generated. Opening them with Notepad is all garbled code, which is not the result I want!!! Experts, take a look again!!!

Oh, really? I tested with ANSI.

No, the encoding should be selected as utf-8. I need to convert utf-8 to unicode. Just write a few sentences in Notepad, then save as, select the encoding as: utf-f, and save. Then run your program, and you can take a look.

[ Last edited by moonofwell on 2007-11-30 at 11:46 AM ]

Since the zh159 batch processing can't directly handle UTF-8, there's no way around it. We have to rely on third-party tools.

I found a third - party tool, ConvertZ ver 7.40. It would be even better if it could be done with DOS batch processing or VBS! (*^_^*)

UTF82Unicode.vbs
[code]
Set objArgs = WScript.Arguments
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I)
Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode")
Next
Function ReadFile(FileUrl, CharSet)
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFile = Str
End Function

Function WriteToFile (FileUrl, Str, CharSet)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush

UTF82Unicode.vbs
Set objArgs = WScript.Arguments For I = 0 To objArgs.Count - 1 FileUrl = objArgs(I) Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode") Next Function ReadFile(FileUrl, CharSet) Dim Str Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.loadfromfile FileUrl Str = stm.readtext stm.Close Set stm = Nothing ReadFile = Str End Function Function WriteToFile (FileUrl, Str, CharSet) Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.WriteText Str stm.SaveToFile FileUrl, 2 stm.flush stm.Close Set stm = Nothing End Function
@echo off for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do UTF82Unicode.vbs "%%a" pause
Direct replacement mode, please test before applying

Okay, thanks buddy, you're really a master!!!

The LZ is converting UTF-8 encoding to Unicode.

And my question is:
How to convert UTF-8 to ANSI
And how to convert Unicode to ANSI

How to implement it with a batch file?
Please experts answer

Command Line GB2312, UTF - 8, Unicode, BIG5... Encoding Conversion Tool VBS Version
http://www.cn-dos.net/forum/viewthread.php?tid=35986&fpage=1&highlight=

Text File Encoding Query Tool QueryCode.vbs
http://www.cn-dos.net/forum/viewthread.php?tid=36012&fpage=1&highlight=

Thanks to the upstairs

[ Last edited by gameyixiu on 2007-12-10 at 03:45 PM ]

Not bad, learning!