Как объединить несколько файлов в один
Автор Ђрушвила Щпуок задал вопрос в разделе Программное обеспечение
Как объединить текстовые файлы в один? и получил лучший ответ
Ответ от Мюнхгаузен[гуру]
Не может. Либо открыть любой текстовый редактор и вставлять в файл один текст за другим, либо воспользоваться скриптом, имеющим права выполнения в системе.
Ответ от Волосатый Доброжелатель[гуру]
можно сделать так:
заходите в текстовик, нажимаете Ctrl+A (выделить ВСЁ), далее Ctrl+C (копировать) /или Ctrl+X (вырезать). Переходите в другой текстовик (в который надо ВСЁ скинуть) жмётё клавишу END чтоб курсор оказался в самом конце текста. Ставите пару Enter'ов чтоб отделить текст от предыдущего и вставляете то что скопировали Ctrl+V (вставить). Аналогично с каждым текстовым документом
можно сделать так:
заходите в текстовик, нажимаете Ctrl+A (выделить ВСЁ), далее Ctrl+C (копировать) /или Ctrl+X (вырезать). Переходите в другой текстовик (в который надо ВСЁ скинуть) жмётё клавишу END чтоб курсор оказался в самом конце текста. Ставите пару Enter'ов чтоб отделить текст от предыдущего и вставляете то что скопировали Ctrl+V (вставить). Аналогично с каждым текстовым документом
Ответ от Дмитрий К[мастер]
Как вариант использовать нечто вроде
А потом уже лист сохранить в текстовый файл.
Или написать отдельный код, который будет сгружать всю информацию с файлов в один. В принципе, код несложный.
Sub Get_All_TXT_Text()
Dim avFiles, li As Long
avFiles = Application.GetOpenFilename("TXT Files(*.txt),*.txt", , True)
If VarType(avFiles) = vbBoolean Then Exit Sub
Dim objFSO As Object, objTxtFile As Object, sTxt, sAllTxt
Set objFSO = CreateObject("Scripting.FileSystemObject")
For li = LBound(avFiles) To UBound(avFiles)
Set objTxtFile = objFSO.OpenTextFile(avFiles(li), 1)
sTxt = objTxtFile.ReadAll
sAllTxt = sAllTxt & vbNewLine & sTxt
objTxtFile.Close
Next li
Set objTxtFile = objFSO.CreateTextFile("C:/AllText.txt", True)
objTxtFile.WriteLine sAllTxt
objTxtFile.Close
Set objTxtFile = Nothing: Set objFSO = Nothing
End Sub
Поместить код необходимо в в файле Excel и нажать F5. После чего просто выбрать файлы, а затем перейти в диск C и открыть файл AllText. Наслаждаться результатом.
Как вариант использовать нечто вроде
А потом уже лист сохранить в текстовый файл.
Или написать отдельный код, который будет сгружать всю информацию с файлов в один. В принципе, код несложный.
Sub Get_All_TXT_Text()
Dim avFiles, li As Long
avFiles = Application.GetOpenFilename("TXT Files(*.txt),*.txt", , True)
If VarType(avFiles) = vbBoolean Then Exit Sub
Dim objFSO As Object, objTxtFile As Object, sTxt, sAllTxt
Set objFSO = CreateObject("Scripting.FileSystemObject")
For li = LBound(avFiles) To UBound(avFiles)
Set objTxtFile = objFSO.OpenTextFile(avFiles(li), 1)
sTxt = objTxtFile.ReadAll
sAllTxt = sAllTxt & vbNewLine & sTxt
objTxtFile.Close
Next li
Set objTxtFile = objFSO.CreateTextFile("C:/AllText.txt", True)
objTxtFile.WriteLine sAllTxt
objTxtFile.Close
Set objTxtFile = Nothing: Set objFSO = Nothing
End Sub
Поместить код необходимо в в файле Excel и нажать F5. После чего просто выбрать файлы, а затем перейти в диск C и открыть файл AllText. Наслаждаться результатом.
Ответ от Goge Kos[новичек]
В тотале есть функция собрать файлы. Файлы которые будут собиратся должны именоваться по возрастающей. - файл1.тхт, файл2.тхт и т. д.
проще всего это сделать через коммандную строку и никаких скриптов не нужно!
копи *.тхт Ц: папкаимя файла. тхт
В тотале есть функция собрать файлы. Файлы которые будут собиратся должны именоваться по возрастающей. - файл1.тхт, файл2.тхт и т. д.
проще всего это сделать через коммандную строку и никаких скриптов не нужно!
копи *.тхт Ц: папкаимя файла. тхт
Ответ от Настройка[новичек]
Выполнить комманду в папке с файлами
copy *.txt RESULT.txt
Выполнить комманду в папке с файлами
copy *.txt RESULT.txt
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как объединить текстовые файлы в один?