vb6-poslat datum

toonnyy · Příspěvekod **toonnyy** » 13 dub 2013 18:22

Ahoj všem
potřebuji ve VB 6 odeslat datum na stránku,konkrétně na http://www.sazka.cz/cz/loterie-a-hry/sportka/vysledky/. Potřebuji změnit datum losování a načíst výsledky. V projektu mám WebBrowser a stránku načtenou. Datum posílám:
WebBrowser1.Document.All.Item("calendar").Value = "13.4.2013" , to funguje, datum na stránce se změní. Ale ještě je potřeba vedle do pole odeslat název dne (neděle,středa), a to už mi nejde, nevím jak. Navíc, pokud takhle odešlu datum, pak neumím prvek "calendar" odkliknout, tak aby se se dle odeslaného datumu načetlo příslušné losování. Prosím nevíte někdo jak na to? Moc díky, Petr
Tady je kousek zdr. kodu stránky:

Kód: Vybrat vše

<BODY sizcache029251774049099405="9" sizset="0"><DIV id=result class=sedy-box sizcache029251774049099405="9" sizset="0">
<P class=kalendar><INPUT class=day value=pátek><INPUT id=calendar class="datepicker hasDatepicker" value=12.4.2013 jQuery17103443439916049405="3"><IMG class=ui-datepicker-trigger title="Vyberte datum slosování" alt="Vyberte datum slosování" src="/gfx/ikony/kalendar.png" jQuery17103443439916049405="8"></P>
<H2>V 15. sázkovém týdnu bylo taženo</H2>
<TABLE id=orderedList class=vylosovana-cisla sizcache029251774049099405="9" sizset="0">
<TBODY sizcache029251774049099405="8" sizset="0">
<TR sizcache029251774049099405="4" sizset="0">
<TH>1. tah</TH>
<TD>16</TD>

Reklama

CZechBoY · Příspěvekod **CZechBoY** » 14 dub 2013 01:03

čau,
ty potřebuješ jen natáhnout data co vyplivne ten web po kliknutí na nějakej datum v kalendáři?
Tak to je jednoduchý :-)
stačí si vytáhnout adresu (příklad)

Kód: Vybrat vše

http://hry.sazka.cz/sportka/result?date=12.4.2013

toonnyy · Příspěvekod **toonnyy** » 14 dub 2013 11:20

Ježíši!! Jak jednoduché, moc díky!! Teď ještě "vypreparovat" tažená čísla, výhry, atd., ale nevim, dělám to pomocí InStr a Mid, což asi neni to pravé ořechové, hlavně proto, že čísla pro 1. i 2. tah jsou v tagu <TD> </TD>. Tady je příklad:

Kód: Vybrat vše

<TH>1. tah</TH>
<TD>6</TD>
<TD>12</TD>
<TD>17</TD>
<TD>22</TD>
<TD>23</TD>
<TD>27</TD>
<TD class=prazdne>&nbsp;</TD>
<TD>37</TD>
<TD class=oddelovac>&nbsp;</TD>
<TH>2. tah</TH>
<TD>15</TD> atd.

Dokážu najít první výskyt <TD> a </TD> a načíst číslo mezi nima, ale co pak, pomocí For Next? Pak tam bude asi problém v řádku <TD class=prazdne> </TD>. Po změně datumu načítám do TextBoxu obsah stránky pomocí Text2.Text = WB1.Document.ActiveElement.OuterHtml. Četl jsem něco o parsingu, ale jen anglicky, takže z toho moudrej nejsem.
V každém případě ještě jednou moc díky s tím datumem, fakt jednoduchý, a já bych se trápil snad do smrti!!

CZechBoY · Příspěvekod **CZechBoY** » 14 dub 2013 12:43

jasně, v tom #orderedList tbody tr se zjistíš všechny td a jeden po druhým si někam zapíšeš (předposlední mezera uvozuje nevim co

tam si dáš prostě podmínku)
pak tu je .vylosovana-cisla sance-milion kde máš asi to samé

nejlepší by bylo vytáhnout celej ten prvek, který vše obsahuje a pak z něj vytáhnout ty čísla, nebo to co potřebuješ prostě...

