< návrat zpět

MS Excel

Téma: Strukturovani .csv souboru. rss

Zaslal/a Luk_Ass 29.6.2013 20:20

Mam 282 .csv souboru, ktery maj na prvnim radku nazev sloupce a na dlasich data.
Chci je vsechny vlozit do excelu v jednotny strukture, tzn. v kazdym sloupci jen data, ktery maj v csv souboru vzdy stejnej nazev sloupce.

Napriklad 1. csv soubor ma strukturu:
sloupec1 sloupec2 sloupec3 sloupec5
data1   data2   data3   data4
data5   data6   data7   data8

2. csv soubor:
sloupec1 sloupec4 sloupec5
data9   data10   data11

Vyslednej excel soubor ma vypadat takhle:
sloupec1 sloupec2 sloupec3 sloupec4 sloupec5
data1   data2   data3           data4
data5   data6   data7           data8
data9                   data10 data11

Je moje vysletleni srozumitelny? Znate nekdo zpusob, jak data takhle strukturovat? Diky.

Zaslat odpověď >
Strana:  1 2   další »
marjankaj(29.6.2013 20:53)#014225
avatar
A ako budem vedieť, že sloupec4 má ísť pred sloupec5?
Tie názvy budú číslované alebo nejaké všeobecné?

A patrilo by sa pridať aj prílohy.citovat
Luk_Ass(29.6.2013 21:36)#014226
avatar
Poradi sloupcu neni az tak dulezity. Pak nakonec v excelu oznacit celej sloupec a presunout ho by nebyl problem. Jde jen o to, aby data byla umistena ve spravnym sloupci.

Nazvy jsou text, priklad: Div Date HomeTeam AwayTeam FTHG FTAG FTR HTHG HTAG HTR B365H B365D B365A BWH BWD BWA GBH GBD GBA IWH IWD IWA LBH LBD LBA SBH SBD SBA WHH WHD WHA SJH SJD SJA VCH VCD VCA BSH BSD BSA Bb1X2 BbMxH BbAvH BbMxD BbAvD BbMxA BbAvA BbOU BbMx>2.5 BbAv>2.5 BbMx<2.5 BbAv<2.5 BbAH BbAHh BbMxAHH BbAvAHH BbMxAHA BbAvAHA

Prikladam 2 prilohy, muzu kdyztak dat dalsi, ale je to porad to samy. Na prvnim radku nazvy sloupcu, pak jen data.
http://homies.cz/files/B1.csv
http://homies.cz/files/I1.csvcitovat
Palooo(30.6.2013 22:52)#014233
avatar
skus toto:
Příloha: zip14233_data.zip (40kB, staženo 21x)
citovat
Luk_Ass(1.7.2013 3:38)#014234
avatar
Paloo diky moc. Na tech dvou souborech to vypada dobre. Ale na na 282 souborech, ktery maj celkem 20 MB to vyhodi error: Runtime error '9': Subscript out of range na radku: ReDim Preserve FileData(UBound(SplitColumn), UBound(SplitRow) - 1)citovat
Palooo(1.7.2013 14:08)#014239
avatar
treba zistit pri akom subore to pada .... asi je dost mozne ze ten subor ma inu strukturu ako si poslal

alebo mas tam aj prazne subory? :) s tym som neratalcitovat
Luk_Ass(1.7.2013 14:15)#014240
avatar
Celkem maj asi 90 tisic radku, takze jestli se tam nekde schovava nejaka spatna cast asi nebude jednoduchy rucne najit.

Tady jsou vsechny: http://homies.cz/files/data.rarcitovat
Palooo(1.7.2013 15:37)#014241
avatar
tak uz som tam nasiel chybu ... v tych suborovh je navyse jedna ciarka tj. ma to viac stlpcov ako prvi riadok .... aj ked ten riadok je NULOVIcitovat
Palooo(1.7.2013 15:55)#014242
avatar
tuje to opravene tak aby bralo stlpce len podla prveho riadku
Příloha: zip14242_data.zip (40kB, staženo 21x)
citovat
Luk_Ass(1.7.2013 16:58)#014243
avatar
Diky, ale poslal jsi asi omylem ten vcerejsi soubor.citovat
Palooo(1.7.2013 22:08)#014245
avatar
netusim preco to dalo old subor

zmena bola len v sube:
Private Sub readData(ByVal z As Integer)
Dim SplitRow() As String
Dim SplitColumn() As String

Dim hf As Integer: hf = FreeFile
Open ActiveWorkbook.Path & "\data\" & FileName(z) For Input As #hf
SplitRow = Split(Input$(LOF(hf), #hf), vbNewLine)
Close #hf

For x = LBound(SplitRow) To UBound(SplitRow) - 1
SplitColumn = Split(SplitRow(x), ",")
If x = 0 Then ReDim FileData(UBound(SplitColumn), UBound(SplitRow) - 1)
For y = LBound(SplitColumn) To UBound(SplitColumn)
If y <= UBound(FileData) Then FileData(y, x) = SplitColumn(y)
Next
Next
End Sub


a aRow na double ... lebo tam znikol owerflow :P

tak este raz:
Příloha: zip14245_test.zip (16kB, staženo 21x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje