Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос удаления строки в txt файле.
 
#1
31.08.2011 16:00:32
Здравствуйте, встречал ли кто похожий макрос?  
необходимо удалить первую строку из txt.
 
 
 
#2
31.08.2011 18:22:09
Попробуйте  
 
Sub Макрос1()  
Dim s$, f As Boolean  
Open "c:\temp\1.txt" For Input As #1  
Open "c:\temp\2.txt" For Output As #2  
Do Until EOF(1)  
   Line Input #1, s  
   If f Then Print #2, s Else f = True  
Loop  
Reset  
End Sub
 
 
 
#3
31.08.2011 18:25:23
Или проще  
 
Sub Макрос1()  
Dim s$  
Open "c:\temp\1.txt" For Input As #1  
Open "c:\temp\2.txt" For Output As #2  
Line Input #1, s  
Do Until EOF(1)  
   Line Input #1, s  
   Print #2, s  
Loop  
Reset  
End Sub
 
 
 
#4
31.08.2011 18:26:37
Просто открыть в Эксе тхт файл, удалить строку и сохранить.
Я сам - дурнее всякого примера! ...
 
 
 
#5
31.08.2011 20:22:48
Спасибо за скрипт. А нельзя сделать без второго txt файла?
 
 
 
#6
31.08.2011 20:36:39
Все всем спасибо сделал через kill
 
 
 
#7
31.08.2011 20:37:36
Добавьте в конце  
name "c:\temp\2.txt" as "c:\temp\1.txt"  
Или сперва читать в переменную, потом создавать новый файл поверх старого.
 
 
 
#8
31.08.2011 21:46:58
А зачем все строки перебирать?  
 
не проще ли как-то так?  
 
txt$ = ТекстИзФайла()  
ТекстБезПервойСтроки = Split(txt$, vbNewLine, 2)(1)  
ЗаписьВФайл ТекстБезПервойСтроки$
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#9
01.09.2011 00:27:15
Вариант:  
Sub www()  
Workbooks.OpenText "D:\DOKUMENT\EXCEL\pass.txt", 866, 2, 1  
   ActiveWorkbook.Save: ActiveWorkbook.Close -1  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...