Как собрать несколько файлов в один

Материал из TCKB 2.0

Перейти к: навигация, поиск
Q: Как собрать несколько файлов в один?
A: Создай файлик *.vbs. Повесь его на кнопку. В параметрах пропиши %L. Код файла:
Dim FileAll, FSO, List, F, WriteFile
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8
 
FileAll = InputBox("Введите имя файла", "Копирование содержимого", "all.txt")
if FileAll = "" then
  MsgBox "Не задано имя файла!", _
         vbOKOnly + vbExclamation, _
         "Копирование содержимого"
  WScript.Quit
End if
 
Set FSO = CreateObject("Scripting.FileSystemObject")
List = FSO.OpenTextFile(WScript.Arguments(0), ForReading).ReadAll
Set WriteFile = FSO.OpenTextFile(FileAll, ForAppending, True)
 
For Each F In Split(List, vbNewLine)
  If F <> "" Then
    WriteFile.Write FSO.OpenTextFile(F, ForReading).ReadAll
    WriteFile.Write vbNewLine
  End If
Next
WriteFile.Close
 
Set WriteFile = Nothing
Set FSO       = Nothing
WScript.Quit


Batya


A: Как вариант: переименовываем файлики по виду file01.ext file02.ext (легко делается мультиренеймом), ставим курсор на первый файл и лезем в меню Файл->Собрать. На выходе получаем искомый файл.


NakaRB

Личные инструменты
Реклама