Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как удалить из txt-файла все строки кроме первой? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как удалить из txt-файла все строки кроме первой? (Макросы/Sub)
Как удалить из txt-файла все строки кроме первой?
Excelik Дата: Четверг, 17.01.2019, 18:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Помогите удалить все строки из текстового файла кроме первой pray
 
Ответить
СообщениеПомогите удалить все строки из текстового файла кроме первой pray
Автор - Excelik
Дата добавления - 17.01.2019 в 18:18
Excelik Дата: Четверг, 17.01.2019, 18:25 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
если что вот мой кривой ,но работающий код который я сложил из нескольких кодов в интернете)

[vba]
Код
    Dim var0 As String: var0 = "C:\........."
                    
    Open var0 For Input As #1                    
    Do Until EOF(1)
            Line Input #1, Data                    
                    
            Exit Do                    
    Loop
    Close #1                    

  fn_ = var0
  n_ = FreeFile
  Open fn_ For Output As n_
    Print #n_, Data
  Close #n_
[/vba]
 
Ответить
Сообщениеесли что вот мой кривой ,но работающий код который я сложил из нескольких кодов в интернете)

[vba]
Код
    Dim var0 As String: var0 = "C:\........."
                    
    Open var0 For Input As #1                    
    Do Until EOF(1)
            Line Input #1, Data                    
                    
            Exit Do                    
    Loop
    Close #1                    

  fn_ = var0
  n_ = FreeFile
  Open fn_ For Output As n_
    Print #n_, Data
  Close #n_
[/vba]
Автор - Excelik
Дата добавления - 17.01.2019 в 18:25
krosav4ig Дата: Пятница, 18.01.2019, 01:15 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
    Dim var0 As String: var0 = "C:\........."
    Dim s As String
    With New ADODB.Stream
        .Type = 2: .Mode = 3: .Charset = "utf-8": .LineSeparator = -1:
        .Open: .LoadFromFile var0: s = .ReadText(-2): .Close
        .Open: .WriteText s: .SaveToFile var0, 2: .Close
    End With
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 18.01.2019, 01:21
 
Ответить
Сообщение[vba]
Код
    Dim var0 As String: var0 = "C:\........."
    Dim s As String
    With New ADODB.Stream
        .Type = 2: .Mode = 3: .Charset = "utf-8": .LineSeparator = -1:
        .Open: .LoadFromFile var0: s = .ReadText(-2): .Close
        .Open: .WriteText s: .SaveToFile var0, 2: .Close
    End With
[/vba]
Автор - krosav4ig
Дата добавления - 18.01.2019 в 01:15
Excelik Дата: Понедельник, 21.01.2019, 11:53 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
спасибо огромное, но почемуто ошибка выходит, ADODB.Stream не дефинирован
 
Ответить
Сообщениеспасибо огромное, но почемуто ошибка выходит, ADODB.Stream не дефинирован
Автор - Excelik
Дата добавления - 21.01.2019 в 11:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как удалить из txt-файла все строки кроме первой? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!