Удаление содержимого текстовых файлов txt
mv6677
Дата: Четверг, 02.11.2017, 14:01 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация:
3
±
Замечаний:
0% ±
Excel 2013
Добрый день, уважаемые программисты. Помогите с решением. В папке по адресу C:\335729\ находится несколько текстовых документов txt. Как макросом очистить содержимое этих текстовых документов, чтобы они были пустые ?
Добрый день, уважаемые программисты. Помогите с решением. В папке по адресу C:\335729\ находится несколько текстовых документов txt. Как макросом очистить содержимое этих текстовых документов, чтобы они были пустые ? mv6677
Ответить
Сообщение Добрый день, уважаемые программисты. Помогите с решением. В папке по адресу C:\335729\ находится несколько текстовых документов txt. Как макросом очистить содержимое этих текстовых документов, чтобы они были пустые ? Автор - mv6677 Дата добавления - 02.11.2017 в 14:01
RAN
Дата: Четверг, 02.11.2017, 14:43 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[vba]Код
Sub QWQ() Dim fld As Object, fl As Object With CreateObject("Scripting.FileSystemObject") Set fld = .GetFolder("C:\335729") For Each fl In fld.Files If .GetExtensionName(fl.Path) = "txt" Then .CreateTextFile fl.Path, True End If Next End With End Sub
[/vba]
[vba]Код
Sub QWQ() Dim fld As Object, fl As Object With CreateObject("Scripting.FileSystemObject") Set fld = .GetFolder("C:\335729") For Each fl In fld.Files If .GetExtensionName(fl.Path) = "txt" Then .CreateTextFile fl.Path, True End If Next End With End Sub
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [vba]Код
Sub QWQ() Dim fld As Object, fl As Object With CreateObject("Scripting.FileSystemObject") Set fld = .GetFolder("C:\335729") For Each fl In fld.Files If .GetExtensionName(fl.Path) = "txt" Then .CreateTextFile fl.Path, True End If Next End With End Sub
[/vba] Автор - RAN Дата добавления - 02.11.2017 в 14:43
mv6677
Дата: Пятница, 03.11.2017, 07:09 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация:
3
±
Замечаний:
0% ±
Excel 2013
RAN, большое спасибо. Скрипт работает.
RAN, большое спасибо. Скрипт работает. mv6677
Ответить
Сообщение RAN, большое спасибо. Скрипт работает. Автор - mv6677 Дата добавления - 03.11.2017 в 07:09
Фомулист
Дата: Пятница, 03.11.2017, 15:35 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 396
Репутация:
9
±
Замечаний:
80% ±
Excel 2003
Опять я сую свой нос в чужие дела . Подскажите, пожалуйста, как этот код очищает содержимое txt файлов, если указанная в цитате строчка дословно переводится с английского как "создать текстовый файл по пути fl.path"?
Опять я сую свой нос в чужие дела . Подскажите, пожалуйста, как этот код очищает содержимое txt файлов, если указанная в цитате строчка дословно переводится с английского как "создать текстовый файл по пути fl.path"?Фомулист
Терпение и труд всё перетрут!
Сообщение отредактировал Фомулист - Пятница, 03.11.2017, 15:37
Ответить
Сообщение Опять я сую свой нос в чужие дела . Подскажите, пожалуйста, как этот код очищает содержимое txt файлов, если указанная в цитате строчка дословно переводится с английского как "создать текстовый файл по пути fl.path"?Автор - Фомулист Дата добавления - 03.11.2017 в 15:35
buchlotnik
Дата: Пятница, 03.11.2017, 16:41 |
Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
Да так и очищает - создаёт пустой файл ВМЕСТО существующего
Да так и очищает - создаёт пустой файл ВМЕСТО существующего buchlotnik
Ответить
Сообщение Да так и очищает - создаёт пустой файл ВМЕСТО существующего Автор - buchlotnik Дата добавления - 03.11.2017 в 16:41
Фомулист
Дата: Пятница, 03.11.2017, 17:07 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 396
Репутация:
9
±
Замечаний:
80% ±
Excel 2003
создаёт пустой файл ВМЕСТО существующего
А как макрос понимает, что пустой файл нужно создать вместо существующего, а не рядом с ним?
создаёт пустой файл ВМЕСТО существующего
А как макрос понимает, что пустой файл нужно создать вместо существующего, а не рядом с ним?Фомулист
Терпение и труд всё перетрут!
Ответить
Сообщение создаёт пустой файл ВМЕСТО существующего
А как макрос понимает, что пустой файл нужно создать вместо существующего, а не рядом с ним?Автор - Фомулист Дата добавления - 03.11.2017 в 17:07
RAN
Дата: Пятница, 03.11.2017, 21:01 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение что "If" это "Если"?Автор - RAN Дата добавления - 03.11.2017 в 21:01
buchlotnik
Дата: Пятница, 03.11.2017, 21:42 |
Сообщение № 8
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
Фомулист , вы ручками пробовали создать файл с тем же именем возле существующего? получалось? макросу ничего понимать не надо - он переписывает без предупреждения - за это и отвечает аргумент, который вы в своей цитате почему-то отбросили [vba][/vba]
Фомулист , вы ручками пробовали создать файл с тем же именем возле существующего? получалось? макросу ничего понимать не надо - он переписывает без предупреждения - за это и отвечает аргумент, который вы в своей цитате почему-то отбросили [vba][/vba]buchlotnik
Ответить
Сообщение Фомулист , вы ручками пробовали создать файл с тем же именем возле существующего? получалось? макросу ничего понимать не надо - он переписывает без предупреждения - за это и отвечает аргумент, который вы в своей цитате почему-то отбросили [vba][/vba]Автор - buchlotnik Дата добавления - 03.11.2017 в 21:42
InExSu
Дата: Пятница, 03.11.2017, 22:42 |
Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Привет! Вижу, что А как быть, если хочется сохранить аргументы файла?
Привет! Вижу, что А как быть, если хочется сохранить аргументы файла? InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Привет! Вижу, что А как быть, если хочется сохранить аргументы файла? Автор - InExSu Дата добавления - 03.11.2017 в 22:42
buchlotnik
Дата: Пятница, 03.11.2017, 22:48 |
Сообщение № 10
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
InExSu , это что, стесняюсь спросить?
Ответить
Сообщение InExSu , это что, стесняюсь спросить?Автор - buchlotnik Дата добавления - 03.11.2017 в 22:48
RAN
Дата: Пятница, 03.11.2017, 22:50 |
Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
А как быть, если хочется сохранить аргументы файла?
Легко. 1. Открыть для записи, и записать "". Нет? 2. Презаписать аргументы. Нет? (Можно и атрибуты. ) 3. ???????
А как быть, если хочется сохранить аргументы файла?
Легко. 1. Открыть для записи, и записать "". Нет? 2. Презаписать аргументы. Нет? (Можно и атрибуты. ) 3. ???????RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Пятница, 03.11.2017, 22:52
Ответить
Сообщение А как быть, если хочется сохранить аргументы файла?
Легко. 1. Открыть для записи, и записать "". Нет? 2. Презаписать аргументы. Нет? (Можно и атрибуты. ) 3. ???????Автор - RAN Дата добавления - 03.11.2017 в 22:50
InExSu
Дата: Пятница, 03.11.2017, 22:51 |
Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Пардон. Атрибуты файла.Автор - InExSu Дата добавления - 03.11.2017 в 22:51
buchlotnik
Дата: Пятница, 03.11.2017, 23:13 |
Сообщение № 13
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
Ну как-то так, раз атрибуты: [vba]Код
If .GetExtensionName(fl.Path) = "txt" Then Open fl.Path For Output As #1 s = "" Print #1, s Close #1 End if
[/vba]
Ну как-то так, раз атрибуты: [vba]Код
If .GetExtensionName(fl.Path) = "txt" Then Open fl.Path For Output As #1 s = "" Print #1, s Close #1 End if
[/vba] buchlotnik
Ответить
Сообщение Ну как-то так, раз атрибуты: [vba]Код
If .GetExtensionName(fl.Path) = "txt" Then Open fl.Path For Output As #1 s = "" Print #1, s Close #1 End if
[/vba] Автор - buchlotnik Дата добавления - 03.11.2017 в 23:13
InExSu
Дата: Пятница, 03.11.2017, 23:35 |
Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Да. Спасибо!Автор - InExSu Дата добавления - 03.11.2017 в 23:35
buchlotnik
Дата: Пятница, 03.11.2017, 23:41 |
Сообщение № 15
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
Только [vba][/vba] надо перед циклом, конечно же, воткнуть - тупанул
Только [vba][/vba] надо перед циклом, конечно же, воткнуть - тупанул buchlotnik
Ответить
Сообщение Только [vba][/vba] надо перед циклом, конечно же, воткнуть - тупанул Автор - buchlotnik Дата добавления - 03.11.2017 в 23:41
RAN
Дата: Суббота, 04.11.2017, 00:09 |
Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Миш, в рамках вышеизложенного [vba]Код
.OpenTextFile fl.Path, 2
[/vba] Нет?
Миш, в рамках вышеизложенного [vba]Код
.OpenTextFile fl.Path, 2
[/vba] Нет? RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Суббота, 04.11.2017, 00:10
Ответить
Сообщение Миш, в рамках вышеизложенного [vba]Код
.OpenTextFile fl.Path, 2
[/vba] Нет? Автор - RAN Дата добавления - 04.11.2017 в 00:09
buchlotnik
Дата: Суббота, 04.11.2017, 00:17 |
Сообщение № 17
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
RAN , да я так сначала и зашёл, но не вышло (файл вообще не редачился) - и MSDN заявило, что теперь только 1 и 8 осталось (8 работает - но в данном случае это не то) - переделал "в лоб"; хотя не исключаю, что это просто вечер пьятницы
RAN , да я так сначала и зашёл, но не вышло (файл вообще не редачился) - и MSDN заявило, что теперь только 1 и 8 осталось (8 работает - но в данном случае это не то) - переделал "в лоб"; хотя не исключаю, что это просто вечер пьятницы buchlotnik
Сообщение отредактировал buchlotnik - Суббота, 04.11.2017, 00:24
Ответить
Сообщение RAN , да я так сначала и зашёл, но не вышло (файл вообще не редачился) - и MSDN заявило, что теперь только 1 и 8 осталось (8 работает - но в данном случае это не то) - переделал "в лоб"; хотя не исключаю, что это просто вечер пьятницы Автор - buchlotnik Дата добавления - 04.11.2017 в 00:17
RAN
Дата: Суббота, 04.11.2017, 00:25 |
Сообщение № 18
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Тады ОЙ!
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Тады ОЙ! Автор - RAN Дата добавления - 04.11.2017 в 00:25
buchlotnik
Дата: Суббота, 04.11.2017, 00:47 |
Сообщение № 19
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
[offtop]Проверил - в VBS[vba]Код
.OpenTextFile filename, 2
[/vba] как и раньше есть, а в VBA - действительно нет, пичаль [/offtop]
[offtop]Проверил - в VBS[vba]Код
.OpenTextFile filename, 2
[/vba] как и раньше есть, а в VBA - действительно нет, пичаль [/offtop] buchlotnik
Сообщение отредактировал buchlotnik - Суббота, 04.11.2017, 00:58
Ответить
Сообщение [offtop]Проверил - в VBS[vba]Код
.OpenTextFile filename, 2
[/vba] как и раньше есть, а в VBA - действительно нет, пичаль [/offtop] Автор - buchlotnik Дата добавления - 04.11.2017 в 00:47
RAN
Дата: Суббота, 04.11.2017, 12:35 |
Сообщение № 20
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Миш, у тебя VBA в бокал ныряет? Проверил в VBA - все в порядке,
Миш, у тебя VBA в бокал ныряет? Проверил в VBA - все в порядке, RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Миш, у тебя VBA в бокал ныряет? Проверил в VBA - все в порядке, Автор - RAN Дата добавления - 04.11.2017 в 12:35