Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Как скопировать несколько файлов в один?
Goto page 1, 2, 3, 4, 5, 6  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Thu Feb 10, 2005 09:15    Post subject: Как скопировать несколько файлов в один? Reply with quote

типа
copy *.txt all.txt
Только с помощью тотала, т.е отмечаем нужные файлы на панели жмем кнопку или комбинацию клавиш вводив имя результирующего файла и се
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Feb 10, 2005 14:48    Post subject: Reply with quote

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
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Thu Feb 10, 2005 14:50    Post subject: Reply with quote

Спасиб конечно, но похоже это не будет работать в win95-98
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Feb 10, 2005 15:04    Post subject: Reply with quote

Не работает или "похоже"?
Back to top
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Thu Feb 10, 2005 15:12    Post subject: Reply with quote

в 95-98 скрипты отдельно устанавливаются или я не прав?
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Feb 10, 2005 15:25    Post subject: Reply with quote

vbs должны работать (правда, с некоторыми отличиями) в любых Win.
Back to top
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Thu Feb 10, 2005 15:37    Post subject: Reply with quote

ну посмотрим, пока надо только в XP было, а то в нортоне слить нужна была - а на этих же файлах тотал не работает - а функция очень нужная - а нортон в ХП тормозит да умереть пора ему
Back to top
View user's profile Send private message
Сергеич



Joined: 15 Dec 2004
Posts: 152

Post (Separately) Posted: Thu Feb 10, 2005 15:40    Post subject: Reply with quote

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
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Feb 10, 2005 15:40    Post subject: Reply with quote

Будут проблемы - пиши, разберемся.
Back to top
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Thu Feb 10, 2005 15:46    Post subject: Reply with quote

В принципе и скрипт устраивает - можно поменять - разделитель напривер всавить какой ну и тп. Вомщем-то я думал это встроенное средство тотала есть такое, если команда copy *.txt all.txt делает это
Smile
Back to top
View user's profile Send private message
Сергеич



Joined: 15 Dec 2004
Posts: 152

Post (Separately) Posted: Thu Feb 10, 2005 15:50    Post subject: Reply with quote

и есть ещё одна старая тулса:

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
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Fri Feb 11, 2005 19:50    Post subject: Reply with quote

mike
А есть и возможность средствами TC! Smile
Выделяешь, нажимаешь F5, вводишь маску "all12345*.txt", ОК, для каждого файла сказать "Дописать" и настоять на продолжении.
Небольшая тонкость - в маске файла приемника обязательно должна быть * и количество символов до * должно быть не меньше количества символов в самом длинном имени из копируемых файлов.
Back to top
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Sat Feb 12, 2005 13:58    Post subject: Reply with quote

Batya
Ну это не очень хорошо, а если имена файлов 30 символов или более? Sad(
Back to top
View user's profile Send private message
Сергеич



Joined: 15 Dec 2004
Posts: 152

Post (Separately) Posted: Sat Feb 12, 2005 14:10    Post subject: Reply with quote

ну тогда маску ставишь например all.txt? - со знаком вопроса или звездочки на конце.
Но вот только если файлов много впаривает жать на дописать и продолжить.
Back to top
View user's profile Send private message
mike



Joined: 10 Feb 2005
Posts: 10

Post (Separately) Posted: Sat Feb 12, 2005 14:15    Post subject: Reply with quote

Ну не уж такую фичу в тотале не могли сделать?
А перенаправление копированиия, например в null или nil есть?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page 1, 2, 3, 4, 5, 6  Next
Page 1 of 6

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group