- Поисковые системы
- Практика оптимизации
- Трафик для сайтов
- Монетизация сайтов
- Сайтостроение
- Социальный Маркетинг
- Общение профессионалов
- Биржа и продажа
- Финансовые объявления
- Работа на постоянной основе
- Сайты - покупка, продажа
- Соцсети: страницы, группы, приложения
- Сайты без доменов
- Трафик, тизерная и баннерная реклама
- Продажа, оценка, регистрация доменов
- Ссылки - обмен, покупка, продажа
- Программы и скрипты
- Размещение статей
- Инфопродукты
- Прочие цифровые товары
- Работа и услуги для вебмастера
- Оптимизация, продвижение и аудит
- Ведение рекламных кампаний
- Услуги в области SMM
- Программирование
- Администрирование серверов и сайтов
- Прокси, ВПН, анонимайзеры, IP
- Платное обучение, вебинары
- Регистрация в каталогах
- Копирайтинг, переводы
- Дизайн
- Usability: консультации и аудит
- Изготовление сайтов
- Наполнение сайтов
- Прочие услуги
- Не про работу
Что делать, если ваша email-рассылка попала в спам
10 распространенных причин и решений
Екатерина Ткаченко
В 2023 году Одноклассники пресекли более 9 млн подозрительных входов в учетные записи
И выявили более 7 млн подозрительных пользователей
Оксана Мамчуева
Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий
Ищется софт, или скрипт, или что то, что умеет объединять текст из нескольких файлов в один текстовый документ.
Например:
file1.txt
1
2
file2.txt
3
4
file3.txt
5
6
И на выходе файл
result.txt
135
246
Лет 7 - 8 назад натыкался на самописный софт в инете, естессн без названия без всего. Сейчас понадобился резко - а нету. Может кто подскажет, как объединить 3 куска из разных файлов в один (в одну строчку).
Знаю платный - Scrapebox. И еще аддон к нему есть кажется...
Если у вас Windows, поставьте Cygwin. Если Unix/Linux, пользуйте прямо так.
Подобные задачи решаются однострочной командой. cat, grep, tr, sed. Должно хватить.
закажите скрипт на пхп - он пишется за несколько минут
если известны названия файлов, то
copy /b c:\1.txt+c:\2.txt c:\3.txt
если все файлы в папке, то
for %f in (*.log) do type "%f" >> aggregate.txt
Неужели десктопного софта нет?
Консоли боитесь? Не бойтесь, оно только поначалу страшное и тёмное. Через год отказа от Win чувствую себя неуютно без шелла.
seomunch, можно гораздо проще если не хочется консолей берем total commander, far или любой файловый менеджер который при копировании одинаковых файлов спрашивает дописать файл или нет.
т.к. это обычный текстовый файл, то можно безболезнено их дописывать из одного окошка в другое кидаем, при необходимости сразу делаем одинаковые имена или во время копирования переименуем.
p.s. недостаток метода, если нет последнего пустой строки в последней строки дописываемого документа, последняя строка текущего документа и первая второго документа могут дописываться без абзаца.
Да не то что боюсь, хочется удобств)
---------- Добавлено 28.06.2012 в 14:51 ----------
seomunch, можно гораздо проще если не хочется консолей берем total commander, far или любой файловый менеджер который при копировании одинаковых файлов спрашивает дописать файл или нет.
т.к. это обычный текстовый файл, то можно безболезнено их дописывать из одного окошка в другое кидаем, при необходимости или сразу делаем одинаковые имена или во время копирования переименуем.
Ну он допишет не в ту же строчку ведь? Мне нужно выдрать одинаковые строчки из разных файлов и записать в одну строчку в другой файл, без переносов.
Нетиповые задачи выполняются с равным мозговым напряжением как при использовании GUI, так и CLI.
GUI, предоставляя мышиный комфорт, держит пользователя в рамках имеющихся окошек с имеющимися кнопками. CLI же, имея из междумордий клавиатуру и черноту с символами, рамок не задаёт вообще, т.е. здесь ваша фантазия вольна извратиться как желает. Если захочет.
Скрипт .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
После запустить