| |
|
|
| | Чё та я туплю ваще и не нахожу решеия.
Как можно переименовать лежащий заведомо известно где файл. И потом его перенести в новое место хранения.
ну перенести то Copy. Типа понятно. | |
| |
| |
|
|
| |
|
|
| | спасибо!  | |
| |
| |
| |
|
|
| | Тупость - не закончена.
А можно как то в текстовом файле ненужные строки, идущие после ключевого слова - удалять? | |
| |
| |
| |
|
|
| | поиск по словам
FileSystemObject
TextStream | |
| |
| |
|
|
| |
|
|
| | главное шоб ключевое слово не дублировалось, в противном случае налицо усложнение логики...
вообще, если файл не слишком тяжелый, мона грузить в массив с разделителем в кач-ве ключевого слова. далее выгрузка обратно тока первой строки массива, либо всех, кроме последней (обрезание посмле первого или последнего ключюслова). Как то так навскидку..  | |
| |
| |
|
|
| |
|
|
| | Переименовать файл или переместить в пределах диска можно и средтвами VBA:
Name староеИмя As новоеИмя
Заменить существующий нельзя, но его наличие можно проверить (Dir) и удалить (Kill)
А можно как то в текстовом файле ненужные строки, идущие после ключевого слова - удалять
|
Опять же средтвами VBA можно прочитать содержимое файла в переменную:
i = FreeFile: Open "C:\Файл.txt" For Input As i: s = Input(LOF(i), i): Close i
|
Затем в переменной наити вхождение ключевого слова (InStr), отбросить лишнее (Left) и сохранить в файле:
i = FreeFile: Open "C:\Файл.txt" For Output As i
Print #i, s
Close #i
|
PS. Обе задачи можно выполнить и с помощью FSO. Это дело вкуса. | |
| |
| |
| |
|
|
| | Спасибо.
Надо подумать, потому как не совсем всё удалять надо, а только несколько строк.
До следующего ключевого слова. | |
| |
| |
