VB TXT file content splitting

It depends on where you want to put what you read.

For example, you want to put the contents of textbox1 into textbox2.

Just write it directly. text is just fine!!

sub splittxt(s as string, nlength as long, strfilename as string)

s, what you want to split.

nlength The unit length to be split.

The file name generated by strfilename is automatically followed by a number. txt, as in My Files My Files.

dim n as long

n = len(s)

for i = 1 to n step nlength

tmp = mid(s, i, nlength)

open "c:\" & strfilename & format((i - 1) length + 1, "00") &".txt" for output as #1 'If there are more, change it to 000 if there are hundreds

The above is stored in c:, which can also be replaced by , and stored in the directory where the application is located.

print #1, tmp

close #

nextend sub

private sub command1_click()

dim s as string

s = "Here the text**Here the text**Here the text**Here the text**Here the text**Here the text**Here the text**Here the text** Here the text of the text, the text of the text here, the text of the text, the text of the text of the text, the text of the text of the text, the text of the text of the text, the text of the text of the text, the text of the text of the text, the text of the"

call splittxt(s, 20, "My files")

end sub

sub splittxt(s as string,nlength as long,strfilename as string)

end sub

A certain size split

With len....

Defined within a loop.

If the len is the same length, cut it and save one serving.

Then look at it, and there is still content, just cut. There is no end

Specifically, I can help you debug. But programmers can't be lazy.。。

Why hasn't this problem been solved yet?

I've got one for you, see for yourself!