MS Excel

Dobrý den
potřebuji poradit jak vyřešit následující:
V textovém "pseudo xml" souboru hledám položku <stat> + </stat>.

např.
<dat1>4.12.2015</dat1>
<dat2>412</dat2>
<stat>566, 663, 344</stat>
<dat3>koleda</dat3>
<dat5>velikonoce, vanoce, silvestr</dat5>

položky se zapisují do tabulky (kousek kodu)

strData = načtený soubor

....
strDat1 = Split(Split(strData, "<dat1>") (1), "</dat1>") (0)
.Range("A" & Rows.Count).End(xlUp).Offset(0,1) = strDat1
....

Problém je, že potřebuji do tabulky zapsat zkratky států nikoliv čísla.
Převodní tabulka (testovací) je přiložena (list2).
Jak to elegantně provést? Dala by se použit vlastní fce s využitím Case Select,
ale 250 převodů se mi opravdu nechce vypisovat a to ještě nemusí být konečné číslo.
Díky za pomoc.

Zaslat odpověď >

Strana: 1 2 další »

Palooo(7.1.2019 13:32)#042326

podla prikladu presne netusim co potrebujete

ale pre pracu s XML je dobre pouzivat referenciu "Microsoft XML v3.0"

tam ked nacitate stranku/txt/xml tak uz je jednoducho sa pohybovat po xml strukture

pre lepsie znazornenie pozrite prilohu:

Příloha: zip

42326_42322_stat.zip (23kB, staženo 30x)

citovat

Darbujan(7.1.2019 14:30)#042328

Odkaz na SVYHLEDAT...

WorksheetFunction.VLookup

nebo lépe

Application.VLookupcitovat

GeorgeK(7.1.2019 15:56)#042329

to Palooo
nezduraznil jsem to, ale nejde o XML soubor, nejde s ním takto pracovat. Proto ho zpracovávám jako TXT.
v proměnné strDat1 mám uloženo 566, 663, 344 a do tabulky potřebuji zapsat písmena podle tabulky, kterou jsem přiložil.

to Darbujan
Díky, podívám se na to...citovat

GeorgeK(7.1.2019 16:37)#042330

Application.VLookup - dobrá nápověda :-)
Obecně: jak nejelegantneji rozdělit obsah proměnné strStat= 566, 663, 344 na jednotlivá čísla, která pak použiju ve fci Application.VLookup?
Ve strStat může být jednou číslo až několik, jistý je pouze oddělovač "čárka"citovat

Darbujan(7.1.2019 17:04)#042331

GeorgeK napsal/a:

Application.VLookup - dobrá nápověda :-)
Obecně: jak nejelegantneji rozdělit obsah proměnné strStat= 566, 663, 344 na jednotlivá čísla, která pak použiju ve fci Application.VLookup?
Ve strStat může být jednou číslo až několik, jistý je pouze oddělovač "čárka"

A co myslíte, že dělá ten váš Split(...)(0)?
strStat = "566,663,344"
arrStat = Split(strStat, ",")
arrStatPrvni = CInt(arrStat(0))

Musíte toho ale zvládat víc...
- Split funguje pro min. 2 položky, tj. předem otestuje výskyt oddělovače přese InStr(...)>0
- převod řetězcově uvedeného čísla na skutečné číslo pro účely vyhledávání přes CInt na jednoltivých položkáchcitovat

elninoslov(8.1.2019 6:34)#042335

Priložte aj ten textový súbor. Takéto textopiplačky som mal kedysi rád :)citovat

GeorgeK(8.1.2019 7:45)#042337

elninoslov napsal/a:

Priložte aj ten textový súbor. Takéto textopiplačky som mal kedysi rád :)

Díky, testovací texty přiloženy.

Příloha: zip

42337_text.zip (4kB, staženo 27x)

citovat

GeorgeK(8.1.2019 7:48)#042338

Darbujan napsal/a:

A co myslíte, že dělá ten váš Split(...)(0)?
strStat = "566,663,344"
arrStat = Split(strStat, ",")
arrStatPrvni = CInt(arrStat(0))

Díky za nakopnutí, někdy člověk kouká moc daleko a nevidí špičku boty.. :-)citovat

eLCHa(8.1.2019 9:45)#042340

@Darbujan

- Split funguje pro min. 2 položky, tj. předem otestuje výskyt oddělovače přese InStr(...)>0

Nemusíte testovat.Sub test()
Dim strStat As String
strStat = "566"
Dim arrStat() As String
arrStat = Split(strStat, ",")
End Subvytvoří pole arrStat(0 to 0) ;)citovat

Darbujan(8.1.2019 11:08)#042341

Beru zpět, eLCHa má pravdu, není potřeba testovat, pole zde bude fungovat i pro jednu položku.citovat

Strana: 1 2 další »

Téma: "SVYHLEDAT" ve VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje