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 6909 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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.
« Laatst bewerkt op: 25 november 2021, 17:08:27 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 144
  • Hey, ik ben nieuw hier !
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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 144
  • Hey, ik ben nieuw hier !
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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 144
  • Hey, ik ben nieuw hier !
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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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 !
« Laatst bewerkt op: 28 november 2021, 18:11:24 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 155
  • 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

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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
« Laatst bewerkt op: 26 november 2021, 18:20:50 door Veerj »

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 144
  • Hey, ik ben nieuw hier !
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

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 144
  • Hey, ik ben nieuw hier !
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)

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.642
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

 


www.combell.com