Создать файл, содержащий сведения о телефонах абонентов

Option Explicit
 
Sub Обработать_текстовый_файл()
 
    'обработать текстовый файл и оставить строки в файле
    'которые начинаются с " 400 " и " 600 "
    'все остальные строки нужно удалить
    'файл, с которого читаем
    Open "C:\1.txt" For Input As #1
    'файл, в который записываем
    Open "C:\2.txt" For Output As #2
    Dim Buf As String
    Dim Первые_пять_знаков As String
    Do While Not EOF(1)
        Line Input #1, Buf
      'условие если первые пять знаков строки равны ... или ..., тогда ... записать строку в файл #2
        Первые_пять_знаков = Left$(Buf, 5)
        If Left$(Buf, 5) = " 400 " Or Left$(Buf, 5) = " 600 " Then Print #2, Buf
    Loop
    Close #1
    Close #2
    MsgBox$ "End"
End Sub
 
Option Explicit
 
'VB 6.0
'В текстовом файле оставить 1, 2, 6 - й столбцы, а остальные удалить
'1 54723937 - 1020 65 913206 21403 6187
'2 57449894 - 1020 64 913206 21403 6187
'3 51529972 - 1020 63 913206 21403 6187
 
Sub В_текстовом_файле_оставить_удалить_столбцы()
 
    Dim M() As String
    Dim J As Integer
    'переменная для имени файла и его содержимого
    Dim File As String, CF As String
    'имя файла и пyть к нему
    File = "C:\1.txt""   "
    'откpыть файл для чтения
    Open File For Binary As #1
    'загpyзить в пеpеменyю CF вcё cодеpжимое файла …
    CF = Input(FileLen(File), 1)
    'закpыть файл
    Close #1
    'удалим ненужнае пробелы вокруг
    CF = Trim(CF)
    'удалить "-"
    CF = Replace$(CF, "-", "")
    'пока есть сдвоенные пробелы внутри
    Do While InStr(1, CF, "  ") > 0
        'удаляем их
        CF = Replace(CF, "  ", " ")
    Loop
 
    'разбиваем на строки
    M = Split(CF, vbNewLine)
 
    Open "C:\2.txt" For Output As #2
 
    'по всем строкам
    For J = 0 To UBound(M)
        'смотрим не пустая ли строка
        Select Case InStr(1, M(J), " ")
            'если пустая (и нет пробелов)
        Case 0
            'печатаем пустую строку
            Print #2,
            'если не пустая
        Case Else
            'печатаем нужные столбцы (счёт с 0)
            Print #2, M(J)(0), M(J)(1), M(J)(5),
        End Select
    Next J
    Close #2
 
End Sub