Macro neede to open text files from folder and remove all the lines except specific lines

Hi to all VBA Programmers,

I have a folder, it contains some 15 text files. Each files contains some headings like -chromosomes from 1 to 12 and some lines under each chromosome. Now i want keep one heading (for example Chromosome1) with its lines and remove rest of the headings. for example i want to keep this -Chromosome 1 and its lines (BTX) until next _Chromosome start like this i want do it for remaining -Chromosomes) I am doing this manually but it is taking lot of time to complete one single time like this i have to do 12 times.
Can any one help me with macro code? if yes your efforts would be highly appreciated. I am attching one of the sample file for better understanding of what i am saying.
Thanks in advance,

Regards,
Genetist

Hi,

attach a corresponding desired result file …

Dear Marc L please find my expected result file

Sub Demo()
      Const FOLD$ = "D:\Test4Noob\", HDR$ = "-Chromosome "
    ChDrive FOLD:  ChDir FOLD
       FINP = Application.GetOpenFilename("Text files , *.txt", , "  Select a text file :")
    If FINP = False Then Exit Sub
        HL& = Len(HDR)
        FR% = FreeFile:  Open FINP For Input As #FR
        FW% = FreeFile:  Open FOLD & "output.txt" For Output As #FW

    Do While Not EOF(FR)
         Line Input #FR, TL$

        If TL > "" Then
            If B% Then B = Left(TL, 1) <> "-"
            If B = 0 Then If Left(TL, HL) = HDR Then B = Val(Mid(TL, HL + 1)) <> 1
            If B = 0 Then Print #FW, TL
        End If
    Loop

    Close
End Sub

Standard VBA statements that you can find out in inner help …

And don't forget to click on bottom left star "Add Reputation", thanks !

Dear Marc L
Thank you very much for your help towards solving my problem but i am getting error her

ChDrive FOLD:  ChDir FOLD

once again thanks lot
Regards,
Genetist

Works like a breeze on my side ‼ You forgot to amend the default folder path !

Dear Marc L,

Thank you very much your code is working fine but i need still some more changes because your code catching only -Chrosome 1 in output1 thats o.k for first -Chromosome 1 but like -Chromosome i have other from -Chromosome 2 to -Chromosome 12 and iin second round from the same file i want to keep data belongs to -Chromosome 2 then remove all the data like your code doing for -Chromosome1.
Thanking you very much

Regards,
Genetist.

Dear Marc L

Thank you very much ,
working fine and i added reputation to you and you really deserve for it
Once again thanks

Regards,
Genetist

Thanks !

But maybe I didn't understand your real need : extract to independant txt files all "-Chromosome " at once ?

Yes Dear MARC L,

I wish to have like that only instead of running and getsingle file
Thanks
Regards,
Genetist

Sub DemoAll()
    Const FOLD$ = "D:\DefaultFolderHere\"
    Dim CN$(), SP$()
    If Dir(FOLD) > "" Then ChDrive FOLD: ChDir FOLD
       FINP = Application.GetOpenFilename("Text files , *.txt", , "  Select a text file :")
    If FINP = False Then Exit Sub
         F% = FreeFile
    Open FINP For Input As #F:  SP = Split(Input(LOF(F), #F), vbCrLf):  Close #F
    ReDim CH$(0):  FINP = Replace(FINP, ".txt", " ", , , 2)

    For Each TL In SP
        If TL > "" Then
            If Left(TL, 12) = "-Chromosome " Then
                B% = 1:  R% = R% + 1:  ReDim Preserve CH(R), CN(1 To R):   CN(R) = TL
            ElseIf B Then
                If Left(TL, 1) = "-" Then B = 0: R = R + 1: ReDim Preserve CH(R)
            End If

            CH(R) = CH(R) & TL & vbCrLf
        End If
    Next

    For B = 1 To R - 1
        Open FINP & CN(B) & " .txt" For Output As #F:  Print #F, CH(0); CH(B); CH(R);:  Close #F
    Next

    Erase CH, CN, SP
End Sub

Hi Dear MARC L,
Thanking you very much for your kind reply and your time spend in solving my problem. Your code is working perfectly but i need some small change in that. I want to extract -Chromosome 1 from all the files and result will be output1, -Chromosome 2 from all the files and will be output2 like this i have 15 txt files and 12 -Chromosomes and i should get 12 outputs. I knew you can do anything if we explained you very well hope it is lacking from my side. Your solution is highly appreciated.
Thanking you very much,
Regards,
Genetist

I need first two sample source txt files and one result file to be sure of the needed output.

How do you select source txt files ? How to separate source from output files in same folder ?
Or is there a source folder and an output folder ? Any order or sort from source files ?

'cause of many ways, the more you explain the better will be the code …

Hi Marc L,
Thank you very much for your reply. Please find my source file and results file attachments to solve this issue. I have some files in a folder like pic1 (original data)and each file contains -Chromosome 1 to 12 and i want to separate these -chromosomes from those files as separate files. Please see my source file and expected file.
Thanking you,
Regards,
Genetist

Can't do anything !

Read again post #14 and attach two source files and one result file accordingly to yours needs
and well answer to questions …