Софт/Скрипт для объединения текста из нескольких файлов

12
seomunch
На сайте с 21.11.2008
Offline
60
2301

Ищется софт, или скрипт, или что то, что умеет объединять текст из нескольких файлов в один текстовый документ.

Например:

file1.txt

1

2

file2.txt

3

4

file3.txt

5

6

И на выходе файл

result.txt

135

246

Лет 7 - 8 назад натыкался на самописный софт в инете, естессн без названия без всего. Сейчас понадобился резко - а нету. Может кто подскажет, как объединить 3 куска из разных файлов в один (в одну строчку).

Банк времени (http://bank-vremeni.ru) - обменивайся своими возможностями с другими
d4k
На сайте с 02.03.2010
Offline
146
d4k
#1

Знаю платный - Scrapebox. И еще аддон к нему есть кажется...

DV
На сайте с 01.05.2010
Offline
644
#2

Если у вас Windows, поставьте Cygwin. Если Unix/Linux, пользуйте прямо так.

Подобные задачи решаются однострочной командой. cat, grep, tr, sed. Должно хватить.

VDS хостинг ( http://clck.ru/0u97l ) Нет нерешаемых задач ( https://searchengines.guru/ru/forum/806725 ) | Перенос сайтов на Drupal 7 с любых CMS. ( https://searchengines.guru/ru/forum/531842/page6#comment_10504844 )
Антон Белов
На сайте с 28.05.2010
Offline
183
#3

закажите скрипт на пхп - он пишется за несколько минут

Аудит за 100 рублей (/ru/forum/787849) теперь реальность курс Подводные камни мфа (/ru/forum/comment/11861126) - всего за 100 рублей Твой сервер снова лежит? Пользуюсь Inferno Solutions, таких проблем не знаю. (http://cp.inferno.name/link.php?id=13)
Z0
На сайте с 15.10.2007
Offline
89
#4

если известны названия файлов, то

copy /b c:\1.txt+c:\2.txt c:\3.txt

если все файлы в папке, то

for %f in (*.log) do type "%f" >> aggregate.txt

CashPlanet - монетизация гемблингового трафика (http://cashplanet.org/)
seomunch
На сайте с 21.11.2008
Offline
60
#5

Неужели десктопного софта нет?

DV
На сайте с 01.05.2010
Offline
644
#6

Консоли боитесь? Не бойтесь, оно только поначалу страшное и тёмное. Через год отказа от Win чувствую себя неуютно без шелла.

SS
На сайте с 02.02.2009
Offline
116
#7

seomunch, можно гораздо проще если не хочется консолей берем total commander, far или любой файловый менеджер который при копировании одинаковых файлов спрашивает дописать файл или нет.

т.к. это обычный текстовый файл, то можно безболезнено их дописывать из одного окошка в другое кидаем, при необходимости сразу делаем одинаковые имена или во время копирования переименуем.

p.s. недостаток метода, если нет последнего пустой строки в последней строки дописываемого документа, последняя строка текущего документа и первая второго документа могут дописываться без абзаца.

seomunch
На сайте с 21.11.2008
Offline
60
#8

Да не то что боюсь, хочется удобств)

---------- Добавлено 28.06.2012 в 14:51 ----------

specialist-seo:
seomunch, можно гораздо проще если не хочется консолей берем total commander, far или любой файловый менеджер который при копировании одинаковых файлов спрашивает дописать файл или нет.

т.к. это обычный текстовый файл, то можно безболезнено их дописывать из одного окошка в другое кидаем, при необходимости или сразу делаем одинаковые имена или во время копирования переименуем.

Ну он допишет не в ту же строчку ведь? Мне нужно выдрать одинаковые строчки из разных файлов и записать в одну строчку в другой файл, без переносов.

DV
На сайте с 01.05.2010
Offline
644
#9
Да не то что боюсь, хочется удобств)

Нетиповые задачи выполняются с равным мозговым напряжением как при использовании GUI, так и CLI.

GUI, предоставляя мышиный комфорт, держит пользователя в рамках имеющихся окошек с имеющимися кнопками. CLI же, имея из междумордий клавиатуру и черноту с символами, рамок не задаёт вообще, т.е. здесь ваша фантазия вольна извратиться как желает. Если захочет.

limoshkaa
На сайте с 31.07.2010
Offline
85
#10

Скрипт .vbs


Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")

JoinTXT "1 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "2 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "3 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "4 папка с файлами ТУТ Прописываем папку с фйлами "


Sub JoinTXT(strFolderPath)
Dim objFolder, objFile, strTempText, strAllText

If objFSO.FolderExists(strFolderPath) Then
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each objFile In objFolder.Files
strExt = LCase(objFSO.GetExtensionName(objFile.Path))
If (strExt = "txt") Or (strExt = "log") Then
strTempText = ReadFile(objFile.Path)
If strTempText <> "" Then
strAllText = strAllText & strTempText & vbCrLf
End If
'objFile.Delete True ' удалить файл
End If
Next
End If

Set objFile = objFSO.CreateTextFile(strFolderPath & "\AllTextFiles.txt")
objFile.Write strAllText
objFile.Close
End Sub

MsgBox "выход"
Set objFSO = Nothing
Wscript.quit


Function ReadFile(strTempFilePath)
On Error Resume Next
Dim objTempFile, strText
Set objTempFile = objFSO.OpenTextFile(strTempFilePath, 1, False)
strText = objTempFile.Readall
objTempFile.Close
ReadFile = strText
End Function

После запустить

12

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий