Как скопировать несколько файлов в один?
Select messages from
# through # FAQ
[/[Print]\]
Goto page 1, 2, 3, 4, 5, 6  Next  :| |:
Total Commander -> Автоматизация Total Commander

#1: Как скопировать несколько файлов в один? Author: mike PostPosted: Thu Feb 10, 2005 09:15
    —
типа
copy *.txt all.txt
Только с помощью тотала, т.е отмечаем нужные файлы на панели жмем кнопку или комбинацию клавиш вводив имя результирующего файла и се

#2:  Author: BatyaLocation: Москва, Россия PostPosted: Thu Feb 10, 2005 14:48
    —
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

#3:  Author: mike PostPosted: Thu Feb 10, 2005 14:50
    —
Спасиб конечно, но похоже это не будет работать в win95-98

#4:  Author: BatyaLocation: Москва, Россия PostPosted: Thu Feb 10, 2005 15:04
    —
Не работает или "похоже"?

#5:  Author: mike PostPosted: Thu Feb 10, 2005 15:12
    —
в 95-98 скрипты отдельно устанавливаются или я не прав?

#6:  Author: BatyaLocation: Москва, Россия PostPosted: Thu Feb 10, 2005 15:25
    —
vbs должны работать (правда, с некоторыми отличиями) в любых Win.

#7:  Author: mike PostPosted: Thu Feb 10, 2005 15:37
    —
ну посмотрим, пока надо только в XP было, а то в нортоне слить нужна была - а на этих же файлах тотал не работает - а функция очень нужная - а нортон в ХП тормозит да умереть пора ему

#8:  Author: Сергеич PostPosted: Thu Feb 10, 2005 15:40
    —
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]

#9:  Author: BatyaLocation: Москва, Россия PostPosted: Thu Feb 10, 2005 15:40
    —
Будут проблемы - пиши, разберемся.

#10:  Author: mike PostPosted: Thu Feb 10, 2005 15:46
    —
В принципе и скрипт устраивает - можно поменять - разделитель напривер всавить какой ну и тп. Вомщем-то я думал это встроенное средство тотала есть такое, если команда copy *.txt all.txt делает это
Smile

#11:  Author: Сергеич PostPosted: Thu Feb 10, 2005 15:50
    —
и есть ещё одна старая тулса:

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

тоже работает....

#12:  Author: BatyaLocation: Москва, Россия PostPosted: Fri Feb 11, 2005 19:50
    —
mike
А есть и возможность средствами TC! Smile
Выделяешь, нажимаешь F5, вводишь маску "all12345*.txt", ОК, для каждого файла сказать "Дописать" и настоять на продолжении.
Небольшая тонкость - в маске файла приемника обязательно должна быть * и количество символов до * должно быть не меньше количества символов в самом длинном имени из копируемых файлов.

#13:  Author: mike PostPosted: Sat Feb 12, 2005 13:58
    —
Batya
Ну это не очень хорошо, а если имена файлов 30 символов или более? Sad(

#14:  Author: Сергеич PostPosted: Sat Feb 12, 2005 14:10
    —
ну тогда маску ставишь например all.txt? - со знаком вопроса или звездочки на конце.
Но вот только если файлов много впаривает жать на дописать и продолжить.

#15:  Author: mike PostPosted: Sat Feb 12, 2005 14:15
    —
Ну не уж такую фичу в тотале не могли сделать?
А перенаправление копированиия, например в null или nil есть?



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page 1, 2, 3, 4, 5, 6  Next  :| |:
Page 1 of 6

Powered by phpBB © 2001, 2005 phpBB Group