Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 3 4 5
Wyślij wiadomość do admina

Przewiń wpisy ↓

poszukuje wyniki KENO w exelu lub innym arkuszu kalkulacyjnym

2013-03-06 (13:17)

status Mariusz9
Data rejestracji: 2011-12-22 00:00:00
Ilość postów: 137

13300
wpis nr 610 990
[ CZCIONKA MONOSPACE ]

engee30, a jest możliwość kupić od ciebie ten program który jest do ściągania



keno?



jest możliwość ściągnięcia nie za każdym razem całej bazy losowań, tylko zadanych przezemnie numerów losowń np



abym zadał programowi numery losowań tj



5,15,25,535,6075,58005,467105?



2013-03-06 (14:50)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 611 034
[ CZCIONKA MONOSPACE ]

Na razie nie mam takiej możliwości, abym go mógł sprzedawać - program jest w 80% ukończony, a obecne funkcje w programie umożliwiają mi na tworzenia baz w plikach excel. Oczywiście, opcja wyboru poszczególnych losowań, a nie całej bazy, jest zaimplementowana w programie.

Ściągnięcie bazy zajęło ponad 50 godzin. W programie istneją funkcje, które m.in. w razie cięć na łączach, przerywa ściąganie numerów, ale pamięta, w którym miejscu (na którym losowaniu) takie cięcie nastąpiło, bez utraty wcześniejszych pobranych losowań, i wznawia w tym miejscu ściąganie. Nawet błędy podczas ładowania poszczególnych odsłon strony są w ten sam sposób traktowane. Oczywiście można samemu w dowolnej chwili przerwać pobieranie i wznowić w momencie, w którym zostało wcześniej wstrzymane. Dobry program musi być w pełni elastyczny przy tego typu zachowań i przy tak ogromnej ilości danych do ściągnięcia. Jak do tej pory, program chodzi stabilnie, bez przykrych w skutkach dla użytkownika crashowań systemu. Nawet jak takie coś nastąpi, wszystkie losowania są zapisywane w bazie danych na dysku zaraz po pobraniu z serwera, tak więc nie ma żadnej utraty tak cennych danych.

Pozostała do zrobienia głównie funkcja tzw. 'jednego kliku' - pobranie wszystkich losowań od ostatniego pobranego, i wysłania tychże losowań do pliku excel (tzw. funkcja Append, która jedynie dodaje nowe losowania do pliku, a nie tworzy od nowe pliku już istniejącego, co zajęłoby przy obecnej liczbie losowań ok 2 godzin).
2013-03-06 (23:06)

status Mariusz9
Data rejestracji: 2011-12-22 00:00:00
Ilość postów: 137

13300
wpis nr 611 254
[ CZCIONKA MONOSPACE ]

ja chętnie nawet na tym etapie 80% kupie program, z opisu wnioskuje,



że to w zupełności by wystarczyło aby program ściągał zadane przezemnie



numery losowań keno ,



jeśli jest taka opcja to szcegóły kwota itp ustalimy przez maila

2013-03-07 (09:05)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 611 314
[ CZCIONKA MONOSPACE ]

Mariusz, niestety na razie nie przewiduję sprzedaży programu. Ale jak już będę miał uregulowane wszystkie sprawy związane z prawami autorskimi (używam komponentów innych autorów) to od razu dam znać na forum.
2013-03-07 (22:00)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 611 610
[ CZCIONKA MONOSPACE ]

Jakby ktoś jeszcze potrzebował pełnego zestawu wylosowanych numerów do Multi Multi, to również mam do zaoferowania pod http://www.angielska.strefa.pl/lotto.html - 5zł/plik. Prosto z serwera Totalizatora Sportowego.
2013-03-07 (22:13)

status geniu7
Data rejestracji: 2011-08-16 00:00:00
Ilość postów: 795

13148
wpis nr 611 615
[ CZCIONKA MONOSPACE ]

Wiesz co, nie chcę być niegrzeczny, ale wypchaj się. Ja dla odmiany dla wszystkich zainteresowanych wrzucę makro do excela, które ściąga wyniki multi multi z tej strony. Aha, zapomniałem dodać, za darmo. Bo jak ktoś wcześniej powiedział: "jesteśmy tu jedną rodziną"



Option Explicit

Sub aktualizuj()

Dim ost_k As Long, i As Long, ost_w As Long, ile As Long, X As Long

Dim wsk As Byte, pom As Byte

Dim Tabela As Variant



Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual



With Sheets("dane")

ost_k = .Cells(1, .Columns.Count).End(xlToLeft).Column

For i = ost_k To 1 Step -1

.Columns(i).Delete

Next i



With Sheets("dane").QueryTables.Add(Connection:="URL;http://www.multipasko.pl/wyniki-csv.php?f=multimulti", _

Destination:=Sheets("dane").Range("a1"))



.Name = "ml_1"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

'.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlAllTables

.WebFormatting = xlWebFormattingNone

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

.SaveData = True

End With



.Rows(1).Delete

ile = .Cells(Rows.Count, "A").End(xlUp).Row



Tabela = .Range("A1:A" & ile).Value

On Error GoTo koniec:

For i = 1 To ile

Tabela(i, 1) = Replace(Tabela(i, 1), ";", ". ", 1, 1)

Tabela(i, 1) = Replace(Tabela(i, 1), ";", ".", 1, 2)

Next i

On Error GoTo 0

.Range("A1:A" & ile).Value = Tabela



.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Semicolon:=True, Comma:=True, Space:=True, Other:=False, OtherChar:= _

".", FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), _

Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1) _

, Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array( _

19, 1), Array(20, 1), Array(21, 1), Array(22, 1)), TrailingMinusNumbers:=True

.Columns("A:A").Replace What:=".", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

.Cells.EntireColumn.AutoFit



Erase Tabela

Tabela = .Range("C1:V" & ile).Value

ost_w = .Cells(.Rows.Count, 1).End(xlUp).Row

ost_k = .Cells(1, .Columns.Count).End(xlToLeft).Column



Range(.Cells(4424, 3), .Cells(ost_w, ost_k)).Copy

Sheets("Baza").Range("AP1").PasteSpecial Paste:=xlPasteValues



For i = 1 To ile

Do

wsk = 0

For X = 1 To 20 - 1

If Tabela(i, X + 1) < Tabela(i, X) Then

wsk = 1

pom = Tabela(i, X)

Tabela(i, X) = Tabela(i, X + 1)

Tabela(i, X + 1) = pom

End If

Next X

Loop Until wsk = 0

Next i



.Range("C1:V" & ile).Value = Tabela





Range(.Cells(4424, 3), .Cells(ost_w, ost_k)).Copy

Sheets("Baza").Range("D1").PasteSpecial Paste:=xlPasteValues

.Cells.QueryTable.Delete

End With



Erase Tabela



With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

.CutCopyMode = False

End With



MsgBox "Aktualizacja zakończona."

Exit Sub



koniec:



With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

.CutCopyMode = False

End With

Worksheets("dane").Cells.QueryTable.Delete

MsgBox "Aktualizacja obecnie niemożliwa", vbExclamation

ActiveSheet.Shapes("Button 1").Select

Selection.OnAction = "aktualizuj"

Range("AO11").Select

ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub
2013-03-07 (22:29)

status geniu7
Data rejestracji: 2011-08-16 00:00:00
Ilość postów: 795

13148
wpis nr 611 617
[ CZCIONKA MONOSPACE ]

Małe objaśnienie. Makro pobiera do arkusza o nazwie "dane" zaś wszystkie wyniki są w arkuszu "Baza". I jeszcze małe sprostowanie, linijkę kodu:

Range(.Cells(4424, 3), .Cells(ost_w, ost_k)).Copy

proszę zmienić na :

Range(.Cells(1, 3), .Cells(ost_w, ost_k)).Copy

i będzie pobierać od początku istnienia multi. Ja mam od los. 4424.
2013-03-07 (22:54)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 611 642
[ CZCIONKA MONOSPACE ]

Sorry geniu, że się troszkę zdenerwowałeś, po prostu oferuję caluśkie zestawy jak komuś naprawdę będą potrzebna 'na wczoraj', że tak się wyrażę. Ten kod, który podałeś na pewno się przyda tym, co siedzą w temacie i znają się na języku VBA. Ale jak ktoś nie ma zielonego pojęcia, co z takim kod programowania zrobić to może ode mnie spokojnie za te 5 złotych dostać, co im trzeba. A potem to i aktualizację można spokojnie przeprowadzać, systematycznie - nawet ręcznie, jak ktoś nie używa takiego makro.

Zauważyłem również, że jedziesz od nr 4424 - początek czasów, kiedy zostały przeprowadzane 2 losowania Multi Multi w ciągu dnia. Też uważam, że to właśnie od tego momentu powinno się zaczynać wszelkie statystyki - wszystko wcześniej było na innych machinach no i tylko jedno losowanie.
2013-03-08 (22:30)

status te0dor
Data rejestracji: 2010-10-12 00:00:00
Ilość postów: 408

12696
wpis nr 612 001
[ CZCIONKA MONOSPACE ]

ponawiam link do narzedzia ktorym wyciagnieice losowania keno do pliku txt



http://krzysadam.bialan.pl/keno/index.php



PS. Polecana obsługa narzedzie:

otworzyc 10 zakładek, w kazdej ustawic zakres np 10000 losowań, i tak od 0 do 10000, od 10001 do 20000 itd. Potem kazdy z zakladek - wyniki skopiowac i wkleic do jednego zbiorczego pliku. Nie zapomniec i nie zamykac przegladarki. Jakie moga byc problemy, co najwyzej strona lotto sie zamuli i odmowi posluszenstwa bo bedzie za duzo zapytan na raz i losowania nie beda pobierane. wowczas nalezy odczekac jakis czas. Aha skrypt czasem sam sie zatrzymuje



