Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Lotto: punt duizendtallen verwijderen  (gelezen 28521 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #105 Gepost op: 01 december 2021, 12:44:03 »
pfft , geluk dat je me er op gewezen hebt , het is doodsimpel nu :
Datumklein = DateValue(Split(Replace(Split(xhtml.getElementsByTagName("p")(4).innertext, Chr(13))(1), " ", "|", 1, 1), "|")(1))
If Month(Datumklein) <> Month(Datumklein + 7) Then

alles werkt ! waarvoor dank  ;)

Mvg,
Arnold
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #106 Gepost op: 01 december 2021, 13:02:18 »
Goed bezig, Arnold !
Je hebt het voor de volle 100% in orde gebracht op de wijze die ik in gedachten had toen ik stelde dat het korter kon  :thumbsup:

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #107 Gepost op: 01 december 2021, 18:58:03 »
Voor de gein en misschien toch bruikbaar, alle laatste zaterdagen van de maand van het jaar 2021. Werkt alleen voor office 365

=LET(x;LAATSTE.DAG(DATUM(2021;REEKS(12);1);0);x+1-WEEKDAG(x-6))

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #108 Gepost op: 02 december 2021, 08:04:29 »
@Veerj : code opgeslagen , wie weet heb ik dit ooit nodig  ;)
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #109 Gepost op: 05 december 2021, 09:23:28 »
goedemorgen,
ik loop tegen een fout aan , verleden week verliep het goed maar we zijn een nieuwe maand en toch worden de gegevens op blad "Budget" gewist omdat het de laatste zaterdag van de maand zou zijn , controle levert mij op dat de variabele "Datumklein" niet wordt behouden gedurende de ganse code.
de variabele wordt bepaald bij het binnenhalen van de gegevens van het web , ik heb die variabele nodig in de laatste code onder de knop "opslaan en afsluiten" maar de variabele staat op niets.
ik heb het bestand bijgesloten , de nummers zijn NIET diegenen die we momenteel spelen  ;D , heb eerst een Quick pick gedaan.

Mvg,
Arnold.

 
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lotto: punt duizendtallen verwijderen
« Reactie #110 Gepost op: 05 december 2021, 10:37:47 »
Hallo Montagnard,

de variabele Datumklein wordt zeker en onveranderd behouden in de hele macro, maar een (gewone) variabele gaat niet mee naar een andere macro.

Zoek eens de functie Global variabeles op.
1- Een "Global variables" geldt voor elke macro in 1 module, of
2- Een "Global variables"  geldt voor elke macro in alle modules

Succes,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #111 Gepost op: 05 december 2021, 11:22:19 »

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #112 Gepost op: 05 december 2021, 11:55:30 »
Opgelost !
waarvoor weeral dank  :).
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #113 Gepost op: 06 december 2021, 10:31:19 »
Goedemorgen ,
ik zat me gisteren zo te bedenken dat mocht die website : https://www.geschenkwensen.be/lotto-uitslagen/ om een of andere reden wegvallen ik plots met een onbruikbaar bestand zou zitten...
ik heb het bestand dan ook eens aangepast naar de website van de Belgische Lotto zelf en de manier van importeren gebruikt van Jean-Pierre (kopieer en plak)...

werkwijze :
1) open de website via de knop "Lotto website openen"
2) selecteer de gegevens zoals op bijgevoegde screencopy , klik er rechts op en kies voor "kopiëren" , sluit eventueel de website af
3) controleer de lotto trekking via knop "gegevens trekking invullen"

de rest werkt zoals in het andere bestand...

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #114 Gepost op: 11 december 2021, 12:18:36 »
Citaat
ik zat me gisteren zo te bedenken dat mocht die website : https://www.geschenkwensen.be/lotto-uitslagen/ om een of andere reden wegvallen ik plots met een onbruikbaar bestand zou zitten...

Daarom 1-tje van de looto website zelf.

Kan je toevoegen aan je archief. :)

Sub GetDat()
    Dim HTML As HTMLDocument, elem As Object

    With CreateObject("InternetExplorer.Application")
        .navigate "https://www.nationale-loterij.be/"
        Do While .Busy = True Or .readyState <> READYSTATE_COMPLETE: DoEvents: Loop
        Set HTML = .document
        datum = HTML.getElementsByClassName("draw-result-header")(0).innerText
        i = 0: Dim nmbrs(0 To 6)
        For Each elem In HTML.getElementsByClassName("draw-items")(0).getElementsByTagName("li")
            nmbrs(i) = elem.innerText: i = i + 1
        Next elem
        .Quit
    End With
    Sheets(1).Unprotect: Range("D5:I5,K5").ClearContents
    For x = 0 To UBound(nmbrs) - 1
        Cells(5, x + 4) = nmbrs(x)
    Next
    Cells(5, 11) = nmbrs(6)
    Sheets(1).Protect
End Sub

PS: Verwijzing naar Microsoft Internet Controls en Microsoft HTML Object Library aanvinken bij Verwijzingen.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #115 Gepost op: 11 december 2021, 12:24:09 »
Hallo Warm bakkertje,

Hartelijk dank voor de code.
Vraagje, zou je dat ook kunnen aanpassen voor de winstverdeling ?
Dan kan ik gelijk mijn ganse code aanpassen naar de officiële lotto website ?
Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #116 Gepost op: 11 december 2021, 12:45:39 »
Ben zeker geen expert in webscraping maar als ik de tijd vind wil ik best eens een beetje experimenteren. :)

Dus ik zou er mijn adem niet voor inhouden want het zal niet direct voor morgen zijn. :)
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #117 Gepost op: 11 december 2021, 13:21:37 »
Ik kan me herinneren dat de webscraping adv internet explorer niet wilde werken bij jou toch? (Zie post 57)

Je kreeg errors bij .busy or .readystate etc…

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #118 Gepost op: 11 december 2021, 16:39:26 »
ik heb de code eens als proef achter een commandbutton gestoken en het werkt voor de nummers , de datum geeft iets anders weer.
ben al blij dat het nu wel al deels werkt , bij de vroegere code lukte het absoluut niet.
het zou toch fantastisch zijn mocht het werken met de officiële website van Lotto !
Jullie kennende komt dit zeker goed  :thumbsup:
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #119 Gepost op: 12 december 2021, 17:07:55 »
hier toch even updaten : mijn vraag om ook de winst te te kunnen "scrapen" kan niet op de pagina die "Warme bakkertje" in zijn laatste code gebruikt....daar staan blijkbaar enkel de getrokken nummers : https://www.nationale-loterij.be/ , dit is een "algemene startpagina" van de Lotto.

de website van de lotto die ik tot nu toe wilde gebruiken en waar het telkens fout liep was volgende :
https://www.e-lotto.be/NL/drawGames/lotto/results/result/last

ik heb nu echter nog een gevonden met de laatste resultaten :
https://www.nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking

en nu is mijn vraag of het nu misschien wél mogelijk is om data van die bovenstaande pagina te "scrapen" ? ik heb 2 screencopy's bijgesloten wat ik zou "willen"...
mocht er zich iemand aangesproken vinden om het nog eens te proberen ?

Mvg,
Arnold.

Update : het zou ook al mooi zijn mocht gewoon de winstverdeling en eventueel de datum ( zie screencopy 2) kunnen van bovenstaande website "gescraped" worden , dan zouden de nummers kunnen binnengehaald worden via de laatst geplaatste code van "warme bakkertje" ,want deze werkt.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com