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 28530 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 #90 Gepost op: 25 november 2021, 16:57:53 »
Molly,
ik ben er mee bezig maar heb een probleem  : de cijfers zijn blijkbaar als text formaat , als ik de beveiliging uitschakel en naar de cel ga met 1ste lotto nummer dan krijgt ik de aanwijzing dat er iets fout is en de aanbeveling om de cel om te zetten naar een getal.
daarom worden de vakjes niet ingekleurd bij mijn gespeelde nummers en de eventuele winst ook niet berekend.
er is ook blijkbaar iets mis met het datumformaat , waarschijnlijk ook als text ? , zie screen copy 2
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 #91 Gepost op: 25 november 2021, 17:08:10 »
Maar je bent het dus wel al aan het inbouwen?  :)

Ik neem aan dat je dan nu in je code hebt staan
Cells(5, 4).Resize(, 6) = nmbrs
Zet daar nog eens een regeltje onder:
Range("D5:I5") = Range("D5:I5").Value
Lukt het daarmee?

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #92 Gepost op: 25 november 2021, 17:14:09 »
hey , dat werkt nu goed ! nu nog de datum kwestie of moet het ook op die manier ?
en idd , ik ben er mee bezig , zo schakel ik die tussenstap uit in het bereik AI1:AO11....
én moet ik die conversies niet doen met die lussen...
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 #93 Gepost op: 25 november 2021, 17:23:17 »
Dag Arnold,

Die datum had ik in één adem  ;) meegenomen in het voorbeeld. Zoals ik het zie gebruik je die uitsluitend op 'Historie', dus die heb je op deze manier al klaar zitten in die variabele, net als alle andere gegevens die je voor dat tabblad nodig hebt.
Laat maar weten mocht je er niet uit komen.

Ik heb meteen nog een extra ideetje: zou het, aangezien je er rekening mee houdt dat nog lezers je systeem misschien willen gebruiken  :thumbsup:, niet logischer zijn om geen onderscheid tussen woensdag- en zaterdagtrekkingen te maken, en in plaats daarvan bv. standaard 'Historie' bij te werken, en het invullen van 'Controle' laten afhangen van de reactie op een Msgbox?

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #94 Gepost op: 25 november 2021, 17:32:19 »
oke , ik bekijk Uw suggesties ....
ik heb wel hetzelfde probleem bij "Historie" ook daar worden de cijfers als text weergegeven, ik gebruik daarvoor de formules :
Sheets("Historie").Cells(Laatstecel, 2).Resize(, 6) = nmbrs
Sheets("Historie").Cells(Laatstecel, 8).Value = reserve

Mvg,
Arnold.

ps : om 18 uur zal ik er niet meer zijn achter de computer...dus kan het morgen zijn als ik terug antwoord  ;D
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 #95 Gepost op: 25 november 2021, 17:49:32 »
Dag Arnold,

Het reservegetal kan je al eerder in de code converteren, maar voor de 6 andere kan je dat inderdaad het simpelst op dezelfde manier oplossen.

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #96 Gepost op: 26 november 2021, 08:11:18 »
Goedemorgen !
gisteravond in bed nog eens alles overdacht (doe ik dikwijls) en heb het drastisch veranderd :
aangezien de Lotto Historie altijd kan gedownload worden van de Lotto website en dit nu niet iets is dat je wekelijks gebruikt heb ik de Lotto Controle en de Lotto Historie gescheiden van elkaar in 2 aparte werkbooks.
daarna in het Lotto Controle werkblad een mix gebruikt van de code van Veerj en Molly , waarbij er wel degelijk gevraagd wordt of je de trekking wilt controleren ja of nee.
bij de vraag krijg je dus de trekking datum te zien zodat , als je ofwel de woensdag ofwel de zaterdag NIET speelt , indien je niet wilt je geen code en winsten te zien krijgt.
denk dat dit het beste van 2 werelden is.
hierbij mijn dank aan Jean-Pierre voor het initiële programma , en Molly en Veerj voor hun bijdrage  :thumbsup:
nog een fijne dag....

Arnold.

Update : bijgevoegd definitief bestand !
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #97 Gepost op: 26 november 2021, 09:18:45 »
Het komt wel eens voor dat je de classnames niet kunt "scrapen" (zoals we bij de eerste lotto pagina zagen). Hieronder nog een andere demonstratie om gewenste data op te halen, zonder te binden aan class of tag elements.

In dit geval even de lotto nummers aangehouden.

Het voegt hier niet veel toe, maar kan mogelijk helpen in het vervolg.
PS: hier in Nederland hebben we teletekst, waarvan de uitslagen gemakkelijk op te halen zijn ;D

