China DOS Union

I often discuss batch processing in the group. Some codes are directly posted, and when I copy them and save to a file, I find that all the content is squeezed into one line, and the carriage return places are occupied by annoying black blocks. There are as many black blocks as there are carriage returns. To test the code, I generally have to break lines manually, which is very troublesome. Do we just have to endure such torture?

Today in the group, someone asked me how to use batch processing to solve this problem. During the testing process, I accidentally discovered a very useful statement and share it with you:
@echo off more test.txt>test.cmd
Usage method: Save this code as a batch file that is not test.cmd, save the code copied from QQ in the test.txt file, run the above code, and then open test.cmd to see what? Hehe, is the code restored?

By extension, as long as it is content copied from QQ, this code can be used to restore it.

Don't ask me what the principle is, because I don't know either ^_^, but there is an article worth referring to. Please see: How to extract content on different lines

Just open it with UE. Or save it as an RTF file and copy it... Then when you open it with TXT, it's gone.

Open the TXT file with Notepad and save it once, and that's it.

Nice stuff, bump it up!
Solves quite a few practical problems...

Because the carriage return in Windows is 0x0D0A, while in QQ only 0x0D is used. more will automatically recognize the encoding and carriage return.

I want to ask electronixtar, how to represent 0x0D in QQ in VBS?

Usually, carriage return and line feed are used together.
If you can see black blocks, it means there is only a carriage return character and no line feed character.
In fact, as long as you replace the 'carriage return character' with 'carriage return + line feed', it will be okay.
Save the following code as a vbs file, and drag the file onto this vbs file, and the generated new file will have no black blocks.
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Args = WScript.Arguments
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
Str=ReadFile.ReadAll
ReadFile.Close
Str=Replace(Str,chr(13),chr(13)&chr(10))
Set NewFile = FSO.CreateTextFile(FSO.BuildPath(FSO.GetParentFolderName(Args(0)),"newfile.txt"), True)
NewFile.Write Str
NewFile.Close
Set FSO = Nothing
The newfile.txt in the code is the name of the new file you want to generate!

Hehe, my internet speed here is too slow. It took a long time to refresh. Brother electronixtar has already explained, learned it ^_^

[ Last edited by baomaboy on 2007-3-10 at 11:11 AM ]

Why can't replace("内容",chr(13),vbcrlf) work?

What I tried on the 8th floor, but it still doesn't work....

The carriage return encoding of the UNIX system is different from that of WINDOWS

Then, may I ask, I have a folder of text files, how to batch convert them to Windows format?

Nice

Use replacement is also okay.. Switch back to carriage return OK