Сообщений в теме: 3

[devostator]

Есть несколько тысяч файлов, в формате csv.

Мне нужно сделать выборку определенных строк.

До этого вроде неплохо справлялся Amazing Keywords.

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

Вручную добавить все базы для выборки не представляется возможным, ввиду их количества.

В принципе есть команда мс дос, которая клеит 2 файла в один, но как уже сказал файлов много.

 

Как можно корректно и без ошибок склеить тысячи файлов csv в один? ( общий вес более 100 гб )

 

 

[akir]

Закинуть к csv файлам.

Запустить

 

https://yadi.sk/d/2yL3pGcJsKjsy

[Тони]

либо

качаешь тотал командер

 

в коммандере открываешь папку с Csv 
далее открываешь в тотале командную строку

и  вбиваешь волшебные слова
COPY *.CSV simsalabimrahlukum.csv (тоже самое с .txt форматом)     

 

и вуаля. 10 секунд и все готово

 

UPД
Склеил я базу 2гис всех городов  в один файл!
вопрос - как с ним теперь работать)  После склейки он теперь весит 1гигабайт)) 

[Тони]

есть еще один вариант через макрос в екселе

что бы корректно этот макрос работал нужно: 
Что бы в каждом файле 1 строчка -была шапкой

со 2 файла макрос будет удалять шапку, тем самым получится один единый документ

открыть

Sub Склеить_CSV_файлы_из_CurDir()
' Макрос последовательно вставляет в новый файл
' данные из всех CSV файлов текущей директории, со 2-го - без шапки.
Dim i&, j&
Dim TextLine$, MyPath$, MyFileName1$, MyFileName2$
'MyPath = CurDir & ""
MyPath = ActiveWorkbook.Path & ""
MyFileName2 = "Склейка.csv"
Open MyFileName2 For Output Lock Write As #2
MyFileName1 = Dir(MyPath & "*.csv")
i = 0
Do Until MyFileName1 = ""
Open MyPath & MyFileName1 For Input Lock Read As #1
i = i + 1
j = 0
Do While Not EOF(1)
Line Input #1, TextLine
j = j + 1
If i = 1 Or j > 1 Then Print #2, TextLine
Loop
Close #1
MyFileName1 = Dir
Loop
Close #2
End Sub