můžeš použít regulární výrazy nebo jestli v tom webbrowseru je nějaká metoda na vyjmutí prvku pomocí ID (většinou GetElementById)

toonnyy · Příspěvekod **toonnyy** » 14 dub 2013 13:13

OK, díky CZechBoY. O těch regulárních výrazech jsem taky něco četl, pokusím se s tím poprat, díky.

CZechBoY · Příspěvekod **CZechBoY** » 14 dub 2013 17:33

není problém
kdybys měl ještě s něčim problém tak zas napiš

toonnyy · Příspěvekod **toonnyy** » 14 dub 2013 18:09

No bohužel, rady si nevim. Losovaná čísla dle datumu načtu v pohodě, načítám tabulku do Excel listu (SpreadSheet) přímo ve formuláři, pak čísla načtu do text polí. Načte to ale z tabulky pouze 1 a 2 tah. Dál to nejde - čísla Šance, výhry v Kč už ne. Tady fakt nevim. Celý obsah stránky mám taky v txt poli jako zdroj, tam jsou právě ty tagy <TD> atd., a s tím fakt nevim, jak dostat z toho txt ty čísla. Do toho txt to načítám přez Inet:
Text1 = Inet1.OpenURL("http://hry.sazka.cz/sportka/result?date=13.4.2013"). Asi bych to nemusel do toho txt vůbec načítat, tady asi stačí prohledat ten kod stránky přez ten Inet a najít přímo, ale jak, to netušim. Takže zatím umim pouze tažená čísla, WebBrowser neni potřeba, načítám tu tabulku. Pak jsem v koncích. Když budeš mít chvilku čas, stačilo by mi jen nakopnout, třeba jak vyseparovat první číslo šance, ostatní bych pak už snad dal dohromady. Mám tenhle dotaz už na dvou forech asi měsíc, zatim ještě nikdo neporadil. Předem díky, toonnyy

CZechBoY · Příspěvekod **CZechBoY** » 14 dub 2013 18:14

aha ty to děláš v excelu nebo VB6 jako aplikaci?
v Excelu je VBA a VB6 je trochu něco jinýho (ostatně ani jedno nemám takže bych musel sehnat)

toonnyy · Příspěvekod **toonnyy** » 15 dub 2013 10:50

Ahoj
je to aplikace ve Visual Basic 6. Na formuláři mám ale vloženu komponentu SpreadSheet (excel). Dělal jsem aplikaci o F1 - načítání výsledků závodů, info o pilotech, průbežné pořadí, a tam sem taky data načítal z tabulky na webu do toho excelu, tak jsem to použil i tady. Bohužel to ale načte jen ten 1. a 2. tah a zbytek ne, i když jde taky o tabulky.
Jestli VB6 nemáš, tak je asi blbost ho kvůli tomu instalovat. I tak moc díky za pomoc. toonnyy

CZechBoY · Příspěvekod **CZechBoY** » 15 dub 2013 15:08

tak jsem to nainstaloval a zjistil, že v tom VB6 prostředí se fakt nedá nic dělat

nechápu jak jsem to mohl přežít ve škole

nejlepší by bylo to udělat přes MSHTML pokud se ti to podaří nějak rozjet tak dej vědět, já na to asi kašlu, nějak se mi nedaří

toonnyy · Příspěvekod **toonnyy** » 16 dub 2013 14:47

jj, i tak moc díky. Mě je 50 let, a s ničim dalšim už začínat nebudu. I ten VB6 vlastně pořád "začínám". Nějaké stránky jsem ještě našel, tak se pokusim to dát dohromady. toonnyy

CZechBoY · Příspěvekod **CZechBoY** » 16 dub 2013 14:56

můžeš zkusit eště VB.NET ten má parádní Visual Studio s našeptávačem a mnohem víc funkcema (mi přijde)
jazyk je pořád stejný, akorát trochu vylepšený
Visual Studio Express edice je zdarma takže nemusíš ani kvůli tomu platit

vb6-poslat datum

vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Re: vb6-poslat datum

Kdo je online