Turn to the great god of vb TXT specify the next line of characters is written about the new TXT-CodePudding

Folder a TXT file content is as follows (file name) when (date) (month) (year)
202101010100. TXT 202101010200. TXT 202101020100. TXT,,,,,,,
TXT contents are as follows:
Zhang SAN
90011 22 33 44 55
Li si
90012 12 of 14 15 16
Fifty
90013 22 33 44 55
Lin Yuan
90014 12 of 14 15 16
Want to put all folder named 20210101 * 00. TXT (that is, all on January 1, 2021) the TXT file, read a file all of the characters of a "bill" the next row content is "90012 12 14 15 16" this line, merged into a new file
New file content for
90012 12 of 14 15 16
21 16 17 18 90012
90012 23 24 25 26

Each file is the bill next line all character content