Как удалить столбцы в текстовом файле. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д