Text (.txt) question, please view

[Adrian_struggel]

hi, i need to make a VB program which will open a text file (Names.txt), and delete all the words after the character ":", and also remove every second line...like:
Before
Adrian : bla bla bla bla

Asllani : tri li la

After
Adrian
Asllani
....
please someone give me some ideas...on how to go about doing this...thanks....

[BrianS]

how about

Option Explicit
Dim myArray() As String
Dim strString
Dim strString2
 
Private Sub Form_Load()
Open "c:\temp\Names.txt" For Input As #1
 
Do While Not EOF(1)
    Input #1, strString
    If strString <> "" Then
    
        myArray = Split(strString, ":")
        strString2 = strString2 & myArray(0) & vbCrLf
        
    End If
    
Loop
 
Close #1
 
 
Open "c:\temp\results.txt" For Output As #1
    Print #1, strString2
Close #1
End Sub