Как объединить текстовые файлы в один?
Мне нужно, чтобы вся информация из каждого отдельного текстового файла, оказалась в одном текстовом файле.
Может ли для этого пригодиться Total Commander?
Не может. Либо открыть любой текстовый редактор и вставлять в файл один текст за другим, либо воспользоваться скриптом, имеющим права выполнения в системе.
Выполнить комманду в папке с файлами
copy *.txt RESULT.txt
В тотале есть функция собрать файлы. Файлы которые будут собиратся должны именоваться по возрастающей. - файл1.тхт, файл2.тхт и т. д.
проще всего это сделать через коммандную строку и никаких скриптов не нужно!
копи *.тхт Ц: \папка\имя файла. тхт
Как вариант использовать нечто вроде [ссылка заблокирована по решению администрации проекта]
А потом уже лист сохранить в текстовый файл.
Или написать отдельный код, который будет сгружать всю информацию с файлов в один. В принципе, код несложный.
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. Наслаждаться результатом.
можно сделать так:
заходите в текстовик, нажимаете Ctrl+A (выделить ВСЁ), далее Ctrl+C (копировать) /или Ctrl+X (вырезать) . Переходите в другой текстовик (в который надо ВСЁ скинуть) жмётё клавишу END чтоб курсор оказался в самом конце текста. Ставите пару Enter'ов чтоб отделить текст от предыдущего и вставляете то что скопировали Ctrl+V (вставить) . Аналогично с каждым текстовым документом
