Import do Excella - lamer prosi o pomoc fachowcow

ďťż

Import do Excella - lamer prosi o pomoc fachowcow ďťż

Import do Excella - lamer prosi o pomoc fachowcow
Zobacz wiadomości

Cytat
A gdyby tak się wedrzeć na umysłów górę, / Gdyby stanąć na ludzkich myśli piramidzie, / I przebić czołem przesądów chmurę, / I być najwyższą myślą wcieloną. . . Juliusz Słowacki, Kordian

Indeks BCB i MySQL subiekt gt fototapeta

Witamy

Import do Excella - lamer prosi o pomoc fachowcow

ice-9 - 30-01-2007 00:01
Import do Excella - lamer prosi o pomoc fachowcow
Witam witam,

zwracam sie o pomoc do szanowych grupowiczow, gdyz potrzebuje zaimportowac
duze ilosci tekstu do excella.

Mam plik typu txt, wyglada mniej wiecej tak:

Firma: Nazwa Firmy
Adres: ul. Jakaśtam 20
telefon: 000000000
Komentarz: aaaa,bbbb, ccccc, dddd,
eee, fffff, ggggg, itd.

Firma: Następna firma
Adres: Kolejny adres
itd

Potrzebuje zaimportowac to do excella, w taki sposób, aby odpowiednie dane
wskoczyly do odpowiednich kolumn czyli

1. Firma A | ul. Jakaśtam | Telefon | Komentarz
2. Firma B | Kolejny adres | ...
itd.

Czy jest może jakiś skrypt, programik który potrafi to wykonać?
Nie jestem jakimś specem, znam się trochę na excellu, ot co.

Byłym wdzięczny za wszelkie wskazówki.

Pozdrawiam,
Ice
ice-9 maupa wp.pl

=?ISO-8859-2?Q?Tomasz_=A3ukaszyk?= - 30-01-2007 00:01

ice-9 napisał(a):
> Witam witam,
>
> zwracam sie o pomoc do szanowych grupowiczow, gdyz potrzebuje zaimportowac
> duze ilosci tekstu do excella.
>
> Mam plik typu txt, wyglada mniej wiecej tak:
>
>
> Firma: Nazwa Firmy
> Adres: ul. Jakaśtam 20
> telefon: 000000000
> Komentarz: aaaa,bbbb, ccccc, dddd,
> eee, fffff, ggggg, itd.
>
> Firma: Następna firma
> Adres: Kolejny adres
> itd
>
> Potrzebuje zaimportowac to do excella, w taki sposób, aby odpowiednie dane
> wskoczyly do odpowiednich kolumn czyli
>
> 1. Firma A | ul. Jakaśtam | Telefon | Komentarz
> 2. Firma B | Kolejny adres | ...
> itd.
>
> Czy jest może jakiś skrypt, programik który potrafi to wykonać?
> Nie jestem jakimś specem, znam się trochę na excellu, ot co.
>
> Byłym wdzięczny za wszelkie wskazówki.
>
> Pozdrawiam,
> Ice
> ice-9 maupa wp.pl
>
>
>
Zaimportować i kopiować makrem do kolejnych kolumn,
Przeparsować awk-iem i zassać w formie gotowej...itd.

T.Ł.

Karol Lipnicki - 30-01-2007 00:01

ice-9 napisał(a):
> Witam witam,
>
> zwracam sie o pomoc do szanowych grupowiczow, gdyz potrzebuje zaimportowac
> duze ilosci tekstu do excella.
>
> Mam plik typu txt, wyglada mniej wiecej tak:
>
>
> Firma: Nazwa Firmy
> Adres: ul. Jakaśtam 20
> telefon: 000000000
> Komentarz: aaaa,bbbb, ccccc, dddd,
> eee, fffff, ggggg, itd.

Heh....
....

Można by powiedzieć iż nie jest to pytanie na tę grupę, ale co mi tam :)
Najpierw pociąłbym to linux'owym narzędziem split - pomiędzy
wystąpieniami - ale może i to nie jest sposobem...

