Excel - podmienka kopirovanie z viac .cvs suborov do noveho

[DestinySVK]

Zdravim

Potreboval by som VBA script na kopirovanie a to:

mam 10 .cvs suborov (00.cvs az 10.cvs a postupne ich otvaram a hladam v 3. stlpci hodnotu "X"
ak ju najdem okopirujem cely riadok do suboru trebars "00.cvs"

inak povedane - hladam vo vosetkych suboroch v 3. stlpci hodnotu "X" a vlozim vsetky najdene riadky do noveho suboru.

Vdaka za pomoc.

[Reklama]

[Uziv00]

Pročti si tohle: viewtopic.php?f=39&t=106648&hilit=+vbs+skript
Pak mi odpověz na všechno, na co jsem se ptal v tom tématu. K tomu bych doplnil jen - hodnota "X" může být jen ve třetím sloupci nebo i v jiném?

[DestinySVK]

1. Hodnota "X" napriklad "479" je vzdy v 3. stlpci
2. subor ma vzdy iba 3 stlpce (A,B,C) ostatne stlpce su uz prazdne

Můžu ti na to napsat skript. Potřebuji:
Přesný název prvního souboru i s cestou (př. C:\Program Files\Superprogram.txt)
- C:\00.csv
Počet řádků v prvním souboru je vždy konstantní, nebo se mění?
- pocet je cca 1100000 (1,1 miliona) v kazdom subore
Přesný název druhého souboru i s cestou
- C:\01.csv az C:\10.csv
Druhý soubor může být vytvářen, nebo se může zapisovat na konec minulého souboru.
- toto sa ma netyka
Skript také může kopírovat jen ty řádky, které obsahují určitý řetězec.
- musi kopirovat len kde je v 3 stlpci "479" - okopiruje riadok cize stlpec A B C
Operační systém, který používáš.
- win co ine

[Uziv00]

Když jsou sloupce A a B prázdné, pak nechápu význam vytváření souboru, který bude mít jen prázdné sloupce + 479
Jsou v souboru některé řádky úplně prázdné?
Win které???
Není to tak jednoduché což?
A konečně vzorek souboru. Tedy alespoň prvních 10 řádků.

[Uziv00]

Takže nic. Ale možná na to není třeba nic psát. Teoreticky bys ty soubory mohl sloučit (to umí i totalcommander), pomocí podmínky skrýt všechny řádky, které neobsahují ve 3. sloupci 476, no a to co uvidíš vyexportovat do .csv.

[DestinySVK]

Když jsou sloupce A a B prázdné, pak nechápu význam vytváření souboru, který bude mít jen prázdné sloupce + 479
Jsou v souboru některé řádky úplně prázdné?
Win které???
Není to tak jednoduché což?
A konečně vzorek souboru. Tedy alespoň prvních 10 řádků.

Stlpce A a B niesu prazdne su tam data...
Win XP Home SP3
oki vzorek pripojeny - .cvs mi nedovolilo pripojit tak pripajam .xml

--- Doplnění předchozího příspěvku (23 Kvě 2013 22:16) ---

Takže nic. Ale možná na to není třeba nic psát. Teoreticky bys ty soubory mohl sloučit (to umí i totalcommander), pomocí podmínky skrýt všechny řádky, které neobsahují ve 3. sloupci 476, no a to co uvidíš vyexportovat do .csv.

Musel by som to robit cca 100x pri kazdom filtrovani... nerealne :)

[Uziv00]

Na to ti kašlu. Označ prvních 20 řádků a vlož je do Code. případně, pokud je soubor příliš velký, tak ho zmenši a přilož. Musím vědět s čím skript bude pracovat.

[DestinySVK]

Jeden programator mi nieco uz spravil ale spravil to zlozitejsie ako som chcel takze to nefunguje :)
On urobil vsetko co potrebujem az na jeden detail - najskor zlucil subory do kopy a potom vyfiltroval hodnoty.
A to pri velkych datach nejde.
V tomto scripte staci prerobit jedine - nezlucovat subory do jedneho a ten filtrovat (list3 v subore) ale filtrovat priamo otvarane subory

pripajam...

--- Doplnění předchozího příspěvku (23 Kvě 2013 22:25) ---

Na to ti kašlu. Označ prvních 20 řádků a vlož je do Code. případně, pokud je soubor příliš velký, tak ho zmenši a přilož. Musím vědět s čím skript bude pracovat.

Kód: Vybrat vše

LAT_TYP_ID   LAT_LA_ID   LAT_GA_ID
1   536408   286
1   559494   1211
1   559597   1211
1   559626   1211
1   559655   1211
1   771705   259
1   771729   259
1   841782   289
1   841832   289
1   846804   289
1   846838   289
1   1065426   807
1   1082180   805
1   1140927   2
1   1227146   4
1   1303208   447
1   1456633   105
1   1480373   106
1   1482178   107
1   1518103   106
1   1527953   107
1   1586177   2126
1   1635674   470


[Uziv00]

jasně. Jenže on věděl, s jakými soubory pracuje. A to já musím vědět taky. Jinak to fungovat nebude.

[DestinySVK]

priloha

[Uziv00]

Já v tom csv vidím tohle:

Kód: Vybrat vše

1;1;479;1
2;2;100;2
3;3;300;3
4;4;200;4
5;5;100;5
6;6;300;6
7;1;200;1
8;2;100;2
9;3;300;3
10;4;200;4
11;5;100;5
12;6;300;6
13;1;300;1
14;2;350;2
15;3;400;3
16;4;450;4
17;5;500;5
18;6;550;6
19;1;600;1
20;2;650;2
21;3;700;3
22;4;750;4
23;5;800;5
24;6;850;6
25;1;200;1
26;2;100;2
27;3;300;3


Takže buď si ze mě děláš srandu, nebo se v tom excelu něco počítá. Každopádně má-li to vyhledávat 3. sloupec (obsahující čísla 100, 300, 200, atd. tak to dokážu.

[DestinySVK]

4. stlpec je prazdny sorry ze tam su data... Len A B C stlpce obsahuju data a podla stlpca C sa vyhladava...