ja doszedlem do 250000 losowan zebranych, calość pewne około 40 MB zajmie

2013-03-09 (10:10)

status Mariusz9
Data rejestracji: 2011-12-22 00:00:00
Ilość postów: 137

13300
wpis nr 612 044
[ CZCIONKA MONOSPACE ]

te0dor,



a da się to ustawić na tej stronce aby mi pobierał z każdego dnia tylko





jedno losowanie keno z godziny 9:30 ?



z poniedziałku tylko z 9:30

z wtorku tylko z 9:30

z środy tylko z 9:30



....

itd
2013-03-09 (12:59)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 612 135
[ CZCIONKA MONOSPACE ]

Fajna sprawa z tym parsowaniem - trochę wolne to ściąganie, ale za free

Ja tylko poinformuję, iż znalazłem kolejnych kilka błędów w bazie TS, o czym raczyłem ich poinformować. Prawdopodobnie w bazie brakuje przynajmniej jednego losowania, ale na obecnym etapie nie jestem w stanie powiedzieć dokładnie, ile. Jak już dostanę odpowiedź od TS to dam znać na forum co i jak.
2013-03-09 (13:28)

status te0dor
Data rejestracji: 2010-10-12 00:00:00
Ilość postów: 408

12696
wpis nr 612 145
[ CZCIONKA MONOSPACE ]

Mariusz9 , da sie wszystko zrobić, tylko odpowiednio trzeba przygotowac i napisać skrypt. a wiecej to mi sie nie chce robić. Działa jak działa, pobiera, w sumie jak bys umiał programować, to częściowo można się podpiąć pod mój skrypt. i wyciagać losowania z danych dni i godzin itd... no ale.. tak to bywa.



Pozdrawiam



jak już wyciagniecie wszystkie losowania to licze na jakiś link do spakowanej bazy.

P.S.



A moze by sie tak zebrac w 10 osob, 10 zakłądek, podzielić losowania na osoby i w ciagu dnia, 2 dni mozna mieć całość, no ale trzeba by chcieć
2013-03-09 (13:46)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 612 156
[ CZCIONKA MONOSPACE ]

Jak byś chciał, i nie tylko ty, to możesz ściągnąć całą bazę z mojej stronki http://www.angielska.strefa.pl/lotto.html
2013-03-09 (13:54)

status te0dor
Data rejestracji: 2010-10-12 00:00:00
Ilość postów: 408

12696
wpis nr 612 168
[ CZCIONKA MONOSPACE ]

Elegancko , wielkie dzięki.
2013-03-09 (13:57)

status nippon-jin
Data rejestracji: 2011-01-24 00:00:00
Ilość postów: 786

12882
wpis nr 612 169
[ CZCIONKA MONOSPACE ]

Dla takiego posunięcia należy się pełen szacunek
2013-03-09 (13:59)

status geniu7
Data rejestracji: 2011-08-16 00:00:00
Ilość postów: 795

13148
wpis nr 612 170
[ CZCIONKA MONOSPACE ]

engee30, widzę, że w końcu zrozumiałeś, po co jest ta strona. O to właśnie chodzi. Brawo, to mi się podoba, pomagajmy sobie wszyscy
2013-03-09 (14:12)

status engee30
Data rejestracji: 2013-03-05 00:00:00
Ilość postów: 693

13757
wpis nr 612 176
[ CZCIONKA MONOSPACE ]

Powiem szczerze - jeżeli ktoś dzięki temu skorzysta finansowo, jakaś fajna wygrana, to spoko, będę naprawdę zadowolony
2013-03-09 (15:32)

status Mariusz9
Data rejestracji: 2011-12-22 00:00:00
Ilość postów: 137

13300
wpis nr 612 234
[ CZCIONKA MONOSPACE ]

ściąga się ale po ściągnięciu i otwarciu okazuje się, że tam niema



żadnych wyników losowań keno ani multi tylko jakieś chińskie znaki,



udało się komuś to ściągnąć i otworzyć?
2013-03-09 (16:10)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4907

2047
wpis nr 612 244
[ CZCIONKA MONOSPACE ]

Mariusz9, żeby otworzyć ten plik musisz mieć zainstalowany w komputerze program excel. Plik losowaniaK.xls otwiera się bez żadnego problemu
2013-03-09 (21:27)

status Mariusz9
Data rejestracji: 2011-12-22 00:00:00
Ilość postów: 137

13300
wpis nr 612 344
[ CZCIONKA MONOSPACE ]







dziękuje wszystkim teodorowi, geniu, engee30 za pomoc i porady,





mam już kąplecik wyników KENO ze strony engee30



jak coś uda mi się wygrać w to keno to się podziele
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 4 5
Wyślij wiadomość do admina