Как удалить столбцы в текстовом файле. - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Подскажите, пожалуйста, как, или при помощи чего, например, в данном текстовом файле оставить 1,2,6-й столбцы, а остальные удалить. 1 54723937 - 1020 65 913206 21403 6187 2 57449894 - 1020 64 913206 21403 6187 3 51529972 - 1020 63 913206 21403 6187 4 51114338 - 1020 62 913206 21403 6187 5 50051101 - 1020 64 913206 21403 6187 6 50050434 - 1020 58 913206 21403 6187 7 51516649 - 1020 58 913206 21403 6187 8 51484632 - 1026 57 913206 21403 6187 9 51353555 - 1020 58 913206 21403 6187 10 51516136 - 1020 58 913206 21403 6187 11 57096372 - 1020 57 913206 21403 6187

Решение задачи: «Как удалить столбцы в текстовом файле.»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
 
Dim M() As String
Dim J As Integer
   Dim File As String, CF As String   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = "C:\1.txt""   'ycтановим имя файла и пyть"
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
   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 'если не пустая
             Print #2, M(J)(0), M(J)(1), M(J)(5), 'печатаем нужные столбцы(счёт с 0)
        End Select '
   Next J '
Close #2 '
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы