Alphabetical order..?

[k0zz]

I want to be able to select a list with my program (located on my computer), push the "go" command button, and have my program to the following... if it finds a line in this txt document that has two or more underscores (__) in it (no matter where in the line), then add the whole line to a NEW text document... or, if the program has an underscore in the front (_) then add the whole line to the text document. OR if it has an underscore at the end (_) then add the whole line to the text document. So, for example, the text document will consist as follows:


asdfadsf_
asdfsdfdsf_346
_asdfasdf
asdfasd__235
asdfdsfasfd____2353


If that was what was in the text document, then it would take the following out and add them all to a new text document:

asdfadsf_
_asdfasdf
asdfasd__235
asdfdsfasfd____2353

EXCLUDING the asdfsdfdsf_346 as it does not follow what i wrote at the beginning... If anyone could help me write this then that would be great

[gavio]

Add CommandButton to your Form and name it "go":

Private Sub go_Click()
    Dim cf As String, nf As String
    Dim ff As Integer: ff = FreeFile
        Open "c:\test.txt" For Input As #ff
            Do Until EOF(ff)
                Line Input #ff, cf
                    If Left(Trim(cf), 1) = "_" Or Right(Trim(cf), 1) = "_" Or InStr(1, cf, "__") Then
                        nf = nf & cf & vbCrLf
                    End If
            Loop
        Close #ff
    If Len(nf) Then nf = Left(nf, Len(nf) - 2)
    ff = FreeFile
        Open "c:\test_output.txt" For Output As #ff
            Print #ff, nf;
        Close #ff
End Sub

Post back if you need further explanation.

Btw... what has all this got to do with the thread title??