Sub jec()
 ReDim ar(7)
 Url = "https://www.geschenkwensen.be/lotto-uitslagen/"
 
 With CreateObject("MSXML2.XMLHTTP")
   .Open "GET", Url, False
   .send
    sq = Filter(Split(.responsetext, vbLf), "<strong>", True)(12)
    With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = Join([transpose(row(1:45))], " | ")
       Set nmbrs = .Execute(Replace(Replace(sq, "<", " "), ">", " "))
       For Each mt In nmbrs
         ar(x) = Application.Trim(mt): x = x + 1
       Next
       Cells(1, 1).Resize(, x) = ar
    End With
 End With
End Sub

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #98 Gepost op: 26 november 2021, 10:37:34 »
hey Veerj,
bedankt voor de code , ik heb een document waar ik alle codes in bewaar , deze komt er bij...
maar ik ga er niet veel mee kunnen aanvangen vermits het alleen de cijfers zijn , om dan er mee verder te doen is niet voor mij wel gelegd , mijn kennis daar te miniem voor... :(
m.a.w ik moet op dit gebied volledig terugvallen op Jullie welwillendheid om de ganse code te schrijven.
nog een fijne dag ginder in Nederland  ;)

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 Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Lotto: punt duizendtallen verwijderen
« Reactie #99 Gepost op: 26 november 2021, 17:59:43 »
@veerj

je schrijft o.a.:
Citaat
PS: hier in Nederland hebben we teletekst, waarvan de uitslagen gemakkelijk op te halen zijn ;D

wil je daar eens een simpel voorbeeldje van plaatsen?
|-|aije

ik gebruik Office 2016 Professional Plus

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto: punt duizendtallen verwijderen
« Reactie #100 Gepost op: 26 november 2021, 18:15:31 »
Dit zijn de winnende getallen :)

Sub jec()
 Dim strResponseText As String
 With CreateObject("msxml2.xmlhttp")
    .Open "GET", "https://teletekst-data.nos.nl/webplus?p=555", False             
    .Send
    strResponseText = .responsetext                                                                              'hele pagina script naar variabele schrijven
    With CreateObject("htmlfile")
        .Write strResponseText                                                                                'html object vullen met de pagina
        Cells(1, 1).Resize(, 6) = Split(.getElementsByClassName("yellow")(8).innertext, "-")       'class name yellow (item 8) ophalen en splitten op "-"  (output .innertext is x-x-x-x-x-x)
    End With
 End With
End Sub

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #101 Gepost op: 01 december 2021, 09:49:30 »
Goeiemorgen !
mag ik nog eens jullie hulp vragen ?
als ik de code voor het importeren van de data uitvoer dan krijg ik uit het geïmporteerde gegeven "datum = xhtml.getElementsByTagName("p")(4).innertext" de volgende tekst : Uitslag trekking zaterdag 27 november 2021.
Ik heb dan daaruit de datum gefilterd zijnde "zaterdag 27 november 2021".
Hoe bepaal ik nu of deze datum de laatste zaterdag van de maand is ? heb al zowat het ganse web afgezocht maar vind niet goed hoe het aan te pakken...
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 #102 Gepost op: 01 december 2021, 10:06:29 »
Dag Arnold,

In jouw plaats zou ik het niet te ver gaan zoeken. Je weet immers al dat het een zaterdag is, dus tel er 7 dagen bij, en als de maand van beide datums verschillend is, dan was de originele de laatste van de maand, toch?

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 MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #103 Gepost op: 01 december 2021, 10:35:28 »
Ik geloof het graag, Arnold, maar je hebt nu eenmaal de datum die je wil controleren! Het maakt daarbij toch niets uit of je hem uit een cel dan wel elders vandaan haalt.
Vermoedelijk is je grootste struikelpunt dat "zaterdag 27 november 2021" een tekst is?

Hierbij een macrootje dat het oplost. Ik heb nogal onnozele benamingen voor de variabelen gebruikt en het opzettelijk in zoveel mogelijk stappen gedaan, beide  om de werking zo duidelijk mogelijk weer te geven. Het kan m.a.w. nog een stuk korter.

Ga er maar eens stap voor stap door terwijl je de lokale variabelen in de gaten houdt.

Mvg,
Molly

Sub laatste_zaterdag()

begintekst = "zaterdag 27 november 2021"
te_splitsen = Replace(begintekst, " ", "|", 1, 1)
gesplitst = Split(te_splitsen, "|")
datum_als_tekst = gesplitst(1)
echte_datum = DateValue(datum_als_tekst)
week_later = echte_datum + 7
If Month(echte_datum) <> Month(week_later) Then
    laatste = "ja"
End If

End Sub

PS: "ik geloof het graag" ging over je voorlaatste post  ;) (die ondertussen verdwenen is)
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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #104 Gepost op: 01 december 2021, 11:09:26 »
Molly,
ben er mee bezig , ben zoals je zelf schrijft de code nu serieus aan het inkorten , het ging er idd om dat de datum die ik er uit filterde een tekst was.
in de code die Jij had geschreven voor het importeren van op de website was er een regel die de datum van op de website haalde ALS datum..
dus ik ga die gebruiken voor mijn controle !.
thanks voor de hulp  :).
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

 


www.combell.com