Musimy sciągnąć te zapisy dwuliniowe (za pomocą sed'a lub awk'a)
Następnie kiedy uzyskamy taki wynik:

Firma: Nazwa Firmy
Adres: ul. Jakaśtam 20
telefon: 000000000
Komentarz: aaaa,bbbb, ccccc, dddd, eee, fffff, ggggg

- Usuniemy niepotrzebne przecinki: #> sed 's/:/ /';
- Dwukropek (':') zastąpimy przecinkiem: #> sed 's/:/,/';

....i mniej więcej tak sformatowany plik:

Firma,Nazwa Firmy
Adres,ul. Jakaśtam 20
telefon,000000000
Komentarz,aaaa bbbb ccccc dddd eee fffff ggggg

Zaimportujemy do Excel'a jako plik csv (dane oddzielane przecinkami)...

Mam nadzieję że cię naprowadziłem :)

--
---
Pozdrawiam
* @author Karol Lipnicki

lost - 31-01-2007 00:00

> Byłym wdzięczny za wszelkie wskazówki.
>
>
1. usunąć znaki nowej linii
2. zamienić "Firma" na "jakiś-znak Firma"
3. zamienic "jakiś znak" na znak nowej linii
4 wybrać znak separatora (np. ;)
5 wyczyścić plik z tego znaku
6 wyczyścić plik z niepotrzebnych znaków, przecinków itp.
7 zamienić nazwy kolumn na znak separatora
8. zapisać jako csv
9 wczytac do excela

--
mnie więcej

jacek - 31-01-2007 00:00

Nudzilo mi sie i zrobilem za ciebie.

Function wyciagnij(w As String) As String
dw = InStr(w, ":")
wyciagnij = Mid(w, dw + 2, Len(w) - dw)
End Function

Sub ala()

x = 1
y = 2

Application.ScreenUpdating = False

Sheets("b").Select
Cells(1, 1) = "Firma"
Cells(1, 2) = "Adres"
Cells(1, 3) = "Telefon"
Cells(1, 4) = "Komentarz"

Sheets("a").Select
While Cells(x, 1) <> ""
f = wyciagnij(Cells(x, 1))
a = wyciagnij(Cells(x + 1, 1))
t = wyciagnij(Cells(x + 2, 1))
k = wyciagnij(Cells(x + 3, 1))

Sheets("b").Select
Cells(y, 1) = f
Cells(y, 2) = a
Cells(y, 3) = t
Cells(y, 4) = k

x = x + 4
y = y + 1
Sheets("a").Select
Wend
Application.ScreenUpdating = True

End Sub

Jak =?ISO-8859-2?Q?zamieni=E6_dwa_pola_jednej_kolumny_?==?ISO-8859-2?Q?w_dw=F3ch_rekordach_za_pomoc=B1_jednego_zapyt? ==?ISO-8859-2?Q?ania=3F?= =?iso-8859-2?q?Przentacja,_probelm=2E_Prosz=EA_o_pomoc=2E?= =?iso-8859-2?q?Panie_i_Panowie-prosz=EA_o_pomoc_ze_skanerem=2E_ARCUS_II=2ECUDA?= =?iso-8859-2?q?[apache]_restart_za_pomoc=B1_cron'a_i_too_many_open_files? = btrieve 6.15; geo-info2000; mala wydajnosc sieci - prosba o pomoc [MSSQL] Wykonanie DTS za =?ISO-8859-2?Q?pomoc=B1_triggera?= [Oracle] =?ISO-8859-2?Q?Pro=B6ba_o_pomoc_przy_zapytaniu?= =?ISO-8859-2?Q?pro=B6ba_o_pomoc_w_wyborze_sprz=EAtu?= [Prosba o pomoc, Crosspost] Stary monitor+ stara karta grafiki [MySQL] Proszę o pomoc w utworzeniu zapytania do dwóch tabel.

Cytat

Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona

Free website template provided by freeweblooks.com

Darmowy hosting zapewnia PRV.PL