View previous topic :: View next topic |
Author |
Message |
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Thu Feb 10, 2005 09:15 Post subject: Как скопировать несколько файлов в один? |
|
|
типа
copy *.txt all.txt
Только с помощью тотала, т.е отмечаем нужные файлы на панели жмем кнопку или комбинацию клавиш вводив имя результирующего файла и се |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Thu Feb 10, 2005 14:48 Post subject: |
|
|
mike
Создай файлик *.vbs. Повесь его на кнопку. В параметрах пропиши %L. Код файла:
Code: | Dim FSO, TempFile, SelFile, WriteFile, OpenFile
Set FSO = CreateObject("Scripting.FileSystemObject")
ForReading = 1 'Open a file for reading only. You can't write to this file
ForWriting = 2 'Open a file for writing
ForAppending = 8 'Open a file and write to the end of the file
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), ForReading)
FileAll = InputBox("Введите имя файла", "Копирование содержимого", "all.txt")
if Len(FileAll) = 0 then
A1 = MsgBox("Не задано имя файла!", vbOKOnly + vbExclamation, "Копирование содержимого")
WScript.Quit(1)
End if
Set WriteFile = FSO.OpenTextFile(FileAll, ForAppending, True)
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
Set OpenFile = FSO.OpenTextFile(SelFile, ForReading)
WriteFile.Write OpenFile.ReadAll
WriteFile.Write chr(13)
Loop
WScript.Quit |
|
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Thu Feb 10, 2005 14:50 Post subject: |
|
|
Спасиб конечно, но похоже это не будет работать в win95-98 |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Thu Feb 10, 2005 15:04 Post subject: |
|
|
Не работает или "похоже"? |
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Thu Feb 10, 2005 15:12 Post subject: |
|
|
в 95-98 скрипты отдельно устанавливаются или я не прав? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Thu Feb 10, 2005 15:25 Post subject: |
|
|
vbs должны работать (правда, с некоторыми отличиями) в любых Win. |
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Thu Feb 10, 2005 15:37 Post subject: |
|
|
ну посмотрим, пока надо только в XP было, а то в нортоне слить нужна была - а на этих же файлах тотал не работает - а функция очень нужная - а нортон в ХП тормозит да умереть пора ему |
|
Back to top |
|
|
Сергеич
Joined: 15 Dec 2004 Posts: 152
|
(Separately) Posted: Thu Feb 10, 2005 15:40 Post subject: |
|
|
Combain (Комбайн)
Version 1.1
Copyright © 2001, Tir Na Nog
http://tirna.narod.ru
tirna@narod.ru
ОПИСАНИЕ.
Программа Combain предназначена для сборки из нескольких файлов
одного.
Файлы, из которых собирается результрующий файл, могут быть заданы как
по маске (с символами *,?), так и находиться в файле-списке,
формируемом, например, средствами Total Commander'а.
Программа запускается из командной строки, но при возникновении
ситуации, когда какой-либо параметр не задан, появляется диалоговое
окно, в котором можно задать и изменить требуемые значения.
ИСПОЛЬЗОВАНИЕ.
Строка запуска.
combain.exe {<list-file>|<file-mask>} <destination file> [{/|-}d] |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Thu Feb 10, 2005 15:40 Post subject: |
|
|
Будут проблемы - пиши, разберемся. |
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Thu Feb 10, 2005 15:46 Post subject: |
|
|
В принципе и скрипт устраивает - можно поменять - разделитель напривер всавить какой ну и тп. Вомщем-то я думал это встроенное средство тотала есть такое, если команда copy *.txt all.txt делает это
|
|
Back to top |
|
|
Сергеич
Joined: 15 Dec 2004 Posts: 152
|
(Separately) Posted: Thu Feb 10, 2005 15:50 Post subject: |
|
|
и есть ещё одна старая тулса:
Combine for Windows Commander.
by GalanSoftWare (c) 2001
Usage: Combine4WC.exe <filelist> <param>
<filelist> - path to file list (generated by Windows Commander)
<param> -
N:<name> - filename without extension
E:<ext> - extension without filename
тоже работает.... |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Fri Feb 11, 2005 19:50 Post subject: |
|
|
mike
А есть и возможность средствами TC!
Выделяешь, нажимаешь F5, вводишь маску "all12345*.txt", ОК, для каждого файла сказать "Дописать" и настоять на продолжении.
Небольшая тонкость - в маске файла приемника обязательно должна быть * и количество символов до * должно быть не меньше количества символов в самом длинном имени из копируемых файлов. |
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Sat Feb 12, 2005 13:58 Post subject: |
|
|
Batya
Ну это не очень хорошо, а если имена файлов 30 символов или более? ( |
|
Back to top |
|
|
Сергеич
Joined: 15 Dec 2004 Posts: 152
|
(Separately) Posted: Sat Feb 12, 2005 14:10 Post subject: |
|
|
ну тогда маску ставишь например all.txt? - со знаком вопроса или звездочки на конце.
Но вот только если файлов много впаривает жать на дописать и продолжить. |
|
Back to top |
|
|
mike
Joined: 10 Feb 2005 Posts: 10
|
(Separately) Posted: Sat Feb 12, 2005 14:15 Post subject: |
|
|
Ну не уж такую фичу в тотале не могли сделать?
А перенаправление копированиия, например в null или nil есть? |
|
Back to top |
|
|
|