How to split and merge text files with vbs

This article mainly shows you "how to use vbs to split and merge text files", the content is easy to understand, clear, hope to help you solve your doubts, the following let Xiaobian lead you to study and learn "how to use vbs to split and merge text files" this article.

However, when I think of downloading again elsewhere, it is very slow to import tens of thousands of addresses at once, so it is necessary to split it: (in this txt file, one address is on one line)

Contents of url_split.vbs file:

The code is as follows:

Set fs = CreateObject ("scripting.filesystemobject")

Set gs = CreateObject ("scripting.filesystemobject")

Set f=fs.opentextfile ("url.txt", 1je true) 'url.txt is a txt file to be split with tens of thousands of addresses saved in it.

Nasty 0

Do while f.atendofstreamtrue

N=n+1

Data= ""

Set g=gs.opentextfile (CStr (n) + ".lst", 2, true) 'the split file is saved as: 1.lst 2.lst 3.lst...

If f.atendofstreamtrue then

After for axi1 to 1000'is split, 1000 address is saved in a file

Data=f.readline

G.writeline data

Next

End if

Loop

F.close

G.close

Ha ha, this vbs is based on the behavior unit to divide the file, how to divide the file in bytes? Welcome to discuss with me!

The above is all the contents of the article "how to split and merge text files with vbs". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!